Partager vos
astuces Déco
Posez votre question Signaler

Fonction si + et [Résolu]

gildautal 16Messages postés 8 décembre 2007Date d'inscription - Dernière réponse le 12 déc. 2007 à 20:20
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
Lire la suite 

Fonction si + et »

2 réponses
Réponse
+0
moins plus
eriiic 7330Messages postés 11 septembre 2007Date d'inscription 14 février 2012Dernière intervention 11 déc. 2007 à 06:58
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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
gildautal 16Messages postés 8 décembre 2007Date d'inscription 12 déc. 2007 à 20:20
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

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « fonction si + et » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook