Bonjour à tous,
Comme intitulé, j'ai 2 listes. Je recherche les valeurs de la liste 1 (feuille "Historique") dans la liste 2 (feuille "Plan"). Une fois trouvé en vertical, je souhaite chercher en horizontal, la valeur de la 1ère colonne non-vide (colonne V à AK). Le but final est un copier-coller classique.
Voici mon code, qui ne marche pas evidemment
Il est lourd je pense, mais faut bien commencer !
Merci d'avance pour toute aide !
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 Sub date_départ_promo_par_magasin() Call annule_filtre Dim i, j, t As Integer i = 3 j = 2 t = 22 While Sheets("Historique Etat 60").Cells(i, 3) <> "" If Sheets("PLAN").Cells(j, 1).Value = Sheets("Historique Etat 60").Cells(i, 3).Value Then For k = 1 To 16 If Sheets("PLAN").Cells(j, t) <> "" Then Sheets("Historique Etat 60").Cells(i, 8) = Sheets("PLAN").Cells(1, t).Value Exit For Else: t = t + 1 End If Next k t = 22 Else: j = j + 1 End If i = i + 1 j = 2 Wend
Ci-joint le fichier
Partager