Bonjour à tous,
Je n'arrive pas à faire fonctionner un code d'extraction de données.
Je dispose d'une liste de données extraites de plusieurs documents (colonne AQ). Chaque article de cette liste concerne des lots.
exemple:
article 1 : Lot 2
article 1 : Lot 15
article 1 : Lot 6
article 2 : Lot 6
article 2 : Lot 16
article 2 : Lot 63
J'essaie de mettre au point un code qui, à partir de la colonne contenant lot x liste les données de la ligne entre les colonnes AN:AV afin de regrouper les articles de chaque lot x.
exemple :
Lot 2 : article 1
Total lot 2 :
Lot 6 : article 1
Lot 6 : article 2
Total lot 6 :
Lot ...
...
...
Les lots vont de 1 à 100
Pour ce faire, je repars de ce code (qui ne fonctionne pas):
Merci d'avance pour votre aide
Je n'arrive pas à faire fonctionner un code d'extraction de données.
Je dispose d'une liste de données extraites de plusieurs documents (colonne AQ). Chaque article de cette liste concerne des lots.
exemple:
article 1 : Lot 2
article 1 : Lot 15
article 1 : Lot 6
article 2 : Lot 6
article 2 : Lot 16
article 2 : Lot 63
J'essaie de mettre au point un code qui, à partir de la colonne contenant lot x liste les données de la ligne entre les colonnes AN:AV afin de regrouper les articles de chaque lot x.
exemple :
Lot 2 : article 1
Total lot 2 :
Lot 6 : article 1
Lot 6 : article 2
Total lot 6 :
Lot ...
...
...
Les lots vont de 1 à 100
Pour ce faire, je repars de ce code (qui ne fonctionne pas):
Code:
Sub test()
Range("AY7").Select
Dim a
Dim L
a = a + 1
L = "Logistique" & a
Set plage = ThisWorkbook.Sheets("Feuil2").Columns("AQ:AQ")
Set re = plage.Find(L, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
If Not re Is Nothing Then
Set fr = re
Do
ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 40), Cells(re.Row, 48)) = ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 50), Cells(re.Row, 58))
Set re = plage.FindNext(re)
Loop Until re Is Nothing Or re = fr
a = 90
End If
End Sub
Merci d'avance pour votre aide