Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

S

sweat

Guest
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+
 
M

Michel_M

Guest
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
 
P

Pascal76

Guest
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
 
S

sweat

Guest
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 !
 
P

Pascal76

Guest
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
 

Discussions similaires

Réponses
12
Affichages
339
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…