Copier coller valeur sur deux feuille avec conditions

Bonjour,

j'aimerais avoir votre aide s'il vous plait.


j'ai actuellement une première feuille "recherche", ainsi qu'une seconde "Wythrin"

J'aimerais que la cellule C14 de la feuille "Recherche" soit copier sur la feuille "Wythrin" en A1 uniquement si dans la plage de A1 à A1000 elle n'est pas déjà présente et Si A1 est non vide copier sur A2.


J'espère que quelqu'un va pouvoir m'aider.

Bonne journée a tous. et merci encore.

Comme ça va plus vite de l'écrire que de l'expliquer :

Code:

---

1 2 3

Dim Ch As Range Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C14").Value) If Ch Is Nothing Then Worksheets("Recherche").Range("C14").Copy Worksheets("Wythrin").Range("A1").End(xlDown).Offset(1, 0)

---

C'est du code tapé à l'arrache directement sur le forum et non testé. Tu auras donc peut-être un peu de débugage à faire.

Je te remercie beaucoup d'avoir pris le temps de me répondre. Je suis extrêmement novice dans le VBA.

Ton code fonctionne sans : .End(xlDown).Offset(1, 0)

Avec il me met une erreur.

Si C14 est une formule on peux également lui dire de prendre que la valeur finale ?

Citation:

---

Envoyé par SirFurtif

Ton code fonctionne sans : .End(xlDown).Offset(1, 0)

---

Si tu enlèves ça, ça copiera systématiquement en A1 sans passer à la cellule suivante.

Citation:

---

Avec il me met une erreur.

---

C'est sans doute dû au fait que la colonne A1 est vide.
VBA ne peut pas trouver la dernière cellule occupée de la colonne s'il n'y en a pas.
Cette erreur disparaitra quand il y aura quelque chose en A1:A2.

Voici mon tableau en image ->

Pièce jointe 376476Pièce jointe 376480


La case A1 à bien une information, mais sans succès.

Si C14 est une formule on peux également lui dire de prendre que la valeur finale ?

Désolé, je suis vraiment novice sur cela.

Code:

---

1 2 3 4 5

Sub Wythrin() Dim Ch As Range Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C14").Value) If Ch Is Nothing Then Worksheets("Recherche").Value("C14").Value.Copy Worksheets("Wythrin").Range("A2").End(xlDown).Offset(1, 0) End Sub

---

Ah j'ai compris il faut une valeur en A1 et A2 pour que cela fonctionne :) MERCI BEAUCOUP

Derniere question : Si C14 est une formule on peux également lui dire de prendre que la valeur finale ?

Pour le moment je me suis débrouillé avec un copie Valeur d'une cellule puis utiliser ton code sur la cellule copier.

En tout cas merci beaucoup de ton aide.

Citation:

---

Envoyé par SirFurtif

Derniere question

---

Il est peu probable que ce soit la dernière.

Citation:

---

Si C14 est une formule on peux également lui dire de prendre que la valeur finale ?

---

Il faut décomposer l'instruction de copie en deux lignes.
Une première ligne avec un Copy sans argument appliqué au Range source.
Une seconde ligne avec un PasteSpecial(xlValues) appliqué à la destination.

Merci, j'ai pas d'autre question juste un problème :)

voici mon code :

Code:

---

1 2 3 4 5

Sub Identification() Dim Ch As Range Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C32").Value) If Ch Is Nothing Then Worksheets("Recherche").Range("C32").Copy If Ch Is Nothing Then Worksheets("Wythrin").Range("A6").PasteSpecial (xlValues)

---

Cela fonctionne mais ne saute pas de ligne comme à l'initiale et si je rajoute -> .End(xlDown).Offset(1, 0)

J'ai erreur de compilation: Erreur de syntaxe

Comme cela, j'y arrive.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Identification() Dim R As Worksheet 'déclare la variable R (onglet Recherche) Dim W As Worksheet 'déclare la variable W (onglet Wythrin) Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)   Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C14").Value) Set R = Sheets("Recherche") 'définit l'onglet R Set W = Sheets("Wythrin") 'définit l'onglet W Set DEST = W.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) If Ch Is Nothing Then R.Range("C14").Copy If Ch Is Nothing Then DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub

---