Lancement automatique d'une macro

[Micke-31]

Bonjour à tous,

Je sais démarrer automatiquement une macro de plusieurs façons, comme si la cellule B7 change ci-dessous.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$7" Then

Code macro ou nom de la macro

End If
End Sub

Mais je souhaiterai que ma macro soit lancée automatiquement si un cellule de la colonne B change exemple de B10 à B25

merci pour vos réponses

A+

 

[porcinet82]

Re : Lancement automatique d'une macro

Salut,

Essais comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10:B25")) Is Nothing Then
    'ton code
End If
End Sub

@+

 

[Micke-31]

Re : Lancement automatique d'une macro

Salut Porcinet 82,

Merci pour le code, qui me turlupinait

A+

 

[Micke-31]

Re : Lancement automatique d'une macro

Salut,

Et ne serait pas possible d'avoir dans le code une conditionnelle du genre si dans une cellule de la plage B10:B25 il y a un x par exemple exécution de la macro sinon exit sub
merci pour vos réponses

A+

 

[tototiti2008]

Re : Lancement automatique d'une macro

Bonjour à tous,

si, bien sûr :

si c'est la cellule modifiée qui contient le X :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10:B25")) Is Nothing and Target.value = "X" Then
    'ton code
End If
End Sub

si c'est n'importe quelle cellule de la plage :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10:B25")) Is Nothing and Application.worksheetFunction.countif(Range("B10:B25"),"X")>0 Then
    'ton code
End If
End Sub

 

[Micke-31]

Re : Lancement automatique d'une macro

Salut TOTOTITI2008,

Ok merci pour tout, j'avais trouvé la réponse à ma question mais il faut reconnaitre que mon code est moins propre que vos propositions.

Encore merci

A+