Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cellules format texte contre format nombre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

choupi_nette

XLDnaute Occasionnel
Bonjour a toutes et a tous,

J'ai un souci de format de cellules sous Excel 2003
J ai une lite de nombres
Quand je formate les cellules en texte et que je repasse en nombre, Excel les garde en format texte
Et je suis obligée de cliquer INDIVIDUELLEMENT dans chaque cellule pour revalider la nouvelle mise en forme
Comment automatiser cette validation sachant que j ai des milliers de lignes ?

Quelqu'un sait ?
Merci d'avance
 
Re : Cellules format texte contre format nombre

Bonjour Choupi-nette,
Quand je formate les cellules en texte et que je repasse en nombre ..........
Alors il ne fallait pas le faire !!! 😀

Plus sérieusement, sans voir ton fichier ce ne sera pas évident pour t'aider
je n'arrive pas à reproduire cela sur une feuille de mon classeur

à+
Philippe
 
Dernière édition:
Re : Cellules format texte contre format nombre

Bonjour Choupinette, Philippe

essaye la conversion, tu sélectionnes ta colonne => barre de menu Excel => Données => convertir...

bon après midi
@+
 
Re : Cellules format texte contre format nombre

Bonjour choupi_nette, Bonjour Philippe 🙂, Bonjour Pierrot 🙂,
J'ai reproduit le problème et la converstion de données n'a pas fonctionnée.
Ce ne sera peut être pas nécessaire, mais au pire on peux utiliser ceci:
VB:
Sub Text_Nbr()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Sheets("Sheet1").Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    If IsNumeric(C.Value) Then
        C.NumberFormat = "0"
        C.Value = CDbl(C.Value)
    End If
Next C
Application.ScreenUpdating = False
End Sub
Cordialement

EDIT Suiis aller trop vite, le code était un peu "en vrac"

EDIT2 Juste pour le plaisir:
VB:
Sub Text_Nbr_2()
Dim T()
With Sheets("Sheet1").Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    T = .Value
    .Value = T
End With
End Sub
Cordialement
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
173
Réponses
26
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…