Fonction si + et
Résolu
gildautal
Messages postés
16
Statut
Membre
-
gildautal Messages postés 16 Statut Membre -
gildautal Messages postés 16 Statut Membre -
Bonjour,
j'ai cela et ca ne tourne pas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$11" and Target.Value = "A" Then Call mamacro
End Sub
'si je selectionne la case I11 et si j'insere un "A" puis enter je déclenche une macro
de plus je dois avoir la meme condition sur plusieurs cellules différentes du style I11,I14,I20,I35 avec lesquelles si j'insere un A, je déclenche mamacro
merci pour votre aide
j'ai cela et ca ne tourne pas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$11" and Target.Value = "A" Then Call mamacro
End Sub
'si je selectionne la case I11 et si j'insere un "A" puis enter je déclenche une macro
de plus je dois avoir la meme condition sur plusieurs cellules différentes du style I11,I14,I20,I35 avec lesquelles si j'insere un A, je déclenche mamacro
merci pour votre aide
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Bonjour,
Pourquoi dis-tu "ca ne tourne pas" ?
Sinon pour plusieurs cellules tu as
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([I11],[I14] ,[I20])) Is Nothing Then Exit Sub
If Target.Value = "A" Then Call mamacro
End Sub
ou bien sélectionner toutes tes cellules à tester, nommer la plage et remplacer par range("ma_plage")
eric -
Merci pour l'info et bon vent
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([I11],[I14] ,[I20])) Is Nothing Then Exit Sub
If Target.Value = "A" Then Call mamacro
End Sub
