Discussion :

[breweryfr]

La colonne 2 du fichier Source possède le code référence
La colonne 3 du fichier Target possède le code combiné par la formule :
"TAR"+ code de référence


L'extrait suivant

Code :

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

1
2
3
4
5
 
With Workbooks(Source).Worksheets(OngletS)
 
    For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
     Set rngC = Columns(2).Find(.Cells(i, 3), , , xlWhole)

permet de faire la recherche mais seulement pour les codes de mêmes caractéristiques.

à ne pas confondre avec

Code :

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

1
2
 
Set rngC = Columns(2).Find(."TAR"+Cells(i, 3), , , xlWhole)

[Daniel.C]

Bonjour,

Quelle est la question ?

[breweryfr]

Soit un fichier Source l'index étant sur CODE
Soit un fichier Target l'index étant sur un texte composant le code soit: "TAR"+CODE

Un Index est une clé.

Je veux rechercher la ligne dans Source dont CODE = à la ligne de Target avec "TAR" + CODE

A savoir, la macro est écrite dans Target car on effectue une mise à jour depuis le fichier Source.

[parmi]

Je ne suis pas certain de bien comprendre, mais si c'est cette ligne

Code :

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

Set rngC = Columns(2).Find(."TAR"+Cells(i, 3), , , xlWhole)

qui te cause problème, peut-être pourrais-tu essayer ainsi...

Code :

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

Set rngC = Columns(2).Find("TAR" & .Cells(i, 3), , , xlWhole)

[Daniel.C]

Code :

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

Ligne = .Columns(2).Find(Mid(.Cells(i, 3), 4, 9 ^ 9), , , xlWhole).Row

Je ne suis pas sûr qu'il faille un point devant "Cells".

[breweryfr]

Tout dépend de quel programme est lancé la macro.

Dans mon cas, je souhaite lancer la macro depuis TARGET.

C'est là que se complique les choses, car dans TARGET l'index est composé de "TAR" + Code.

A savoir que la ligne que je présentais au début n'a aucune erreur de programmation. Elle conviendrait pour une macro située dans la SOURCE.

Si je me suis fait comprendre.

Exemple:
Fichier SOURCE

Code Désignation
A          AA
B          BB

Fichier TARGET

Code  Désignation
TARA     AA
TARB     BB

Je souhaite mettre à jour TARGET depuis les données de SOURCE, la macro étant dans TARGET.

[Daniel.C]

C'est pour cela que tu dois utiliser "Mid(Cells(i, 3), 4, 9 ^ 9)" qui élimine les 3 premiers caractères.