j'ai 1 liste & je compar sur 3 autres listes Résolu/Fermé

Question

Bonjour, 

J'ai quelques difficultés à réaliser mon module en VBA . Le sujet est : je suis sur le même classeur, dans un feuillet 
Sheets("contenu a traiter").  'la liste que je dois contrôler (col B1:B90)
le deuxième feuillet  Sheets("Liste existant").   'composé de 3 listes (A1:a45) ; (D1:D45) ; et ("$G$1:$G$25") ce qui fait ("$A$1:$G$25")

je traite le fichier "contenu a traiter" par boucle  For i = 1 To 150  'liste a traiter 
et je déclare 3 indices DIM b, e, h ==> déjà une erreur
je place des filtres sur chaque colonne pour traiter chacune des listes 
ActiveSheet.Range("$A$1:$A$25").AutoFilter Field:=1, Criteria1:=("B" & i)
ActiveSheet.Range("$D$1:$D$45").AutoFilter Field:=4, Criteria1:=("B" & i)
ActiveSheet.Range("$G$1:$G$18").AutoFilter Field:=7, Criteria1:=("B" & i)

et suivant chaque AutoFilter le pavé de copie dans la colonne voisine si A copie dans B, si D copie dans E etc...
déjà comment rendre indépendant chacune des sélection et le add 1 to b ne marche pas !!
 then
        add 1 to b
        Range("B" & i).Select
        ActiveSheet.Paste
        Sheets("contenu a traiter").Select
        Range("G" & h).Select
        Application.CutCopyMode = False
        Selection.Copy

Je cherche à bien décomposer sur chaque filtre car j'ai une autre procédure a écrire dans les mêmes principes.

Donc 
je démarre sur For i  et le  If (i, 1) < 150 Then est refusé
ensuite ma gestion de boucle interne incrémenté me pose problème

Un petit coup de main serait drôlement sympa.

f894009 · Answer

Bonjour,
Pouvez vous exposer ce que vous voulez faire sans parler programmation, parce que je ne comprends pas vos explications

A+

eriiic · Answer

Bonjour,

tu peux déposer un fichier exemple sur cjoint.com et coller ici le lien fourni.
eric

f894009 · Answer

Bonjour, Un exmple de programmation. Code a mettre dans un module ou ThisWorbook. Sub Traitement_Liste() Dim PlageB As Range, cel As Range, derligJ, derlig Dim PlageA As Range, PlageD As Range, PlageG As Range Application.ScreenUpdating = False 'Liste a traiter Set PlageB = Worksheets("contenu a traiter").Range("B1:B90") For Each cel In PlageB With Worksheets("Liste existant") 'Listes a comparer Set PlageA = .Range("A1:A25") Set PlageD = .Range("D1:D25") Set PlageG = .Range("G1:G25") 'Test si presence NbrA = Application.CountIf(PlageA, cel) NbrD = Application.CountIf(PlageD, cel) NbrG = Application.CountIf(PlageG, cel) If NbrA > 0 Then Lig = .Columns("A").Find(cel, .Cells(1, "A"), , xlWhole).Row 'pour la dernière ligne de la colonne B derlig = .Cells(Rows.Count, "B").End(xlUp).Row If .Cells(1, "B") <> "" Then derlig = derlig + 1 End If 'Ecriture colonne +1 .Cells(derlig, "B") = cel ElseIf NbrD > 0 Then Lig = .Columns("D").Find(cel, .Cells(1, "D"), , xlWhole).Row 'pour la dernière ligne de la colonne E derlig = .Cells(Rows.Count, "E").End(xlUp).Row 'pour la premiere utilisation If .Cells(1, "E") <> "" Then derlig = derlig + 1 End If 'Ecriture colonne +1 .Cells(derlig, "E") = cel ElseIf NbrG > 0 Then Lig = .Columns("G").Find(cel, .Cells(1, "G"), , xlWhole).Row 'pour la dernière ligne de la colonne H derlig = .Cells(Rows.Count, "H").End(xlUp).Row 'pour la premiere utilisation If .Cells(1, "H") <> "" Then derlig = derlig + 1 End If 'Ecriture sur meme ligne colonne +1 .Cells(derlig, "H") = cel Else 'pour la dernière ligne de la colonne J derligJ = .Range("J" & Rows.Count).End(xlUp).Row 'pour la premiere utilisation If .Range("J1") <> "" Then derligJ = derligJ + 1 End If 'Ecriture non trouve .Range("J" & derligJ) = cel End If End With Next cel Application.ScreenUpdating = True End Sub

nadine258 · Answer

Merci f894009 ton programme est nickel.
ça me change des journées passées à décortiquer ma programmation. Bon dimanche.

J'ai 1 liste & je compar sur 3 autres listes

4 réponses

Discussions similaires