Discussion :

[liop49]

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 :

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

   .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 :

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

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

Merci par avance pour vos conseils

Nini entre sec

[LeForestier]

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 :

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

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+

[Gorfael]

Salut liop49 et le forum

Code :

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

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

A+

[LeForestier]

Bonjour Gorfael,
Tu a tester ton exemple ?

Code :

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

[C65536].End(xlUp)

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

Code :

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

.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.

[Gorfael]

Salut LeForestier et le forum

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 :

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

[C65536].End(xlUp)

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

Code :

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

[C65536].End(xlUp)(2)

Donne la cellule de la ligne suivante
A+