Code pour ComboBox !!

K

kjin

XLDnaute Barbatruc

• 18 Mars 2009

• #2

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

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 18 Mars 2009

• #3

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.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 18 Mars 2009

• #4

Re : Code pour ComboBox !!

Yo,

Vois le fichier joint et analyse la chose...

Cdt, Hulk.

 

Pièces jointes

• Essai combobox.1.xls

  48 KB · Affichages: 133
• Essai combobox.1.xls

  48 KB · Affichages: 145
• Essai combobox.1.xls

  48 KB · Affichages: 145

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 18 Mars 2009

• #5

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 18 Mars 2009

• #6

Re : Code pour ComboBox !!

Re,
En PJ ton formuleire

Edit : bonjour à l'ami Hulk

A+
kjin

 

Pièces jointes

• Oslo.zip

  11.2 KB · Affichages: 59

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 18 Mars 2009

• #7

Re : Code pour ComboBox !!

Hello,

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

Code:

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

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 18 Mars 2009

• #8

Re : Code pour ComboBox !!

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

 

Vote positif 0 Vote négatif