Bonjour,
j ai commencer a faire une macro mais n etant pas super doue elle ne fonctionne pas
je cherche donc une personne pouvant m aider a la corriger
le but de cette macro serait de cacher ou d afficher des figures en function d un resltat dans un tableau
j ai un tableau dans une feuille 30 ou l on peut voir differente ligne dans la colonne D : 3 possibilite qui sont 0.5 , 1 ou 2.5.
et sur une feuille 31 j ai des chemin trace avec des fleches soit qui decende (Down) soit qui monte (Up)
j aimerais que en function du nombre ces fleches s effacent ou apparaissent.
Quans = 0.5 que les fleches Up apparaissent et quand = 2.5 que les fleches Down apparraissent
Sub COMP()
Dim I As Single
Dim ShUp As Shape
Dim SHDowm As Shape
Dim titre As String
For I = 1 To 45
Set ShUp = Sheet3.Shapes("Up " & I)
Set ShDown = Sheet3.Shapes("Down " & I)
Select Case Sheet31.[D1].Offset(I + 1).Value
Case Is = 0.5: ShUp.Visible = True And ShDown.Visible = False
Case Is >= 1: ShUp.Visible = False And ShDown.Visible = False
Case Is >= 2.5: ShUp.Visible = False And ShDown.Visible = True
End Select
Next I
End Sub
merci a tous ceux qui pourront m aider
cdlt.
j ai commencer a faire une macro mais n etant pas super doue elle ne fonctionne pas
je cherche donc une personne pouvant m aider a la corriger
le but de cette macro serait de cacher ou d afficher des figures en function d un resltat dans un tableau
j ai un tableau dans une feuille 30 ou l on peut voir differente ligne dans la colonne D : 3 possibilite qui sont 0.5 , 1 ou 2.5.
et sur une feuille 31 j ai des chemin trace avec des fleches soit qui decende (Down) soit qui monte (Up)
j aimerais que en function du nombre ces fleches s effacent ou apparaissent.
Quans = 0.5 que les fleches Up apparaissent et quand = 2.5 que les fleches Down apparraissent
Sub COMP()
Dim I As Single
Dim ShUp As Shape
Dim SHDowm As Shape
Dim titre As String
For I = 1 To 45
Set ShUp = Sheet3.Shapes("Up " & I)
Set ShDown = Sheet3.Shapes("Down " & I)
Select Case Sheet31.[D1].Offset(I + 1).Value
Case Is = 0.5: ShUp.Visible = True And ShDown.Visible = False
Case Is >= 1: ShUp.Visible = False And ShDown.Visible = False
Case Is >= 2.5: ShUp.Visible = False And ShDown.Visible = True
End Select
Next I
End Sub
merci a tous ceux qui pourront m aider
cdlt.