VBA retranscrire en conservant le format

Bonjour,

Admettons que dans ma cellule A1 de ma feuille1 j'ai cette référence : 00080555. Je souhaiterais la retranscrire dans la cellule A1 de la feuille2 en utilisant ce code vba :

Ref = Worksheets("Feuil1").Cells(1,1)

Worksheets("Feuil2").Cells(1,1) = Ref

Cette macro faire perdre les premiers 0 de la chaîne de caractère, or j'aimerais les conserver. Auriez-vous une solution à ce problème ? J'ai essayé en déclarant ma variable comme "String" mais cela ne fonctionne pas...

Merci de votre aide

Bonjour,

Un des principaux intérêts des macros et des variables VBA c'est de ne ne pas s'occuper des formats, objets, mise en forme, propriétés... pour ne s'intéresser qu'aux nombres qui font somme toute l'essentiel de l’intérêt d'Excel.

Si tu t'intéresses au formats tu as 2 ou 3 solutions :

Soit tu fais un Copier/Coller pur et dur.

Soit ta cible est déjà formatée comme l'original et dans ce cas quand tu vas coller ta valeur elle se formatera toute seule.

Dernière hypothèse : tu enregistres des macros qui vont définir les formats...

A+

Salut Galopin,

Je vais choisir l'option de copier/coller la cellule. Je comprends bien que ce n'est pas "normal" pour Excel d'avoir des cellules commençant par "000"...

Merci de ton aide

Rechercher des sujets similaires à "vba retranscrire conservant format"