Remplissage des tanks d'eau

Salut a tous, très heureux de rejoindre votre groupe. je suis nouveau et j'ai besoin de votre aide s'i vous plait.

j'ai réalisé un fichier, de remplissage de trois tanks d'eau. Les valeurs de chaque niveau sont contenu dans les cellules D9,G9 et J9.

j'aimerais que si les tank atteignent leur niveau maxi les forme de niveau change de couleur pour m'indiquer que les tanks sont remplis.

merci et revenez moi s'il vous plait. voir image et fichier ci-joint

Bonjour et bienvenu sur le forum

Ci joint ma solution

A+ François

avec une barre de niveau en cadeau

A+ François

Salut à tous, Toutes mes excuses si je ne l'ai pas fait aussi tôt, grand merci a FanFan38, pour la solution à ma préoccupation pour le "Remplissage des Tanks".

je vous remercie infiniment pour ce coups de pousse, c'est exactement ce que je voulait, et je pense que je resterais scotcher dans cette famille, pour acquérir de nombreuses connaissances en excel et VBA . Merci

salut, s'il vous plait, je veux faire apparaitre un message d'avertissement dans les 3 zones de texte comme l'indique l'image ci-jointe. Aussi figer la page de visualisation pour empêcher l'utilisateur de défiler à gauche, droite haut et bas.(délimiter la page et la figer en colonne et en ligne). Merci de me revenir s'il vous plait.

Bonjour

Ci joint ma solution

A+ François

bonjour Rohnjeam, salut fanfan38,

For the fun

Sub Rohnheam()
     Dim i     As Integer, i1, shp1, shp2
     With Sheets("Feuil1")
          Set c = .Range("C30")

          Set shp1 = .Shapes.AddShape(msoShapeCan, c.Left, c.Top, 100, 200)
          With shp1
               .Adjustments.Item(1) = 0.1
               Set shp2 = .Duplicate
               shp2.Left = shp1.Left
               shp2.Top = shp1.Top
               shp2.Fill.ForeColor.RGB = 0
               shp2.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
          End With
     End With

     For i1 = 0 To 200 Step 10
          i = IIf(i1 <= 100, i1, WorksheetFunction.RandBetween(0, 100))
          shp2.Top = shp1.Top + (100 - i) / 100 * shp1.Height
          shp2.Height = shp1.Height * i / 100
          shp2.TextFrame2.TextRange.Characters.Text = i
             shp2.Fill.ForeColor.RGB = IIf(i < 20, RGB(0, 255, 0), IIf(i < 80, 0, RGB(255, 0, 0)))
          Application.Wait Now + TimeSerial(0, 0, 2)
     Next

End Sub

salut Fanfan toutes mes excuses. Pour les messages d'avertissement du niveau de remplissage des tanks,

j'aimerais les avoir dans des formes(zone de texte) si possible, Pour le code je n'arrive pas exécuter ,

et je le comprend pas s'il vous plait pouvez vous m'éclairé un peu?.

Sub Rohnheam()
Dim i As Integer, i1, shp1, shp2
With Sheets("Feuil1")
Set c = .Range("C30")

Set shp1 = .Shapes.AddShape(msoShapeCan, c.Left, c.Top, 100, 200)
With shp1
.Adjustments.Item(1) = 0.1
Set shp2 = .Duplicate
shp2.Left = shp1.Left
shp2.Top = shp1.Top
shp2.Fill.ForeColor.RGB = 0
shp2.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
End With
End With

For i1 = 0 To 200 Step 10
i = IIf(i1 <= 100, i1, WorksheetFunction.RandBetween(0, 100))
shp2.Top = shp1.Top + (100 - i) / 100 * shp1.Height
shp2.Height = shp1.Height * i / 100
shp2.TextFrame2.TextRange.Characters.Text = i
shp2.Fill.ForeColor.RGB = IIf(i < 20, RGB(0, 255, 0), IIf(i < 80, 0, RGB(255, 0, 0)))
Application.Wait Now + TimeSerial(0, 0, 2)
Next

End Sub

Bonjour

Ci joint ma solution

A+ François

Merci pour ta solution mais les forme qui indique les niveaux max sont pertubées

Bonjour

Un copié/collé.... C'est corrigé

A+ François

@fanfan38, on pouvait créer une macro paramétrisée dans laquelle on fait une fois ce que vous avez fait 3 fois et dans la macro "Worksheet_Change" on lance cette macro avec ses propres valeurs. Une amélioration ?

Salut a tous,

Merci pour l'aide que vous m'avez apporter, encore merci.

Mais, s'il vous plait, j'ai une autre préoccupation , je dispose d'un fichier ci-joint ,

muni d'un userform, me permettant de mettre a jour des niveaux d'eau contenu

dans des tanks. je veux mettre a jour ma feuil1, mais je veux la masquée pour éviter

que les images et les données soit modifiées par l'utilisateur, pour ce faire j'ai fait la photo

de la feuil1 que j'ai collé en feuil2. Ensuite je veux alimenté ma feuil "Base" en joignant

un pdf rapport depuis mon userform. Puis comment changer la couleur de la barre de progression.

Merci d'avance et revenez moi s'il vous plait

Bonsoir

Dons lancement de l'userform au demarrage

Déprotection de la feuil1 et transfert des données quand tu valides et reprotection de la feuille

A+ François

je ne sais pas ce que c'est transfert de donnees et joindre fichier....

Bonjour

En l'absence de réponse (et étant un peu plus tranquille) ci joint ma solution

le fichier est enregistré dans le même répertoire Tank + la date.pdf

A+ François

Salut a tous Merci pour Votre aide

je voulais joindre un texbox a mon userform, qui lorsqu'il sera renseigné depuis mon userform

apparaitra dans la feuille comme un commentaire(voir image) dans la cellule dédiée (effet pop up )

voir image fichier ci-joint

Merci d'avance.

Bonjour

Cela aurai été sympa de nous informer des résultats des tanks...

Cette question n'a rien à voir avec les tanks donc théoriquement nouvelle question=nouveau post...

Ci joint ma solution

A+ François

Salut FanFan vraiment je ne sait quoi dire tellement les mots me manquent, grand merci à vous, cela fonctionne parfaitement,

et toutes mes excuses si je n'ai pas poster ma préoccupation au bon endroit.

encore merci et excellente journée à vous, j'apprendrais de mes erreurs.