Discussion :

[flomos]

Bonjour à tous,

Je suis débutant en VBA.

J'ai deux classeurs Excel, 1 et 2 (voir les 2 tableaux ci-dessous).
Classeur 1 :


Classeur 2 :


Je souhaite que les valeurs présentes dans les colonnes A et B du classeur 2 soient copié/collé dans les colonnes A et B du classeur 1 en respectant les N° présent dans la colonne PI.

J'ai fait le code ci dessous :

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
Sub copie_colle()
 
'Variable déterminant la dernière ligne :'
derlig = Range("A" & Rows.Count).End(xlUp).Row
 
'Ligne permettant d'accélérer l'execution du programme en désactivant l'actualisation de l'écran'
Application.ScreenUpdating = False
 
For i = 2 To derlig
 
If Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 1) = Workbooks("Classeur1.xlsm").Sheets("Feuil1").Cells(i, 1) Then
Union(Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 2), Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 3)).Select
Selection.Copy
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Cells(i, 6).Select
Selection.Paste
 
End If
 
Next i
 
End Sub

Cependant, ce code ne fonctionne pas. J'ai un message d'erreur "L'indice n'appartient pas à la sélection".

Pouvez vous m'aider ?