regrouper plusieurs sub

[bigs32]

bonjour
j'ai plusieurs boutons userform1 correspondant à chaque CommandButton2.

Private Sub CommandButton2_Click()
With Selection.Interior
.ColorIndex = 20
.Pattern = xlSolid
End With
UserForm1.Hide
End Sub

Private Sub CommandButton3_Click()
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
UserForm1.Hide
End Sub

Private Sub CommandButton4_Click()
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
UserForm1.Hide
End Sub

Private Sub CommandButton5_Click()
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
UserForm1.Hide
End Sub

au lieu de faire
Private Sub CommandButton2_Click()
Private Sub CommandButton3_Click()
ect..
j'aimerais regrouper tout dans un seul sub .
je sais pas si c'est possible
merci d'avance
dont voici le fichier joint

 

[Lii]

Re : regrouper plusieurs sub

Bonjour,

Les modules de classe ne sont pas faciles pour un débutant. Comme je ne sais pas si c'est ton cas, des boutons d'option avec un seul bouton de commande ne feraient-ils pas l'affaire ?

Private Sub CommandButton1_Click()
  n = Array(6, 4, 8)
  For i = 1 To Me.Controls.Count - 1
    If Me.Controls("OptionButton" & i) Then
      With Selection.Interior
        .ColorIndex = n(i - 1)
        .Pattern = xlSolid
      End With
    End If
  Next
  UserForm1.Hide
End Sub

remarque : "Me.Controls.Count - 1" serait à changer si tu as d'autres contrôles dans l'USF.

 

[bigs32]

Re : regrouper plusieurs sub

vous êtes trop fort .merci

 

[bigs32]

Re : regrouper plusieurs sub

je pense que vous êtes trop fort et moi qui est un sacré débutant.
merci