Discussion :

[timtof2011]

bonjour tout le monde...
je cherche à lancer une "Macro1" en fonction d'une cellule A1 si elle est vide ou non...dans mon cas la macro doit se lancer lorsque la cellule A1 n'est pas vide

du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTVIDE(A1);"";"Macro1")

d'avance merci
tim

[jfontaine]

Bonjour,

En utilisant l'évenement Change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" And Target.Value = "" Then Macro1
 
End Sub

[timtof2011]

Merci beacoup à toi jfontaine...c'est exactement ce que je cherchais à réaliser...

bonne journée à toi.

Tim

[timtof2011]

En faisant comme ça j'arrive à ce que je veux vraiment mais lorsque je vide
les cellules A12àA15 je reçois une erreur d'exécution13: incompatibilité de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$AE$12" And Target.Value <> "" Then aff_acpt_1
If Target.Address = "$AE$13" And Target.Value <> "" Then aff_acpt_2
If Target.Address = "$AE$14" And Target.Value <> "" Then aff_acpt_3
If Target.Address = "$AE$15" And Target.Value <> "" Then aff_acpt_4
End Sub

comment éviter ça ???

ok j'ai résolu en raffraichissant le bouton de ma macro...cool
merci de ton aide jfontaine.

Tim