De Private Sub CommandButton1_Click() à Private Sub CommandButton40_Click()

[Evelynetfrancois]

bonsoir tout le monde
j ai ces 40 macros qui se suivent !!!
ca fonctionne bien mais c est mal ecrit
pouvez vous me proposer quelque chose de plus court et plus propre du coup ...
merci d'avance pour tout
E et F

Private Sub CommandButton1_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton4.Caption
End Sub

 

[Robert]

Re : De Private Sub CommandButton1_Click() à Private Sub CommandButton40_Click()

Bonsoir EvelyneetFrançois, bonsoir le forum,

En pièce jointe une exemple (que tu n'as même pas daigné nous fournir) avec un module de classe.

 

[Evelynetfrancois]

Re : De Private Sub CommandButton1_Click() à Private Sub CommandButton40_Click()

Merci Robert pour ta proposition qui fonctionne à merveille
et qui m'élimine un sacré paquet de lignes
J’ai juste rajouté une condition à "i" pour limiter l'action aux 40 premiers CB (exclure les suivants)
Encore un grand merci pour tout
Bonne soirée
Je te pris de m’excuses pour le fichier non joint

E et F