Remplir un combox sous condition

[nikkyb]

Bonjour,

J'ai un combox à remplir sous condition : si (dans la feuil"encaissement client") dans une ligne, il y a un chiffre identique au Label260(le label se trouve dans l'userform) dans la colonne 91 alors le numéro de la 1ere colonne de cette meme ligne apparait dans la combox

Voici mon code actuel :

ComboBoxnumero.Clear
With Sheets("encaissement client")
    Set plage = .Range("A6:A" & .Range("A65000").End(xlUp).Row)
    For Each cel1 In plage
If cel1.Offset(0, 91) = Label260 Then
L = Sheets("encaissement client").Range("A65536").End(xlUp).Row 'On identifie la dernière ligne en partant du bas
Sheets("encaissement client").Select 'On sélectionne la feuille sinon bug si elle ne l'est pas

For i = 6 To L 'Boucle départ (Ligne 3 de la feuille, jusqu'à dernière
With Me.ComboBoxnumero 'Avec la ComboBox1
.AddItem Sheets("encaissement client").Range("A" & i) 'On ajoute dans la ComboBox toutes les valeurs, cellules après cellules
End With
Next i

Le probleme avec celui ci est qu'a partir du moment ou il a trouvé une fois le chiffre identique, il me met tout les chiffre de la 1ere colonne or il ne devrais me mettre que le numéro de la ligne concerné

Exemple le Label indique 2010
Si dans une ligne en collone 91 j'ai 2010 :
Alors le numéro de cette ligne (qui est en premiere colonne s'affiche dans la combox.
Sinon elle ne s'affiche pas

Merci beaucoup!

 

[nikkyb]

Re : Remplir un combox sous condition

Petit up pour ma question ......

 

[Paritec]

Re : Remplir un combox sous condition

Bonjour Nikkyb,
au lieu de faire un petit up , tu ferais mieux de joindre un petit fichier
je ne vais pas faire l'exemple à ta place et je pense que personne ne le fera
a+
papou

 

[nikkyb]

Re : Remplir un combox sous condition

Salut Paritec,

Voici un fichier

Cijoint.fr - Service gratuit de dépôt de fichiers

Tu constateras que dans la combobox, tout les numéro qui sont en 1ere colonne sont dans la combobox

Il y a un label dans l'usf

Seul doivent etre apparent les numéro des ligne donc la colonne CN est = au label

En gros Si feuil encaisse client colonne CN = label alors le numéro apparait dans la combobox

Jespere estre assez explicite.

A bientot et encore merci !

PS les 2 colonnes dont il faut s'interesser sont la 1ere et la derniere les autre tu n'a pas besoin d'y preter attention

 

[Paritec]

Re : Remplir un combox sous condition

re bonsoir nikkyb,
bon voilà en retour vérifie et dis moi
à +
Papou

 

[Paritec]

Re : Remplir un combox sous condition

Re bonsoir nikkyb,
juste une précision, dans ta macro tu n'avais aucune condition alors tu chargeais la liste normal, excel ne sait pas que tu as oublié un bout de la macro
a+
Papou

 

[Bebere]

Re : Remplir un combox sous condition

bonjour Nykkib,Paritec
essaye ce code

ComboBoxnumero.Clear

With Sheets("encaissement client")
Set plage = .Range("A6:A" & .Range("A65000").End(xlUp).Row)
End With

For Each cel1 In plage
If cel1.Offset(0, 91) = CDbl(Label260) Then
With Me.ComboBoxnumero
.AddItem cel1.Value 'On ajoute dans la ComboBox toutes les valeurs, cellules après cellules
End With
End If
Next cel1

 

[nikkyb]

Re : Remplir un combox sous condition

Bonjour,

Merci à vous 2, le code de Paritec fonctionne parfaitement.

J'ai pas d'autre question pour le moment mais ca ne saurai tarder

A bientot et encore merci !!