Code pour ComboBox !!

[oslo71]

Bonjour à tous,

Peut-être pourrez-vous m'aider !!
J'aimerais avoir les codes pour renseigner 3 combobox
Je vous joins mon petit fichier que j'ai préparé avec l'userform et les Combo.
Merci à toutes et tous si vous pouvez m'aider en me donnant les codes.
Cordialement.

 

[kjin]

Re : Code pour ComboBox !!

Bonjour,
1 - Une recherche dans la base et notamment les wikis de Michel t'aurait permis de trouver tout seul.
2 - Tu n'indiques pas s'il y aura à gérer des doublons éventuels
A+
kjin

 

[oslo71]

Re : Code pour ComboBox !!

Merci Kjin de t'interresser à mons "cas"
Non, il n'y a pas de doublons à gérer, j'ai cherché sur le forum, mais sans succès, je ne suis pas arrivé à faire fonctionner les codes que j'ai pu copier !!!
Merci de ton aide.
Cordialement.

 

[Hulk]

Re : Code pour ComboBox !!

Yo,

Vois le fichier joint et analyse la chose...

Cdt, Hulk.

 

[oslo71]

Re : Code pour ComboBox !!

Un grand merci Hulk, maintenant je comprends mieux l'évolution des codes en fonctions des lignes et colonnes.
Encore merci de m'avoir éclairé.
Cordialement.

 

[kjin]

Re : Code pour ComboBox !!

Re,
En PJ ton formuleire

Edit : bonjour à l'ami Hulk

A+
kjin

 

[Hulk]

Re : Code pour ComboBox !!

Hello,

Tu peux même simplifier le code de l'UserForm comme ceci

Private Sub UserForm_Initialize()

With Sheets("Donnees")
    
    For i = 2 To .Range("A65000").End(xlUp).Row
     If .Cells(i, 1) <> .Cells(i - 1, 1) Then
      ComboStade.AddItem .Cells(i, 1).Value
     End If
    Next

    For i = 2 To .Range("B65000").End(xlUp).Row
     If .Cells(i, 2) <> .Cells(i - 1, 2) Then
      ComboCritere.AddItem .Cells(i, 2).Value
     End If
    Next

    For i = 2 To .Range("C65000").End(xlUp).Row
     If .Cells(i, 3) <> .Cells(i - 1, 3) Then
      ComboType.AddItem .Cells(i, 3).Value
     End If
    Next

End With

End Sub

Cdt, Hulk.

P. S. Salut ami Kjin

 

[oslo71]

Re : Code pour ComboBox !!

Merci à tous les deux pour votre aide.
Vous êtes vraiment Super.
Cdlt.