Discussion :

[sakhob]

Bonjour à tous,
je me permets de revenir vers vous car j'ai besoin de votre aide.
Je m'explique:
je dois comparer des colonnes 2 à 2,cependant je dois copier coller(par recherche V) les colonnes d'une des feuilles à cotés de celles de l'autre.(cf fichier joint).
j'ai reussi à faire inserrer des colonnes vides dans la feuille resultat et j'ai aussi réussi à rappatrier la colonne A de ma feuille New à coté de la colonne A de ma feuille resultat(par recherche V) .
Mon probleme est que je souhaiterai faire pareil pour les autres par une boucle mais je n'y arrive pas En vous remerciant d'avance.
Je vois ci joint le resultat que je veux obtenir.
NB:j'ai plus de 150 colonnes.

voici le code que j'ai réussi à faire pour le premier

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
Sub test()
 
Dim Plage As Range, C As Range, Teste
With Sheets("Resultat")
    Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("New")
    For Each C In Plage
        Teste = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)), 1, 0)
        If IsError(Teste) Then
            C.Offset(, 1) = "Non présent"
        Else
        C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)), 1, 0)
        End If
    Next C
End With
MsgBox "recherche terminée"
End Sub

Merci de votre aide
cordialement

[Philippe Tulliez]

Bonjour,
Ne serait-ce pas plus simple de passer par l'insertion de la formule que tu transformes en valeur ?
Exemple d'une formule placée dans la plage C2:C20 de la feuille nommée [Resultat] effectuant une recherche à l'aide de RECHERCHEV dans la plage $A$2:$F$201 de la feuille [db]. Comme la fonction est imbriquée dans un SIERREUR, le texte Pas trouvé s'affiche en cas d'échec.

Code :

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

1
2
3
4
5
6
Sub ChercheValeur()
 With ThisWorkbook.Worksheets("Resultat").Range("C2:C20")
 .Formula = "=IFERROR(VLOOKUP(A2,db!$A$2:$F$201,2,FALSE),""Pas trouvé"")"
 .Value = .Value ' Conserve la valeur
 End With
End Sub

[sakhob]

Bonjour Phillipe
Merci pour la reponse .
Par contre votre code fait presque la meme chose que le mien .Mais mon resultat je le veux en colonne B et non en C dans votre exemple.
et ça ne répond pas à ma demande.
Je me suis peut etre mal exprimé.
je souhaite appliquer ce code à toutes les autres colonnes (par une bouche) mais pas uniquement pour le premier.
ci-joint le resultat que je veux obtenir.
Merci pour votre aide
cordialment

[Philippe Tulliez]

Bonjour,

Par contre votre code fait presque la meme chose que le mien .Mais mon resultat je le veux en colonne B et non en C dans votre exemple.
et ça ne répond pas à ma demande.

C'est bien un exemple. A toi de l'adapter s'il te convient, c'est plus rapide qu'une boucle.

[Invité]

Bonjour,

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
Sub test()
Dim Plage As Range, C As Range, Teste
Dim Offset As Long
With Sheets("New")
For i = 0 To Sheets("Resultat").UsedRange.Columns.Count - 1 Step 3
With Sheets("Resultat")
    Set Plage = .Range(.[A1].Offset(, i), .Cells(.Rows.Count, 1 + i).End(xlUp))
End With
    For Each C In Plage
             Teste = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0)
        If IsError(Teste) Then
            C.Offset(, 1) = "Non présent"
        Else
 
        C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0)
        End If
    Next C
    Offset = Offset + 1
    Next
End With
 
MsgBox "recherche terminée"
End Sub

attention, il y a des rubriques qui ne sont pas séparées par des colonne vide!

[sakhob]

Bonjour rdurupt
Vraiment merci ça l'aire de marcher.
je vais essayer des contre exemple.
mille merci à vous et à Phillipe aussi
bonne journée