Lancer une macro à chaque fois qhe je fais entrée dans une colonne

[sweat]

Salut le forum,

Je cherche déséspéremment a lancer une macro à chaque fois que je fais entrée dans toutes les cellules d'une même colonne définie, d'un classeur Excel.

Merci à tous.

A+

 

[Michel_M]

Salut

mettons que tu travailles sur la feuil1 du classeur et que ta colonne est la colonne D

Dans l'éditeur VBA tu cliques sur feuil1 et dans la fenêtre horizontale de gauche de l'éditeur (il y a marqué "général") tu sélectionnes worksheets


tu dois avoir:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

tu écris
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("D😀")) Is Nothing Then: Exit Sub

mamacro(de préférence dans un module si tu travailles sur plusieurs feuilles)

End Sub

l'instruction if intersect etc délimite l'événement à la colonne D

A+

Michel

 

[Pascal76]

Bonjour

Pour reprendre l'exemple de Michel mais en gérant l'appartenance à la colonne D on peut mettre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("D😀")) Is Nothing Then

mamacro(de préférence dans un module si tu travailles sur plusieurs feuilles)

End If

End Sub

Cela donne le même résultat ; la seulle différence c'est de tester l'appartenance et si oui on fait la macro tandis que dans l'exemple de Michel si tu n'appartiens pas à la colonne D tu sors sinon tu continues

Bon courage

Pascal

 

[sweat]

Merci pour votre aide, mais quand je fais ce que vous me dites, à chaque fois que je vais dans la colonne "D" la macro se lance, or je veux que la macro ne ce lance que quand je saisisse quelque chose dans la colonne D.

Comment faire ?

Merci pour votre aide !

 

[Pascal76]

Re

Au lieu de faire sur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


tu fais sur

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Bon courage

Pascal

 

[sweat]

Super Pascal, merci beaucoup pour ton aide, tu es génial tu me rends un grand service

A+