Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Evènementiel récalcitrant ?

Evènementiel récalcitrant ?

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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 !!!
Avatar
mabouille
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" a écrit dans le message de news:

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





Avatar
mabouille
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" a écrit dans le message de news:

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