Commande par bouton

bonjour,

je cherche comment, en ayant un bouton qui lance une macro depuis la feuille 1, avoir le meme bouton sur la feuille 2 qui me lance cette meme macro? donc une macro lançable depuis les 2 feuilles.

Quelqu'un pour m'aider ? .....MERCI

Bonjour

Si le bouton n'est pas un contrôle ActiveX

Copies simplement le bouton sur la feuille 2

Sinon fournis ton fichier

Je viens de testé cette solution....mais sans succès !

voici le début de la macro:

Sub loadbank()

'enlever le message de confirmation remplacement cellules

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Application.Calculation = xlManual

test = Range("o25")

Select Case test

Case Is = 1

Range("bl6") = Range("bo6")

Range("bl7") = Range("bo7")

Range("bl8") = Range("bo8")

case is = 2

toutes les valeurs à copier - coller sont sur la feuille 1

le bouton placé sur la feuille 1 fonctionne et fait les copies en fonction de la valeur de la cellule o25

mon but est de lancer aussi cette macro depuis la feuille 2

mais:

si je copie ce bouton sur la feuille 2, il fait un test sur la feuille 2 où il est copié et pas la 1ère.

Bonsoir le fil, bonsoir le forum,

Si bouton ActiveX (CommandButton1). Tu crées un CommandButton dans le second onglet. Dans VBE (Visual Basic Editor), tu copies le code du premier bouton et tu viens le coller dans le second...

[Édition]

Partout ou il y a Range, tu remplaces par Sheets(1).Range...

merci, mais mon bouton, et je m'excuse d'avoir précisé, est un bouton formulaire

Bonjour

Voici le début des modifications

Sub loadbank()

'enlever le message de confirmation remplacement cellules
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
With Sheets("Feuil1")        ' A préciser
test = .Range("o25")
Select Case test

Case Is = 1

.Range("bl6") = .Range("bo6")
.Range("bl7") = .Range("bo7")
.Range("bl8") = .Range("bo8")

case is = 2

.....
End With

Banzai64 a écrit :

Sinon fournis ton fichier

Attention aux . (point) devant les Range

, merci de ton aide mais toujours pas !

si la fin peut aider plus :

Range("ah62") = Range("cj44")

Range("ai58") = Range("cj45")

End Select

Application.ScreenUpdating = True

Application.Calculation = xlAutomatic

End Sub

Bonjour

Banzai64 a écrit :

Banzai64 a écrit:Sinon fournis ton fichier