Bonjour et bonne année à tous,
quelqu'un saurait il comment empecher les sauts d'ecran lorsque l'on click sur les boutons verts

Bonjour à tous,

Peut-être en appliquant les Application.ScreenUpDating et en évitant les Select et Selection.



Voir ton fichier et pour le code T1

A+

Edition : Salut BH² et Bonne Année 

Bonjour,

Salut JC

Comme te le dis JC, tu peux éviter les .select...
De plus un seul code peut suffire :

Sub Macro1()
x = "Table" & Right(Application.Caller, 1)
Application.ScreenUpdating = False
Range("AN5:AT29").Copy Range(Cells(5, 40).Value)
Range(x).Copy Range("AN5:AT29")
Application.CutCopyMode = False
    
Range("AF12").Select

End Sub

Merci à vous

c'est cool ça 
x = "Table" & Right(Application.Caller, 1)
mais ça bloque dans le mode "pas à pas" touche (F8) de l'editeur VB
ça ne me derange pas puisque ton code est juste ce qu'il me fallait
et il fonctionne tres bien depuis le bouton
mais jaurai voulu comprendre 

Re-,

tu n'as bien mis qu'une seule macro?
Et tous tes boutons s'appellent bien T1, T2, etc, mais en tous cas, avec un chiffre en dernière lettre?

Application.Caller, te donne le Nom de l'identificateur de l'objet graphique (le bouton que tu as enfoncé)
Right(Application.Caller,1), et donne la première de ce nom, en partant de la droite, soit le chiffre, si tous les noms de tes boutons finissent bien par un chiffre, bien évidemment

Et pour tous les boutons, "Affecter une macro", avec la macro unique?

Sinon, joins un fichier où cela ne fonctionne pas

Bonjour à tous,

Juste pour rassurer mon ami BH² : ton code fonctionne parfaitement...
En tout cas chez moi

A++ BH²
A+ à tous
 

merci pour les explications j'ai  compris
j'ai bien mis la meme macro a tout les boutons et comme je te l'ai dit ça marche bien c'etai juste dans l'editeur le pb
 A+  

Re,

Bizarre, qu'en mode pas-à-pas, cela bugge....?

Tu as un fichier qui pourrait nous éclairer?

Bonjour à tous ,
voila je remet le fichier de BHBH le code fonctionne comme je
l'ai dit depuis les boutons verts de la feuille excel (c'est exactement ce qu'il me faut encore merci) mais lorsque j'ouvre l'editeur VB
et que je lance la macro il y a un bug sur la premiere ligne
et maintenant je pense savoir que c'est justement parce que aucun
bouton n'est selectionné (Application.Caller,donc il n'a pas la reference pour info j'ai intitulé mes plage de cellules" Table01", "02,"" 03" etc, ainsi que les noms des boutons comme ça au dela de la plage "Table 10" cela fonctionne tout pareil  jusqu'a la plage "Table99" ce qui me suffit et je met 2 apres .Caller 
x = "Table" & Right(Application.Caller, 2) 

Bonjour,
oui, effectivement, maintenant que tu le dis, ce bug est normal...

Clique dans la barre grise, à gauche de la ligne x=....
Tu auras alors un point marron, et toute ta ligne en marron..
Ceci s'appelle un "point d'arrêt", que tu peux également obtenir en cliquant sur F9
Ainsi, lorsque tu cliques sur un bouton, le code va s'arrêter, et tu pourras le dérouler en pas-à-pas en cliquant sur F8
Pour le numéro de tes boutons, si tu en as plus que 100, et qu'ils sont tous dénominés T1, T100, T1450, c'est à dire une lettre et un nombre, tu peux mettre ceci :

x = "Table" & Right(Application.Caller, Len(Application.Caller) - 1)

Len calculant le nombre de caractères du nom
On enlève 1 (le T), on a le nombre....
Bonne soirée