Discussion :

[SOSO_A]

Bonjour à tous,

Débutant en programmation vba, j'aimerai savoir comment alimenter une combobox en fonction d'un critère bien précis ? Je m'explique :

J'ai 10 colonnes sur excel, et à la 9ème colonne j'ai 2 critères : abonné ou résilié. Le critère qui m'intéresse est "abonné". Je voudrais alimenter une combobox de mon userform seulement pour les contrats toujours abonné, et qui me fasse apparaitre dans cette liste les noms des abonnés.

En gros je veux dans ma liste seulement les abonnés. Pouvez-vous m'aider svp ?

Merci !!

[Philippe Tulliez]

Bonjour,
Certainement une solution dans cette intervention de la discussion Affichage dans des TextBox en fonction d'une ListBox.
Il y a le code + un classeur à télécharger.

[gnain]

avec une petite boucle...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 1 to Le_Nombre de Ligne
 
     if Cells(i,9).value = "abonné"  Then
          'On ajoute dans le combobox
          ComboBox1.AddItem Cells(i,1).value ' si c'est la colonne A est le noms des abonnés, Cells(i,2).value pour colonne B ...
     End if
 
Next

[SOSO_A]

Merci pour vos réponses apportées.

Gnain, j'ai essayé mais ça marche pas, j'ai toujours une liste vide... J'ai fouiller un peu sur ton post Philippe, et j'ai essayé de faire comme ça, qui semble t-il marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    With Sheets("Feuil1")
        DL = Range("A65536").End(xlUp).Row
        For i = 1 To DL
            If Range("I" & i) = "Abonné" Then
                ComboBox1.AddItem .Range("A" & i)
            End If
        Next i
    End With
End Sub

[Philippe Tulliez]

Bonjour,
Dans tes prochaines interventions, pense à placer ton code entre les balises prévues à cet effet.
Dans le bloc With... End With il manque des points devant deux objets Range pour que cela puisse fonctionner quelque soit la feuille active.
De plus, il est important de préciser le classeur de la feuille comme ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 With ThisWorkbook.Worksheets("Feuil1")

et au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DL = Range("A65536").End(xlUp).Row

il est préférable d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DL = .Range("A" & .Rows.Count).End(xlUp).Row

et ce pour être compatible avec les versions 2003 et supérieures (65536 lignes en 2003 et 1 048 576 depuis la versions 2007)