re tout le monde
A un moment, ghislain, il va te falloir mettre en liaison les combobox et les userforms, c'est à dire faire comprendre au code que telle combo correspond à telle usf.
plusieurs méthodes pour ceci, en voici deux :
soit directement dans le code, comme ceci :
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 2 To 4
If Not Controls('Combobox' & i).ListIndex = -1 Then
Select Case i
Case 2: BLEU2.Show
Case 3: BLANC1.Show
Case 4: ROUGE3.Show
End Select
End If
Next i
End Sub
et si tu modifies les noms de tes userforms, tu viendra modifier ton code en conséquence.
soit, tu stocks, dans le tag de chaque combobox, le nom de l'userform correspondant.
le tag se trouve dans les propriétés des combobox, c'est une zone de stockage qui permet de garder un renseignement concernant le ctrl.
si tu changes le nom de tes usf, tu dois modifier les tag des controles.
et dans ce cas, tu peux utiliser la macro que je t'ai donnée.
Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If Not ctrl.Tag = '' Then
If Not ctrl.ListIndex = -1 Then
VBA.UserForms.Add(ctrl.Tag).Show
End If
End If
Next ctrl
End Sub
en pièce jointe ton fichier modifier avec la méthode des tags.
voilà
salut [file name=Classeur1_20060405115440.zip size=14007]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060405115440.zip[/file]