Discussion :

[aescobar]

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 !

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

Merci d'avance pour toute aide !
Ci-joint le fichier