Formulaire, plusieurs bouton qui effectuent la même commande

Question

Dans un formulaire, j'ai plusieurs bouton qui réalisent la même commande mais qu'en dupliquant, je leur ai affecté des noms différents. Si je renomme mon bouton, il me dit "Impossible de définir la propriété. Nom ambigu". La seule alternative est pour le moment de dupliquer mon code pour chaque bouton, il y a t-il une alternative ? Private Sub CBu2_Click() '_____________________________________________________________ 'Sélection des onglets (Quantité de prélèvement) '_____________________________________________________________ 'Réalise un test : Si aucunes cases "renforcé, standard, réduit" ne sont cochées, on ne peut pas passer à la suite Sheets("Plan_controle").Select Range("J7").Select If CheckBox49.Value = False And CheckBox50.Value = False And CheckBox51.Value = False Then MsgBox "Veuillez sélectionner un type de contrôle svp !" MultiPage1.Visible = True Else Me.MultiPage1.Pages(8).Visible = True MultiPage1.Value = 8 Frame17.Visible = True Frame19.Visible = True End If End Sub Private Sub CBu3_Click() '_____________________________________________________________ 'Sélection des onglets (Quantité de prélèvement) '_____________________________________________________________ 'Réalise un test : Si aucunes cases "renforcé, standard, réduit" ne sont cochées, on ne peut pas passer à la suite Sheets("Plan_controle").Select Range("J7").Select If CheckBox49.Value = False And CheckBox50.Value = False And CheckBox51.Value = False Then MsgBox "Veuillez sélectionner un type de contrôle svp !" MultiPage1.Visible = True Else Me.MultiPage1.Pages(8).Visible = True MultiPage1.Value = 8 Frame17.Visible = True Frame19.Visible = True End If End Sub...

EngueEngue · Answer

Tu construits un module dans lequel tu mets

sub toto()
'_____________________________________________________________

        'Sélection des onglets (Quantité de prélèvement)
'_____________________________________________________________

    'Réalise un test : Si aucunes cases "renforcé, standard, réduit" ne sont cochées, on ne peut pas passer à la suite
   Sheets("Plan_controle").Select
    Range("J7").Select

        If CheckBox49.Value = False And CheckBox50.Value = False And CheckBox51.Value = False Then

        MsgBox "Veuillez sélectionner un type de contrôle svp !"
        MultiPage1.Visible = True

        Else

        Me.MultiPage1.Pages(8).Visible = True
        MultiPage1.Value = 8
        Frame17.Visible = True
        Frame19.Visible = True

        End If
End sub

Puis dans ton USF

Private Sub CBu2_Click()

Call toto

End Sub

Private Sub CBu3_Click()

call toto

End Sub