VBA recherchev + rechercheh

Version imprimable

1 pièce(s) jointe(s)

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:

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

08/01/2018, 14h34
parmi

Bonjour,

À quoi sert la boucle

Code:

For k = 1 To 16

k n'est utilisé à nulle part...(?)
08/01/2018, 14h45
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 ?
08/01/2018, 15h14
Zekraoui_Jakani

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

Code:

=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!

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:

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

08/01/2018, 15h49
aescobar

1 pièce(s) jointe(s)

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

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 :

Citation:

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:

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:

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

09/01/2018, 08h50
Phil'oche

Bonjour,

Je confirme que le "Find dans les règles" proposé ci-dessus et plus efficace et plus propre, dans la mesure où le RECHERCHEV nécessite (souvent) auparavant un tri sur la colonne de recherche.

En plus, j'aime bien la syntaxe Rg.Offset(, 20).End(xlToRight).Value, qui évite de rechercher la 1ère valeur non nulle manuellement, puisque la valeur d'un "Range" complet est justement celle de sa 1ère cellule contenant quelque chose :zoubi:
09/01/2018, 15h11
aescobar

Bonjour,

Merci à tous pour vos réponses.
Je les essayent en ce moment