XL 2016 RÉSOLU Convertir plage texte en nombre

pierrejean

XLDnaute Barbatruc

• 20 Juillet 2018

• #2

Bonjour MASSJIPE

En appliquant cette macro

Code:

Sub nombres()
For Each cel In Range("A1:T15")
 If IsNumeric(cel.Value) And cel.Value <> "" Then
    cel.NumberFormat = "0.000;[Red]0.000"
    cel.Value = cel.Value * 1
 End If
Next
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #3

Bonsoir le fil, le forum, MASSJIPE, pierrejean

Pas sur d'avoir tout compris
(pas vérifier si d'éventuels effets de bord)
Une autre macro (sans boucle)

VB:

Sub Macro1()
Range("A1:T15").SpecialCells(xlCellTypeConstants).NumberFormat = "#,##0.000;[Red]#,##0.000"
End Sub

EDITION: Bonsoir Dranreb

 

Dernière édition: 20 Juillet 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2018

• #4

Bonsoir.
On peut aussi faire comme ça :

VB:

Sub ConvertirEnNombres()
   Dim T(), L&, C&, V As Double
   On Error Resume Next
   With ActiveSheet.UsedRange
      T = .Value
      For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
         If VarType(T(L, C)) = vbString Then
            Err.Clear: V = T(L, C): If Err = 0 Then T(L, C) = V
            End If: Next C, L
      .Value = T: End With
   End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2018

• #5

Bonsoir à tous,

Je m'y mets aussi:

VB:

Sub EnNombre()
Dim xcell As Range
  Application.ScreenUpdating = False
  For Each xcell In Range("a1:t15")
    If xcell.Errors.Item(xlNumberAsText).Value = True Then xcell = 0 + xcell
  Next xcell
End Sub

Edit : le bon fichier

 

Pièces jointes

• MASSJIPE- DPU- v1.xlsm

  18 KB · Affichages: 29

Dernière édition: 20 Juillet 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #6

Re, Bonsoir mapomme

J'ai une question pour les boucleurs 😀

Qu'est-ce que ma "one-liner" ne fait pas que font vos boucles ? 😉
(cf le message#3)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2018

• #7

Bonsoir @Staple1600,

Staple1600 à dit:

Re, Bonsoir mapomme

J'ai une question pour les boucleurs 😀

Qu'est-ce que ma "one-liner" ne fait pas que font vos boucles ? 😉
(cf le message#3)

Cliquez pour agrandir...

Tu ne sais donc pas la boucler! 🙂😉😀😛 (servie sur un plateau, je ne pouvais pas la rater celle-la)

Je n'ai rien contre, néanmoins, à vue de nez, ta ligne de code modifie le format de la cellule. Et que se passe-t-il si le SpecialCells ne renvoie rien ?

 

Dernière édition: 20 Juillet 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #8

Re

@mapomme
J'ai une autre question pour boucler la boucle 😉
Quand on ouvre la PJ du message#1, les cellules contenant des nombres sont déjà considérés comme des nombres, non ?
(Je n'ai pas trouvé de cellules avec des nombres au format Texte)

PS: Pour ma ligne, je repris le format qu'on voyait dans le code de pierre-jean
(et il me semble que de mémoire, certaines des cellules de la PJ initiale avaient déjà ce format, non ?)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2018

• #9

Re,

Staple1600 à dit:

Quand on ouvre la PJ du message#1, les cellules contenant des nombres sont déjà considérés comme des nombres, non ?

Cliquez pour agrandir...

Je pense que c'est justement ce que veut voir disparaitre MASSJIPE: des nombres reconnus comme tels mais stockés sous forme de texte [souvent le cas quand on importe (ou copie/colle) des donnée issues d'un logiciel tiers]. C'est pourquoi j'utilise (pour la première fois) l'objet xcell.Errors avec le paramètre "xlNumberAsText".

Mais ta ligne doit fonctionner sauf si le SpecialCells ne renvoie rien.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #10

Re

@mapomme
Justement, j'ai pas trouvé de nombres stockés comme des textes
(J'ai utilisé F5 et toutes les cellules contenant des nombres furent sélectionnées)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #11

Re

J'en rajoute une autre de macro 😉

VB:

Sub TwoLines()
ActiveSheet.UsedRange.NumberFormat = "General"
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub

Maintenant la question est: Est-ce toutes les macros proposées dans ce fil font ce que souhaitent le demandeur ?
😉
(et accessoirement font-elles toutes la même chose...ou pas ?)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2018

• #12

@Staple1600 Dans le fichier d'origine j'ai trouvé des nombres enregistrés sous forme de texte.
Ma macro les convertit en nombres sans changer (sauf accident improbable trop compliqué à expliquer) le format de cellule, et il me semble que c'était ce que voulait le demandeur. Mais elle convertit aussi les formules en leurs valeurs, ça c'est peut être gênant.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2018

• #13

Re,

Staple1600 à dit:

Justement, j'ai pas trouvé de nombres stockés comme des textes

Cliquez pour agrandir...

Et portant quand j'ouvre le fichier de MASSJIPE, j'ai un paquet de nombre stockés sous forme texte. Voir dans capture d'écran toutes les cellules comprenant un message d'avertissement.

 

Pièces jointes

• NBR sous forme Texte.jpg

  247 KB · Affichages: 26

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2018

• #14

Re

@Dranreb
Exact
F5/Constantes/Texte renvoie:
B1,A1:A2,C1:C2,B4,E4:I5,N4:Q5,A4:A5,C4:C5,B7,E7:L8,N7:S8,A7:A8,C7:C8,B10,A10:A11,C10:C11,B13,A13:A14,C13:C14

Mais par exemple, clic-droit sur C2* => Format de cellule affiche Standard ???
(qui contient: 0,321)

EDITION: mapomme
A cette heure, ma vue baisse et mes neurones déclinent 😉

 

Dernière édition: 20 Juillet 2018

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2018

• #15

Bonjour @Dranreb 🙂,

Dranreb à dit:

Mais elle convertit aussi les formules en leurs valeurs, ça c'est peut être gênant.

Cliquez pour agrandir...

Peut-on avoir une formule qui renvoie un nombre stocké sous format texte ? Je ne vois pas comment mais pourquoi pas. Il me semble qu'une formule renvoie soit du texte soit un nombre. Si le texte renvoyé est la représentation d'un nombre, on n'a pas le message "texte stocké sous forme texte", c'est un texte tout simplement. Si j'ai raison, il ne faudrait traiter que les cellules sans formule dans ta macro.

 

Dernière édition: 21 Juillet 2018

Vote positif 0 Vote négatif