Discussion :

[sakhob]

Bonjour/Bonsoir,
Je reviens vers vous car je suis perdu.
je m'explique :
j'ai 2 feuilles que je dois comparer.Elles ont les memes entetes de colonnes
je voudrais inserrer 2 colonnes entre chaque colonne .
par exemple 2 colonnes entre A et B ,2 colonnes entre B et C etc...(sachant que j'ai plus de 100colonnes)
je souhaite copier les colonnes du fichier new a coter de celles de prod et puis faire comparatif dans la deuxieme colonne inserer à cet effet.
j'ai joint un petit fichier et le resultat que je veux obtenir est dans sheet1(qui est la feuille prod dans laquelle je veux inserrer les colonnes et y copier les colonnes de la feuille new)
Merci de bien vouloir m'aider car je suis vraiment perdu.
j'ai trouvé ce petit code pour inserer mes lignes mais il me donne pas ce que je veux
focus2.zip
Bien cordialement

[Docmarti]

sakhob
Bonjour/Bonsoir,

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 tt()
 
Set fProd = ThisWorkbook.Worksheets("Prod")
Set fNew = ThisWorkbook.Worksheets("New")
 
Set fDestination = Sheets.Add(After:=Sheets(Sheets.Count))
 
DerniereCol = fProd.Cells(1, Columns.Count).End(xlToLeft).Column
 
coldest = 1
 
For i = 1 To DerniereCol
 
fProd.Columns(i).Copy fDestination.Cells(1, coldest)
 
fNew.Columns(i).Copy fDestination.Cells(1, coldest + 1)
 
coldest = coldest + 3
Next
MsgBox "Copie terminée"
 
 
End Sub

[sakhob]

Bonjour Docmart,
vraiment mille merci. pour l'insertion et la copie c'est à peu prés ça.
En revanche c'est moi qui me suis mal exprimé. desolé
c'est une sorte de recherche v que je veux faire colonne par colonne avec comme clé la colonne en jaune.
je veux qu'il aille me chercher dans New ,et ce, pour chaque clé les informations et les coller à coté de la colonne à coté.
c'est comme ce que vous avez fait mais en prenant en compte la clé commune aux 2 feuilles.
voici le type de resultat que je veux obtenir
Merci de vos réponses