lancer une macro automatiquement

P

petipeton

XLDnaute Nouveau

• 23 Mars 2006

• #2

Je ne suis pas super calée en vba... toujours à la recherche moi même de progression, mais j'avais résolu ce problème en nommant ma macro Private Sub Worksheet_Change(ByVal Target As Range). Tu obtiens ceci dans les menus déroulants ainsi : menu 1 = worksheet, menu 2 = change.


Quelqu'un veut bien entériner et approfondir ???

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Mars 2006

• #3

bonjour simba59
bonjour petipon (attention à l'orthographe !!)

testez cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) > 5 Then
MsgBox ('A1 vaut' & Cells(1, 1))
End If
End Sub

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Mars 2006

• #4

Bonjour

Exact Petitpeton

Alors voici le code a placer dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('A3:A4')) Is Nothing Then
If Range('A1') > 5 Then MsgBox 'coucou'
End If
End Sub

 

Vote positif 0 Vote négatif

P

petipeton

XLDnaute Nouveau

• 23 Mars 2006

• #5

pierrejean écrit:

bonjour petipon (attention à l'orthographe !!)

Cliquez pour agrandir...

Yesss ! Gaffe à l'orthographe, j'y tiens !!!


Ravie de voir que je progresse... si j'arrive à répondre à des questions VBA, c'est que je ne suis pas définitivement perdue !

Bon courage, Simba et merci à PierreJean et à Pascal pour leur réponse !

 

Vote positif 0 Vote négatif

S

simba59

XLDnaute Nouveau

• 23 Mars 2006

• #6

Merci a vous petipeton, pierrejean et Pascal76

Ca me parait si simple a présent...

Merci encore pour vos précieux renseignement...

 

Vote positif 0 Vote négatif