Bonjour,
Je vous sollicite pour faire une macro afin de filtrer toute une liste de valeur suivant un critère et le tout sans doublon.
Admettons que je recherche le code produit Toto et tous les composants qui s'y rattache dans une liste où il y a plusieurs fois le même code composant.
Car actuellement avec ce code (Je récupère tous les codes à partir de l'emplacement cells(9,50) puis fais un filtre sans doublon et copie l'informations en cellule "A9", par contre j'ai de temps en temps 2 fois la même ligne en A9 alors que l'informations est identique, je ne comprends pas pourquoi enfin bon ce problème est secondaire.
Pour informmation :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 i = 1 z = 9 derniereligne = Sheets("besoin").Range("A1").End(xlDown).Row For i = 1 To derniereligne Step 1 If Sheets("Besoin").Cells(i, 7) = Sheets("Composé -> composant").Range("B5") Then Sheets("Composé -> composant").Cells(z, 50) = Sheets("Besoin").Cells(i, 3) Sheets("Composé -> composant").Cells(z, 51) = Sheets("Besoin").Cells(i, 4) z = z + 1 End If Next Range("AX9:AY" & z & "").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A9"), Unique:=True
Sheets("Besoin").Cells(i, 7) = l'endroit où on retrouvera "Toto" dans la liste des composants
Sheets("Composé -> composant").Range("B5") = l'endroit où on renseigne le code "Toto"
Je souhaite réaliser un vrai code VB avec boucle d'interrogation... sans utiliser advancedfilter.
Merci pour votre aide.
Will
Partager