Copie de valeurs sur plusieurs feuilles sans les formules

[js55]

Bonjour,
Alors voici mon code :
Sub copie()
Sheets("Feuil1").Columns("A:B").copy Sheets("Copy").Columns(1)
Sheets("Feuil1").Columns("E:E").copy Sheets("Copy").Columns(3)
End Sub

Avec ceci je peux copier mes colonnes dans l'autre feuille (copy) dans l'ordre que je veux.
Mon problème c'est que cela me copie aussi les formules, alors que je voudrais avoir uniquement les valeurs.
Je voudrais savoir comment je peux modifier mon code?

Merci par avance.

 

[Paritec]

Re : Copie de valeurs sur plusieurs feuilles sans les formules

Bonjour Js55 le forum

Sub copie()
    Sheets("Feuil1").Columns("A:B").Copy Sheets("Copy").Columns(1)
    Sheets("Feuil1").Columns("E:E").Copy
    Sheets("Copy").Range("C1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

bonne journée
Papou😱

 

[js55]

Re : Copie de valeurs sur plusieurs feuilles sans les formules

Merci pour cette réponse!
Mais je peut aussi avoir des formules qui génèrent des valeurs en format texte, je remet un exemple dans mon fichier pour le format texte.
Du coup après avoir rajouté mon format texte, le format nombre ne marche plus .. je ne sais pas trop ce que j'ai fait.
je remet mon fichier avec mes nouvelles erreurs.

Merci d'avance !

 

[Paritec]

Re : Copie de valeurs sur plusieurs feuilles sans les formules

Bonjour Js55 le forum
bon je pense que tu te moques de moi, alors je vais attendre que tu passes un fichier avec les macros ( je ne vais pas refaire à chaque fois)
Ou alors tu ne sais même pas qu'un fichier .xlsx ne comporte pas de macro ??? Pourtant à l'enregistrement tu as bien un message d’alerte t'informant que les macros ne seront pas enregistrées
a+
Papou😱

 

[js55]

Re : Copie de valeurs sur plusieurs feuilles sans les formules

Excuse-moi je ne savais pas, et en effet je n'ai pas vu le message d'erreur.
Mais c'est bon j'ai résolu mon problème.
Merci pour l'aide 🙂

 

[Paritec]

Re : Copie de valeurs sur plusieurs feuilles sans les formules

Re js55 le forum
oui la solution c'est

Sub copie()
    Sheets("Feuil1").Columns("A:B").Copy Sheets("Copy").Columns(1)
    Sheets("Feuil1").Columns("E:F").Copy
    Sheets("Copy").Range("C1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

a+
Papou😱