Modification format colonne

Bonjour,

Je débute en VBA et je souhaiterai modifier le format d'une colonne, en format Texte.

J'ai pour cela tout d'abord utilisé la fonction suivante : Columns("J:J").NumberFormat = "@"

Mais cela n'a pas fonctionné. Il me restait toujours 1 ou 2 cellules en format nombre.

J'ai donc utilisé l'enregistreur de macro pour pouvoir récupérer le code de la fonction "Convertir" qui se trouve dans "Outils de données".

Le résultat est le suivant :

Worksheets("N").Columns("J:J").TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 2), TrailingMinusNumbers:=True

Y a t'il possibilité de simplifier ce code?

Je vous remercie d'avance pour votre aide;

Bonjour Charlotte175,

Quel est le maximum de lignes utilisables que pourrais comporter cette colonne.

Ce qui ne me pose aucun souci jusqu'à présent. C'est le code suivant.

Sub Formatext()
Range("J1:J1000").select    ' pour un max de lignes de 1000 par ex.
Selection.NumberFormat="@"
Range("J1").activate
End sub

Bons tests, bonne continuation.

Bonjour,

Ma colonne a généralement entre 9 000 et 10 000 lignes, mais cela peut varier. C'est pour cela que j'ai directement sélectionné la colonne entière.

Y a t'il un code qui puisse prendre en compte toute ma colonne, sans préciser un nombre de lignes?

Bonjour Charlotte175,

Tu inscris J1:J12000. Ainsi tu ne dépasseras.

Bonne continuation.

Bonjour,

Cela ne fonctionne pas. J'ai toujours 2 cellules qui ne sont pas au format texte..

A nouveau,

Quel format ont-elles ces deux cellules?

Copie ces 2 cellules récalcitrantes en haut d'une feuille libre d'un nouveau fichier.

Rajoute si tu souhaites d'autres nombres en dessous.

Puis poste ce simple fichier sur le site.

A suivre...