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 ?

[Marc-L]

Bonjour !

Ne pouvant deviner quelle ligne de code déclenche l'erreur  - cependant de ton côté juste en lisant l'aide associée
au message et en vérifiant le contenu des variables tu dois t'en sortir aisément -  alors abandonner cette boucle inutile
au profit d'une simple formule de feuille de calculs via RECHERCHEV par exemple (utilisable aussi en VBA) !
Le tout réclamant à peine cinq lignes si vraiment un code est nécessaire;   s'entraîner déjà directement dans les cellules …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Marc-L]

Sinon pourquoi n'utilises-tu pas la même syntaxe dans le code pour le nom des classeurs ?!

Ligne n°4 :  quels sont donc les classeur & feuille auxquels fait référence cette ligne de code ?!

[flomos]

Oui effectivement une RechercheV suffit largement !!

Voici ma ligne :
Classeur 1 Colonne F (A) : =RECHERCHEV(A2;[Classeur2.xlsx]Feuil1!$A$2:$C$4;2;FAUX)
Colonne G (B) : =RECHERCHEV(A2;[Classeur2.xlsx]Feuil1!$A$2:$C$4;3;FAUX)

Un grand merci !