Macro affecté à un champs TCD

MAZETTE

XLDnaute Occasionnel
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
 

Pièces jointes

  • Essai.xls
    45.5 KB · Affichages: 55
  • Essai.xls
    45.5 KB · Affichages: 59
  • Essai.xls
    45.5 KB · Affichages: 54

CB60

XLDnaute Barbatruc
Re : Macro affecté à un champs TCD

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

Pièces jointes

  • EssaiTCD1.zip
    15 KB · Affichages: 39
  • EssaiTCD1.zip
    15 KB · Affichages: 46
  • EssaiTCD1.zip
    15 KB · Affichages: 42

MAZETTE

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Macro affecté à un champs TCD

Re
Voici la macro modifié ( beaucoup plus simple, !!!!!)
HTML:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT