Bonjour les amis,
J'ai un petit souci avec un code en vba
Voici mon code
Private Sub Worksheet_Change(ByVal Target As Range)
If Int(Range("A1")) <> 15 Then
Shapes("test").Visible = msoTrue
Else
Shapes("test").Visible = msoFalse
End If
End Sub
il fonctionne très bien, sauf que je voudrais augmenter les conditions (<> 50, <> 60 etc) étendre les cellules à vérifier sur la colonne A jusqu’à la ligne 122
La je ne sais pas comment faire ...
Avez vous une piste ?
Merci d'avance
BJ
J'ai un petit souci avec un code en vba
Voici mon code
Private Sub Worksheet_Change(ByVal Target As Range)
If Int(Range("A1")) <> 15 Then
Shapes("test").Visible = msoTrue
Else
Shapes("test").Visible = msoFalse
End If
End Sub
il fonctionne très bien, sauf que je voudrais augmenter les conditions (<> 50, <> 60 etc) étendre les cellules à vérifier sur la colonne A jusqu’à la ligne 122
La je ne sais pas comment faire ...
Avez vous une piste ?
Merci d'avance
BJ