Copier format

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

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