Probleme de debutant avec les comboboxRésolu

Question

Salut le monde,
J'ai un petit soucis de debutant avec les combox. Je souhaite faire apparaitre les valeurs texte d'une colonne dans ma combox. La premiere valeur a prendre en compte se situe en 3eme ligne (je ne peux donc pas selectionner la colonne entiere), et j'ai plus de 500 lignes a prendre en compte (je sais que je suis parfois faineant, mais me taper de 500 fois la meme commande....non merci). De plus, le meme text peut se retrouver plusieurs fois dans la colonne, et je souhaiterais le voir apparaitre un seule fois si cela est possible.

Alors voila ce que j'ai commence a faire, mais c'est pas vraiment ce que je veux.

Private Sub UserForm_Initialize()
    With CmbObject1 'Values Available in Object1 Box
        .AddItem Worksheets("Feuille1").Cells(3, 5).Value
        .AddItem Worksheets("Feuille1").Cells(4, 5).Value
        .AddItem Worksheets("Feuille1").Cells(5, 5).Value
    End With
End Sub

Alors je compte sur votre aide pour me donner un coup de main utile. Et si vous pouvez etre clair dans vos explications car je suis un ch'ti debutant et je n'y connait pas grand chose en prog, ni en informatique d'ailleur.

Merci a vous et bonne bourre a toutes et a tous.

Vevel.

jpleroisse · Accepted Answer

Bonsoir,

Pour Remplir ta combobox avec les donn&#233;es de la colonne E, en
commen&#231;ant &#224; la troisi&#232;me ligne jusque la ligne 500. Pour les doublons,
il faut que je cherche, je n'ai jamais fait cel&#224;.



Option Explicit

Const NumCol = 5   '(5 correspond &#224; la collone E)



Private Sub UserForm_Initialize()

Dim EntryCount As String, i

For i = 3 To 500

    EntryCount = Cells(NumCol)(i).Value

    CmbObject1.AddItem EntryCount

Next i

End Sub



jpleroisse

cs_ITALIA · Answer

Exist=False ' Bool&#233;en Testant si la Valeur est d&#233;ja Pr&#233;sente dans la Combo

Private Sub UserForm_Initialize()
    With CmbObject1 
         For i=3 to 500 ' Pour Les Lignes 3 &#224; 500
               For j=0 to CmbObject1.ListCount-1 ' Test si la Valeur Existe
                     If CmbObject1.list(j)=Worksheets("Feuille1").Cells(i, 5).Value Then Exist=True
               Next      
               If Exist=False Then .AddItem Worksheets("Feuille1").Cells(i, 5).Value ' Si Non Pr&#233;sente alors Ajout
               Exist=False
         Next
    End With
End Sub

It@li@

cs_vevel · Answer

Merci a vous deux, le chmilblik avance pas mal. Par contre, je souahite faire un truc nikel. Et pour cela quelques modifs a faire encore. Tout d'abord, enlever les cases vides dans la liste. En effet, certaines cases de la colonne sont vides et dans la combobox, j'ai une case vide forcement que je souahiterais enlever......Et egalement, je voulais savoir si la liste peut etre editer par ordre alphabetique...
Derniere ch'tite chose, si j'ai deux listes a prendre en compte, chacune sur une feuille differentes. Quelle est la commande a mettre pour que les meme valeurs textes n'apparaissent qu'une seule fois.

Merci d'avance pour vos reponses si rapides la derniere fois.

Bonne bourre a tous.

cs_ITALIA · Answer

Pour trier un ComboBox par Liste Alphab&#233;tique mets sa propri&#233;t&#233; Sorted=True

It@li@

cs_ITALIA · Answer

Pour ne pas ajouter  la Cellule Vide remplace dans mon Code la Ligne :

   If Exist=False Then .AddItem Worksheets("Feuille1").Cells(i, 5).Value ' Si Non Pr&#233;sente alors Ajout

Par :

   If Exist=False And Worksheets("Feuille1").Cells(i, 5).Value <>"" Then .AddItem Worksheets("Feuille1").Cells(i, 5).Value ' Si Non Pr&#233;sente alors Ajout

It@li@

cs_vevel · Answer

Merci a toi [mailto:It@li It@li]@, je n'arrive pas a trouver le "sorted" dans les propriete, mais c pas grave. Merci pour tout......cool

Vevel

cs_ITALIA · Answer

Surement parceque c'est du VBA...car en VB &#231;a existe....recherche une fonction de trie sur ce site..il y en a des dizaines

It@li@

cs_vevel · Answer

Heu et bien en fait, les doublond sont toujours la dans ma liste....comment kon fait donc pour les virer

cs_ITALIA · Answer

Pour les doublons j'ai post&#233; une source.

Recherches la

It@li@

Probleme de debutant avec les combobox

9 réponses

Discussions similaires