[Excel VBA] Formater une cellule en texte

Résolu/Fermé
Thiby - 18 juil. 2007 à 18:21
 holden - 16 mai 2011 à 06:35
Bonjour,

Tout d'abord merci de vous intéressé à mon petit problème ( de noob, il faut bien le dire...)

Je vous présente les faits. Je cherche désespèrément à formater une cellule d'une feuille excel pour recevoir des chaînes de caractères.

J'ai parcouru pas mal de discussions sur le net sans succès. De plus mon ami Google semble être parti en vacance...

J'explique pourquoi j'ai besoin de cela. Je dispose de nombres du type : 0000573763.
Malheureusement si je place bêtement ces nombres dans la cellule, je vois partir mes "0" sans même me dire au revoir....

Or en définissant les cellules au format texte, je peux garder l'intégralité de mes nombres. Alors j'ai pensé écrire un truc du genre : Cells(ligne, colonne).stringFormat = true;
(Après tout, on peut bien écrire : cells(ligne, colonne).numberFormat= ...)
Mais évidemment c'était trop beau pour fonctionner...

Donc voilà mon petit problème.
En espérant que quelqu'un veuille bien me prêter un cerveau! Merci d'avance :)
A voir également:

9 réponses

Utilisateur anonyme
18 juil. 2007 à 21:29
Bonjour,

Pour conserver la propriété texte de la cellule, utiliser :

Cells(ligne, colonne).NumberFormat = "@" ' Format Texte

exemple :

Sub CaptureDonnee()

    Dim Valeur As Variant, Donnee As String
    
    Cells(Ligne, colonne) = "@"   'Texte
    
    ' Si vous n'effectuer pas le contrôle
    Donnee = Cells(Ligne, colonne).Value
    
    ' Si vous effectuer le contrôle
    Valeur = Cells(Ligne, colonne).Value
    Donnee = CStr(Valeur)
    
End Sub
'

Lupin
26