Macro affecté à un champs TCD

[MAZETTE]

Bonjour à tous,

Juste une petite question d'ordre technique pour certain...

En consultant le forum, j'ai trouvé quelques semblant de réponse mais pas forcément sur mon cas.

Est-il possible d'affecter via VBA une Msgbox à un champ ...Peut-etre avec un Target mais je connais pas trop...

Dans mon exemple si je change la veleur de "Etablissement", je souhaiterai lancer une Macro que j'appellerai "Toto" est qui indique le numéro de l'établissement.

La macro affecté au camps sera du genre

Sub champ()
call toto
end sub

Où toto est une msg box du genre:

sub toto()
dim i as integer
Msgbox(" Etablissement numéro" & i)
end sub


Merci pour le coup de main

 

[CB60]

Re : Macro affecté à un champs TCD

Bonjour
Macro avec tcd, j'utilse souvent celle de "DEBRA"
Voici pour ton exemple

 

[MAZETTE]

Re : Macro affecté à un champs TCD

Bonjour CB60,

C'est tout à fait cela....

Juste une dernière question ...afin de combler mon ignorance ...pourrais(tu s'il te plait détailler le code par des commentaires ....j'ai un peu de mal à comprendre les pivot et tout ça...

Merci à toi

 

[CB60]

Re : Macro affecté à un champs TCD

Re
Voici la macro modifié ( beaucoup plus simple, !!!!!)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'désactive les événements
Application.EnableEvents = False
'Désactive la mise à jour de l'écran pour accélérer la macro
Application.ScreenUpdating = False
    MsgBox (" Etablissement numéro  " & [c1].Value)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub