Copier format

[sarah]

Bonjour

J'ai disons 3 colonnes (flexibles en longueur) avec des chiffres et je souhaite les transformer en format = text(la cellule variable;"0"), avec l'aide d'une macro.

Je vous remercie par avance et bonne journée!

 

[wilfried]

Salut sarah,

Si tu connais la position de tes cellules :

range("A1").select
selection.formatnumber="0.000" si tu veu 3 chiffres après la virgule, sinon 0
si tu veux les transformer en texte , selection.formatnumber="@"

A+ wilfried

 

[sarah]

Bonjour Wilfried

Merci pour ta réponse, je te montre le code que j'ai écrit pour convertir une colonne B en format texte avec pour référence la colonne A. Je souhaite utiliser la formule Text car le résultat pour mon problème demeure avec selection.formatnumber="@"

Ce code fonctionne avec la fonction ROUND, mais ne fonctionne plus avec la fonction TEXT...

Merci de m'aider!

Sub test()
Sheets("Sheet1").Select
Range("a1").Select
Set myRange = ActiveCell.CurrentRegion
myRange.Columns(1).Select
Selection.Copy
Range("b1").Select
ActiveSheet.Paste
Dim myRange1 As Range
Set myRange1 = ActiveCell.CurrentRegion
myRange1.Columns(2).Select
Selection.Formula = "=round(a1,1)"

End Sub