Discussion :

[prisci67]

Bonjour à tout le forum,

de niveau intermédiaire en VBA, je bloque sur un problème me permettant de finaliser mon fichier.
Je possède 2 classeurs excel (A et B).
je souhaiterais rechercher dans le classeur B une valeur se trouvant dans le classeur A puis me positionner sur cette cellule (donc du classeur B) et copier une ligne à partir du classeur A.
Voici la macro que j'ai écrite, mais il me copie la ligne à la fin du tableau et non pas sur la bonne ligne...
Merci de votre précieuse aide.
A bientôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Sheets("transfert").Range("G2:AK2").Copy
Valeur_Cherchee = ActiveSheet.Range("R4").Value
Sheets("transfert").Range("G2:AK2").Copy
Application.Workbooks.Open Filename:="S:\Réclamations\ENR 05 Registre Réclamation_AC_AP 2015.xlsm", Password:="F700", WriteResPassword:="F700"
Set PlageDeRecherche = Sheets("Registre réclamations").Columns(12)
Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee)
ActiveCell.Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

[carden752]

Bonjour,

Tu positionnes dans la variable trouve le résultat de find (un objet range).
Le activecell.select ne sert à rien.
Il te faut donc après lancer le collage depuis trouve et non pas activecell.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trouve.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False