Discussion :

[Bouyakaman]

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

Édition suite au déplacement de mon message dans une nouvelle discussion :

Bonjour,

En parcourant ce topic, je suis tombé sur le code VBA présenté ci-dessus qui m'a bien aidé.

Toutefois, je suis encore confronté à une dernière petite difficulté : je souhaiterais pouvoir renommer automatiquement avec une valeur fixe chaque deuxième colonne créée à des fins de comparaison entre new et prod. À cet effet, j'ai tenté de modifier votre code mais sans grand succès jusqu'à présent...

Pourriez-vous m'éclairer sur ce point ? Merci d'avance.

Cordialement,

[QuestVba]

Bonjour,

Est-ce ceci que tu veux ?

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
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)

fDestination.Cells(1, coldest + 2).Value = "Coucou"
 
coldest = coldest + 3
Next
MsgBox "Copie terminée"
 
 
End Sub

[Bouyakaman]

Bonjour,

oui, c'est exactement ça ! Merci beaucoup.

Dernière question qui pourrait me simplifier encore davantage les choses si je venais à travailler sur des fichiers contenant un nombre important de colonnes et de lignes : je souhaiterais, dans chaque colonne coucou, effectuer de manière automatique un contrôle de cohérence (de type "EXACT") entre les valeurs contenues dans les deux colonnes qui les précèdent. Et ce, bien sûr, en autant de lignes qu'il y a de valeurs copiées.

Ci-joint, un fichier exemple illustrant ce que je souhaite faire :


Si tu vois quoi faire, merci d'avance pour ta réponse.