Entirow copy mais seulement valeur

Bonjour,

j'ai des lignes qui sont copiées collées dans d'autres onglets mais viens de me rendre compte que cela ne fonctionnait parfois pas.

Cela s'explique par le fait que ce sont les formules qui sont collées

ma ligne de code actuelle

Rows(i).EntireRow.Copy Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1)

j'ai bien compris qu'il fallait utiliser:.PasteSpecial Paste:=xlPasteValues pour ne coller que les valeurs

mais comment intégrer cela dans mon code? j'ai ajouté à la fin mais cela ne fonctionne pas..

merci par avance

Bonne journée

Bonjour Darkangel,

Cela se fait en 2 étapes

Rows(i).EntireRow.Copy
' Sur quelle ligne coller ?
Sheets("INTERNATIONAUX").Range("A1000").PasteSpecial Paste:=xlPasteValues

A+

Bonjour Bruno

Ravi de te revoir ici, j'espère tout va bien.

j'avais donc cette ligne de code qui faisait toutes les opérations

Rows(i).EntireRow.Copy Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1)

comme tu me l'as indiqué je l'ai donc séparé

Rows(i).EntireRow.Copy
Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues

seulement voila du coup ca perd la mise en forme

dans mon cas je souhaite copier la mise en forme et les données mais pas les formules..

comment procéder du coup?

merci à toi et bonne journée

@+

Re,

Merci Darkangel, oui ça va

Du coup 3 étapes

Rows(i).EntireRow.Copy Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1)
With Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp)
  .EntireRow.Copy
  .PasteSpecial Paste:=xlPasteValues
End With

@+

C'est bon j'ai trouvé

il faut procéder en 3 étapes à priori sauf si vous avez mieux :)

Rows(i).EntireRow.Copy
Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Sheets("INTERNATIONAUX").Range("A" & Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats

lol pas vu ton dernier post merci en tout cas!

Bonjour,

Ou alors un truc du genre ?

lig = Sheets("INTERNATIONAUX").Range("A" & Rows.Count).End(xlUp).Row + 1)

Rows(i).EntireRow.Copy destination:=Sheets("INTERNATIONAUX").Range("A" & lig)
Sheets("INTERNATIONAUX").Range("A" & lig).value = Sheets("INTERNATIONAUX").Range("A" & lig).value

Voire :

With Sheets("INTERNATIONAUX")
lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(i).EntireRow.Copy Destination:=.Range("A" & lig)
.Range("A" & lig).Value = .Range("A" & lig).Value
End With