Lancement automatique d'une macro

porcinet82

XLDnaute Barbatruc

• 9 Octobre 2008

• #2

Re : Lancement automatique d'une macro

Salut,

Essais comme ceci :

Code:

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

@+

 

Vote positif 0 Vote négatif

M

Micke-31

XLDnaute Occasionnel

• 9 Octobre 2008

• #3

Re : Lancement automatique d'une macro

Salut Porcinet 82,

Merci pour le code, qui me turlupinait

A+

 

Vote positif 0 Vote négatif

M

Micke-31

XLDnaute Occasionnel

• 9 Octobre 2008

• #4

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+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Octobre 2008

• #5

Re : Lancement automatique d'une macro

Bonjour à tous,

si, bien sûr :

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

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

M

Micke-31

XLDnaute Occasionnel

• 9 Octobre 2008

• #6

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+

 

Vote positif 0 Vote négatif