XL 2010 vba copier coller valeur

[kan3pz]

Bonjour à tous,
J'ai besoin d'une petite aide sur une macro je souhaite copier coller des données dans un autre onglet en valeur, j'utilise donc le code suivant :

Cells.PasteSpecial Paste:=xlPasteValues
Cells.PasteSpecial Paste:=xlPasteFormats

Le problème c'est que j'ai des données numériques stockées sous format texte pour garder un "0" devant, exemple :
055 ; 000 etc lorsque j'utilise cette fonction les "0" disparaissent est-il possible de conserver ces 0 lors de la copie ?
Merci d'avance !

 

[Lone-wolf]

Bonjour kan

Un essai comme ceci :
If IsNumeric(Cells) Then Cells = Format(Cells, "000")

 

[mutzik]

bonjour
si tu veux un affichage de chiffre sur 3 chiffres avec éventuellement un ou 2 zéros devants, il vaut mieux formatter la cellule avec '000'
tu pourras toujours utiliser tes chiffres comme des chiffres pour faire des calculs et à la visualisation et à l'impression tu auras tes 0
et tu fais pareil à l'endroit ou tu pastes tes valeurs. Mais par pitié, sauf besoin particulier, enlèves ce format texte

format de cellule/personnalisé/au lieu de standard ou texte, tu mets 000;-000;000;@
s'il te faut des décimales 000,00;...

Salut LoneWolf, ta macros ne fonctionnera pas puisqu'il a dit qu'il transférait des cellule texte vers un autre onglet

 

[Lone-wolf]

Bonjour Bertrand

Format-personnalisé - c'est ce que j'allais proposer après test négatif, mais tu m'a devancé.

 

[kan3pz]

Bonjour Lone-wolf & mutzik,
merci pour le conseil, mais ça ne me permettait pas d'arriver à mes fins, j'ai donc rajouté un apostrophe devant mon chiffre avec mes 0.
A+