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