Discussion :

[abouhossam]

slt à tous
j'ai développé une macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LBfournisseur_Click()
Dim cel As Range 'variable de boucle qui represente les elements de la feuil "recap" de la col article
Dim str As String 'variable de comparaison
LBarticle.Clear 'mise à zero de cette listbox
    str = LBfournisseur.Value 
    For Each cel In Worksheets("recap").Range("a2:a" & Worksheets("recap").Range("a" & Rows.Count).End(xlUp).Row)
        If cel = str Then 'si les éléments sont identiques
            With LBarticle
                .AddItem cel(1, 2) '1ere col
             End With
        End If
    Next cel 'on boucle
End Sub

le problème c'est que la listbox LBarticle m'affiche des doublons.
merci infiniment.

[zandru]

Bonjour,

Regarde ICI, cela devrait t'aider.

[abouhossam]

merci,
j'ai bien vu ton lien mais je pense que mon problème est un peu compliqué.

[decondelite]

Si tu observais bien cette FAQ, tu constaterais qu'en fait tu as juste ta condition à modifier un petit peu.

[abouhossam]

j'ai bien fait ce que vous avez dit mes son resultat
veuillez m'aider.
le classeur ci joint
mon problème est sur

Code :

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

Private Sub LBfournisseur_Click()

merci.

j'ai modifier le code mais la 1ere ligne de la colonne article se repète pour tous les fournisseur.
merci.

[decondelite]

J'ai corrigé le code de toute ta procédure et fait de grosses modifications.

Déjà j'ai rajoute ceci tout en haut du userform:

Code :

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

Option Base 1

Ceci signifie que les tableaux commenceront toujours à l'indice 1, et donc plus besoin d'écrire "1 To" quand tu redimensionnes.

De deux, toi tu ajoutais arbitrairement toujours la même case avant, et donc tu partais avec un tableau déjà non-vide.

Un tableau vide provoque une erreur si on le teste avec Ubound. On sait que cette erreur est provoquée par ça, donc on gère cette erreur (On Error Resume Next).
S'il n'y a pas eu d'erreur (Err.Number=0), alors on peut parcourir le tableau, sinon on passe directement à la suite (vu qu'il ne risque pas d'y avoir de doublon).

Ensuite, on ajoute un élément. S'il y avait eu une erreur, on redimensionne le tableau de façon simple avec une case (ne surtout pas mettre preserve ici sinon cela provoque une erreur, et comme la gestion d'erreurs est activée à cet endroit ton code se terminerait avec des résultats bizarre, et je suppose qu'ici ça serait aucun affichage dans ta boite), et sinon on fait le redim preserve.
une fois qu'on a fini avec la cellule active, on réinitialise le code d'erreur (Err.Clear) et on stope la gestion d'erreurs (On Error Goto 0).

C'est en gros la signification du code que je t'ai fait. Je te conseille de grandement potasser la gestion d'erreurs: c'est hyper-pratique, mais de mauvaises manipulations sont très vite arrivées.

Code teste et ça marche correctement.

Voilà un petit tuto là-dessus:
http://gilmir.developpez.com/tutoriels-vb6/tutoriel16/
Perso je trouve qu'il embrouille un peu, mais avec de la pratique on finit par bien comprendre comment ça marche.