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

[parmi]

Bonjour,

À quoi sert la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For k = 1 To 16

k n'est utilisé à nulle part...(?)

[aescobar]

Bonjour,

La boucle For devait répéter le test en horizontal, sur les 16 colonnes à partir de V

En fin de compte, en 1er je recherche ma valeur dans chaque ligne
Quand je l'ai trouvé, je recherche la 1ère colonne non-vide de cette ligne, à partir de V jusqu'à AK. Donc sur 16 colonnes, ce qui donne la boucle For de 1 à 16.

Pensez-vous que cette approche est viable ?

[Zekraoui_Jakani]

Ne pouvez-vous pas combiner les 2 lookup en un seul ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=HLOOKUP(VLOOKUP(x;myAtrea1;step;FALSE);myArea2;step;FALSE)

Utiliser le résultat du Vlookup pour lancer le Hlookup; vous éviterez ainsi la complexité des boucles en vba!

[parmi]

L'idée des HLookup et VLookup imbriqués pourrait peut-être faire l'affaire, mais si on continue avec ton idée, tu pourrait utiliser le k

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        For k = 0 To 15 
            If Sheets("PLAN").Cells(j, t + k) <> "" Then
                Sheets("Historique Etat 60").Cells(i, 8) = Sheets("PLAN").Cells(1, t + k).Value
                Exit For
            End If
        Next k

[aescobar]

Merci pour vos réponses.

Je glisse ci-joint un exemple pour mieux illustrer ma demande
Je souhaite donc que la macro vienne remplir la feuille 1 avec chaque valeur correspondante en feuille 2

Merci pour tout aide

[RyuAutodidacte]

Bonjour,

A mon avis, la RechercheV Find + un Range.End(xlToRight), devrait suffire, si c'est pour trouver la 1è valeur non vide
… puis après un copier-coller …

Edit :

Une fois trouvé en vertical, je souhaite chercher en horizontal, la valeur de la 1ère colonne non-vide (colonne V à AK)

Y at-il des valeurs après la colonne AK ?

Sinon avec le Find (Sans la déclaration pour le Find => façon inhabituel de faire ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Exemple()
Dim DLF1&, DLF2&
    With Feuil1
        DLF1 = .Cells(Rows.Count, 1).End(xlUp).Row
        DLF2 = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To DLF1
                On Error Resume Next
           .Cells(i, 2).Value = Feuil2.Range("A2:A" & DLF2).Find(.Cells(i, 1).Value, , xlValues).Offset(, 20).End(xlToRight).Value
                On Error GoTo 0
        Next
    End With
End Sub

Le Find dans les règles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Exemple2()
Dim Rg As Range, DLF1&, DLF2&
    With Feuil1
        DLF1 = .Cells(Rows.Count, 1).End(xlUp).Row
        DLF2 = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To DLF1
            Set Rg = Feuil2.Range("A2:A" & DLF2).Find(What:=.Cells(i, 1).Value, LookIn:=xlValues)
            If Not Rg Is Nothing Then
                .Cells(i, 2).Value = Rg.Offset(, 20).End(xlToRight).Value
            End If
        Next
    End With
    Set Rg = Nothing
End Sub

A adapter bien sûr