Discussion :

[abouhossam]

bjrs à tous,
j'ai développé une macro comme suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim article As String
article = UFMZ.CommandButton1.Caption
UFQP.L1.Caption = article
UFQP.Show
End Sub

mon problème c'est que j'ai 20 commandbutton dans mon userform et je ne veux pas refaire la macro pour chaque bouton.
est ce qu'il y a une méthode; je compte sur vos aides.
merci devellopeurs,

[ZimCri]

Bonsoir,

Tu veux que tes 20 boutons fassent la même chose?

Si c'est le cas, 20 copier coller ca va vite... Si c'est pas le cas j'ai pas compris

[Invité]

Bonjour

Personnellement je ne vois pas l'intérêt de ton code, peux-tu expliquer pourquoi tu prends ce qu'il y a écrit sur un bouton pour le mettre sur une étiquette

Philippe

[abouhossam]

merci à vous,

pourquoi tu prends ce qu'il y a écrit sur un bouton pour le mettre sur une étiquette

l'étiquette est un titre dans une deuxième userform

Tu veux que tes 20 boutons fassent la même chose?

oui, c'est le cas mais je cherche autre chose que de copier coller, si nous somme des devellopeurs.
merci devellopeurs,

[NEC14]

Bonjour,

Tu mets ton code dans un module et pour chaque bouton tu fais appel au module.

Dans le module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Button()
Dim article As String
article = UFMZ.CommandButton1.Caption
UFQP.L1.Caption = article
UFQP.Show
End Sub

Pour chaque bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Button
End Sub

[NEC14]

Sinon voici une réponse fournie par titi95 sur ce même forum

Configuration de départ : un formulaire contenant un bouton que je l'appellerai Bouton1 dans mon explication (tu mettras le nom que tu voudras dans Propriétés/Autres/Nom)

En mode Création du formulaire :
1) tu sélectionnes Bouton1
2) dans Propriétés/Evenement/Sur clic, tu choisis (avec la flèche) "Procédure événementielle"
3) tu cliques sur les trois points à droite (...) ; ceci ouvre la page VBA sur laquelle tu dois trouver maintenant le code suivant qui vient d'être créé :

Code :Sélectionner tout - Visualiser dans une fenêtre à partir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Bouton1_Click()
 
End Sub

4) entre ces deux lignes tu ajoutes ton appel de Sub

Code :Sélectionner tout - Visualiser dans une fenêtre à part
AjoutUn

5) après le End Sub, tu ajoutes le Sub que tu avais écris :

Code :Sélectionner tout - Visualiser dans une fenêtre à partir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Sub AjoutUn()
If Nz(Me.bpCorriger, 0) = 0 Then
    Me.ActiveControl = Me.ActiveControl + 1
Else
    If Me.ActiveControl > 0 Then
        Me.ActiveControl = Me.ActiveControl - 1
    End If
End If
End Sub

6) tu enregistres (icône avec disquette en haut et à gauche)
7) tu repasses sous Access (icône en haut et gauche)
8) tu passes ton formulaire en mode Affichage et tu cliques sur le Bouton1 pour essayer.

[abouhossam]

merci à vous tous,
je pense que je vais prendre la 1ère répense de NEC14
merci.