Pb sur un copy

Bonjour,

Ce matin j'ai posté un code suite à un pb sur un next et j'ai eu la chance d'avoir beaucoup d'aide. Le code fonctionne à merveille cependant j'aurai souhaité savoir si sur le code suivant :

Code:

---

.Range("A10:J30").Copy Destination:=Workbooks(cible).Worksheets("Bordereau de visites").Range("C" & Sheets("Bordereau de visites").Range("c65536").End(xlUp).Row + 1)

---

je pouvais imposé un copie valeur uniquement style

Code:

---

1 2	.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Merci par avance pour vos conseils

Nini entre sec:oops:

Bonjour,
Tout d'abord, tu a une erreur dans l'adressage du range de destination.
Pour copier c'est obliger de passer par la décomposition des sélections.
Les 4 lignes sont nécessaires. (bien entendu adapter les noms)

Code:

---

1 2 3 4

Workbooks("Classeur1").Sheets("Feuil1").Activate Range("A10:J30").Copy Workbooks(Cible).Sheets("Bordereau de visites").Activate Range("C" & Range("C65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlValues

---

A+

Salut liop49 et le forum

Code:

---

1 2	.Range("A10:J30").Copy Workbooks(cible).Worksheets("Bordereau de visites").[C65536].End(xlUp)(2).PasteSpecial xlPasteValues

---

A+

Bonjour Gorfael,
Tu a tester ton exemple ?

Code:

---

[C65536].End(xlUp)

---

Résultat =l un numéro de ligne.
et pourquoi le point ?

Code:

---

.Range("A10:J30").Copy

---

Et même en rectifiant cette erreur, me met toujours la copie en ligne 8. Je doit dire que là j'ai pas compris.
Dans certain cas il est préférable de découper, c'est plus sûre.
Cordialement.

Salut LeForestier et le forum

Citation:

---

Tu as tester ton exemple ?

---

Non, effectivement, le problème étant simple, j'ai juste fait de la recopie, d'où le ..Pastespecial (j'ai rectifié)

Code:

---

[C65536].End(xlUp)

---

Donne la première cellule de la colonne C, non-vide en partant du bas et en remontant

Code:

---

[C65536].End(xlUp)(2)

---

Donne la cellule de la ligne suivante
A+