Remplacer ligne d'un classeur si valeur d'un autre classeur existe

camarchepas

XLDnaute Barbatruc

• 4 Novembre 2012

• #2

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir,

un ptit effort,
Crées nous les 2 classeurs avec 5 ou 6 lignes bidon et mets les en pièces jointes,
ensuite l'on intégrera la macro selon ta demande

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Novembre 2012

• #3

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir,

Ci-joint un exemple à tester.
Les 2 fichiers doivent etre ouverts pour le test

 

Pièces jointes

• A.xlsm

  19.5 KB · Affichages: 32
• A.xlsm

  19.5 KB · Affichages: 34
• A.xlsm

  19.5 KB · Affichages: 32
• B.xlsx

  8.9 KB · Affichages: 34
• B.xlsx

  8.9 KB · Affichages: 34
• B.xlsx

  8.9 KB · Affichages: 35

Vote positif 0 Vote négatif

T

TOINE38

XLDnaute Occasionnel

• 4 Novembre 2012

• #4

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir Gareth,

Merci pour les 2 fichiers joints, mais c'est l'inverse que je souhaiterais.
C'est à dire que je n'ai qu'une seule ligne dans le classeur A et lorsque la valeur de la cellule A2 du classeur A existe dans la colonne A du claseur B alors je recopie toute la ligne du classeur A en lieu est place de celle du classeur B

J'ai essayé de rectifier ton code, mais mes conaissances en VBA sont trés nulle.

Merci si tu as une idée

Toine 38

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Novembre 2012

• #5

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Re,

Voir la version adaptée ci-jointe.
(d'où l'interet de fournir un exemple 😉)

 

Pièces jointes

• A.xlsm

  19.8 KB · Affichages: 49
• A.xlsm

  19.8 KB · Affichages: 56
• A.xlsm

  19.8 KB · Affichages: 42
• B.xlsx

  8.6 KB · Affichages: 39
• B.xlsx

  8.6 KB · Affichages: 46
• B.xlsx

  8.6 KB · Affichages: 43

Vote positif 0 Vote négatif

T

TOINE38

XLDnaute Occasionnel

• 4 Novembre 2012

• #6

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Re Bonsoir Gareth,

Merci pour ton aide, c'est tres sympha.
J'a testé tes fichiers, mais j'ai une erreur qui s'affiche lorsque je veux executer la macro :
"Erreur d'execution 9, l'indice n'appartient pas à la sélection"

Je ne comprends pas ce message

Merci

Toine 38

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 4 Novembre 2012

• #7

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir,

Juste que le classeur à changé de nom donc la macro ne trouve pas ce classeur

Voici le correctif

Code:

Sub Test()

Set c = Workbooks("B-1.xlsx").Sheets("Data").Columns("A:A").Find(ThisWorkbook.Sheets("Feuil1").Range("A2").Value)
If Not c Is Nothing Then ThisWorkbook.Sheets("Feuil1").Range("A2").Resize(1, ThisWorkbook.Sheets("Feuil1").Range("A2").CurrentRegion.Columns.Count).Copy c
End Sub

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Novembre 2012

• #8

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Re,

Jai raté quelque chose ?
Où le classeur a t il changé de nom ?
Chez moi ça fontionne.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 4 Novembre 2012

• #9

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir Gareth,

comme on a déjà chargé les premiers fichiers, lorsque l'on recharge les suivant , au lieu d'écraser, excel à renommé les fichiers.

Et oui bizard , mais c'est ben vrai

 

Vote positif 0 Vote négatif

T

TOINE38

XLDnaute Occasionnel

• 6 Novembre 2012

• #10

Re : Remplacer ligne d'un classeur si valeur d'un autre classeur existe

Bonsoir Camarchepas et Gareth,

Merci pour vos informations c'est exactement ce que je souhaitais.
C'est super sympha d'avoir consacré du temps à m'aider.

Amicalement

Toine38

 

Vote positif 0 Vote négatif