Copie d'une feuille à l'autre.

[hestiahv]

Bonjour à tous ainsi que le forum,

Voici un code me permettant de lié et importer deux feuille dans un même fichier.

Le présent code est déjà fait et inséré,

La règle est fort simple :

Si la cell B en FEUILLE 1, égale A en FEUILLE2,
Copier H en FEUILLE 2, et le coller dans C en FEUILLE 1.

Mon problème, est que le code ne prend que seulement 5 caractères étant Y ESPACE plus 3 chiffres.

J’aimerais SAVOIR où changer ça et de me permettre une copie avec une celle comprenant 9 caractères. 213456789

Le tout deviendrait :
Peu importe ce qui est en B en FEUILLE 1, et que cela égale A en FEUILLE2,
Copier H en FEUILLE 2, et le coller dans C en FEUILLE 1.

Voir le fichier si joint pour un exemple plus concrète.

Voir FEUILLE 1 et FEUILLe2
Entrez une donnée de A feuille2 en B Feuille1…..pour voir le résultat.

Merci d’avance pour votre support

Hestia

 

[Fred0o]

Re : Copie d'une feuille à l'autre.

Bonsoir hestiahv,

Pour que ça fonctionne, il te faut remplacer dans le code de la Feuil1, la ligne :

Target.Offset(, 1).FormulaR1C1 = "=IF(COUNTIF(Feuil2!C1:C8,REPLACE(SUBSTITUTE(RC[-1],"" "",""""),2,,"" "")),VLOOKUP(REPLACE(SUBSTITUTE(RC[-1],"" "",""""),2,,"" ""),Feuil2!C1:C8,6,0),"""")"

par la ligne :

Target.Offset(, 1).FormulaR1C1 = "=IF(COUNTIF(Feuil2!C1:C8,RC[-1]),VLOOKUP(RC[-1],Feuil2!C1:C8,6,0),"""")"

A+

 

[hestiahv]

Re : Copie d'une feuille à l'autre.

Bonsoir FredOo,

Grand, Grand Merci....exactement ce que je voulais. WoW

En jouant avec j'ai compris le principe.......merci beaucoup.

Hestia