Evènementiel récalcitrant ?

Le
Mabouille
Bonjour le Monde,
Dans le VBA editor, dans ThisWorkbook, j'ai mis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$3" Then MsgBox "c'est parti!"
End Sub

Je voudrais que le message s'affiche dès qu'on change le contenu de la
cellule B3, mais ça ne marche pas: où est l'erreur ?
Cordialement
Mabouille
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #17690301
Salut à toi

Mets ton code modifié ainsi dans le VBA de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then MsgBox "c'est parti!"
End Sub

Celà devrait faire

Dis moi !!!
mabouille
Le #17690471
Bonjour,
Merci de cette réponse rapide.
Malheureusement j'ai fait un copié collé de ton code et je l'ai mis à la
place de l'autre ds le VBA, et ça ne marche pas.
Ca peut venir d'où??
Cordialement
Mabouille


"FFO"
Salut à toi

Mets ton code modifié ainsi dans le VBA de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then MsgBox "c'est parti!"
End Sub

Celà devrait faire

Dis moi !!!





mabouille
Le #17690461
OUPS
Attends, excuse moi FFO, je me suis trompé de feuille, voilà pourquoi,
maintenant ça marche, grand merci !
Oh là là le zozo que je suis !!
Cordialement
Mabouille

"FFO"
Salut à toi

Mets ton code modifié ainsi dans le VBA de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then MsgBox "c'est parti!"
End Sub

Celà devrait faire

Dis moi !!!





Publicité
Poster une réponse
Anonyme