VBA convertir texte en nombre

Résolu

fapfapfap -
sagessedz Messages postés 4 Statut Membre - 19 mai 2017 à 21:59

Bonjour,

j'ai dans mon documents une plage de cellules où des nombres sont stockés sous forme de texte...j'aimerais avoir quelques lignes de code VBA les convertissant en nombre pour pouvoir les utiliser dans des calculs.

Pourriez vous svp m'aider? (excel 2007)

merci d'avance :)

Afficher la suite

A voir également:

Convertir texte en nombre vba
Excel vba convertir texte en nombre - Meilleures réponses
Vba convertir nombre en texte - Meilleures réponses
Convertir audio en texte - Guide
Traitement de texte - Guide
Convertir 100m3 en m2 ✓ - Forum Programmation
Convertir epub en kindle - Guide
Nombre facile - Télécharger - Outils professionnels

6 réponses

Réponse 1 / 6

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
Bonjour,
Par exemple, pour convertir A1:A10 en Nombres entiers :
```
Sub essai()
Dim Tabl(), i As Long
Tabl = Range("A1:A10")
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    Tabl(i, 1) = CInt(Tabl(i, 1)) 'remplacer CInt par CDbl si nombres décimaux
Next
Range("A1").Resize(UBound(Tabl, 1), 1) = Tabl
End Sub
```
2
1. fapfapfap
  
  Merci, la méthode fonctionne mais uniquement sur la colonne une.
  
  La plage a transformer dans mon cas contient 2 colonnes...
  
  Pouvez vous encore m'indiquer la solution?
  
  Merci encore pour l'aide précieuse!
  
  0
2. fapfapfap
  
  En fait c'est bon, je vais simplement déclarer une autre variable et recopier les mêmes lignes à la suite.
  
  Merci encore!!
  
  ps: je n'arrive plus à passer le topic en résolu...si un modo pouvait s'en charger pour moi...
  
  0
3. juguy
  
  Bonjour pijaku, j'ai essayé ton code en remplaçant A10 par A50000 puisque j'ai plus de 30000 lignes, et j'obtiens une incompatibilité de type.
  Aurais-tu une idée?
  
  0
  1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773 > juguy
    
    Bonjour,
    
    Dans les lignes vides, tu essaies de transformer "rien" en nombre entier. Cela ne peut pas fonctionner.
    Cible ta dernière ligne remplie...
    
    Autre idée, peut être que dans tes 30000 lignes s'est glissée une valeur autre que des nombres... Une lettre? Une erreur #N/A? Autre?
    
    0

Réponse 3 / 6
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention 1 313

Bonjour,

pas besoin de macro :

1°) écrire 1 dans une cellule. Sélectionner la cellule et copier-là.
2°) Sélectionner la plage de cellules où les nombres sont stockés sous forme de texte.
3°) Utiliser le collage spécial - Multiplication pour que le texte devienne un nombre.

Cordialement.
0
1. fapfapfap
  
  merci,
  
  mais en fait je compte intégrer ces lignes dans une macro déjà existante...
  
  Je connais votre méthode malheureusement j'ai vraiment besoin de passer par une macro
  
  merci
  
  0
2. fapfapfap
  
  Je viens d'essayer la méthode et ca ne marche pas...j'ai toujours le petit triangle vert me disant que le contenu des cellules est au format texte.
  j'ai utilisé votre méthode dans une macro:
  
  Columns("M:N").Select
  Selection.NumberFormat = "0.00"
  Range("O3").Select
  ActiveCell.FormulaR1C1 = "1"
  Range("O3").Select
  Selection.Copy
  Range("M5:N277").Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
  SkipBlanks:=False, Transpose:=False
  ActiveWindow.ScrollRow = 269
  ActiveWindow.ScrollRow = 267
  ActiveWindow.ScrollRow = 266
  ActiveWindow.ScrollRow = 264
  ActiveWindow.ScrollRow = 262
  ActiveWindow.ScrollRow = 258
  ActiveWindow.ScrollRow = 255
  ActiveWindow.ScrollRow = 251
  ActiveWindow.ScrollRow = 247
  ActiveWindow.ScrollRow = 243
  ActiveWindow.ScrollRow = 238
  ActiveWindow.ScrollRow = 235
  ActiveWindow.ScrollRow = 231
  ActiveWindow.ScrollRow = 229
  ActiveWindow.ScrollRow = 226
  ActiveWindow.ScrollRow = 222
  ActiveWindow.ScrollRow = 219
  
  etc etc...
  
  D'où vient l'erreur svp??
  
  Merci
  
  0
Réponse 4 / 6
fapfapfap

Une idée s'il vous plaît!!!
0
1. White
  
  Bonjour,
  
  j'ai le même problème, manuellement le collage spécial transforme les valeurs en nombres mais ça ne fonctionne pas en vba... As-tu trouvé une solution ?
  
  Merci d'avance,
  
  Cordialement.
  
  0
2. ptimoun
  
  'transformation colonne b
  Dim Tabl(), i As Long
  Tabl = Range("B4:B33")
  For i = LBound(Tabl, 1) To UBound(Tabl, 1)
  Tabl(i, 1) = CInt(Tabl(i, 1))
  Next
  Range("B4").Resize(UBound(Tabl, 1), 1) = Tabl
  
  'transformation colonne C
  Dim Tabl1(), j As Long
  Tabl1 = Range("c4:c33")
  For j = LBound(Tabl1, 1) To UBound(Tabl1, 1)
  Tabl1(j, 1) = CInt(Tabl1(j, 1))
  Next
  Range("c4").Resize(UBound(Tabl1, 1), 1) = Tabl1
  
  Voila comment, j'ai fait pour traiter 2 colonnes
  
  0
3. morjen
  
  merci pour tout
  il m'affiche un erreur'13' au niveau de Tabl(i, 1) = CInt(Tabl(i, 1))
  que ce que je faire ?
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 6
adenZZ

mais moi il m'affiche un erreur au niveau de Tabl(i, 1) = CInt(Tabl(i, 1))
je ne sais pas si je dois changer quelque chose?
d'avance merci
0
1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Bonjour,
  Quel est le message d'erreur?
  
  0
2. adenZZ
  
  merci pijaku j'ai utilisé excel direct avec la méthode basic convertir dans le menu donnée
  bonne journée
  
  0
  1. simo > adenZZ
    
    Oui exactement, c'est la bonne solution.
    
    0
Réponse 6 / 6
abousafia Messages postés 1 Statut Membre

sans utiliser de macro
les nombres sous forme de texte importé en tableau (a1:n300) dans la feuil1
dans la feuil2 a1=SUBSTITUE(Feuil1!A1;",";"."),recopier la formule jusqu’à ...
dan la feuil3 a1==ARRONDI(Feuil2!A1;2);recopier la formule jusqu’à ...
et les nombres dans la feuil3 sont converti
0
1. sagessedz Messages postés 4 Statut Membre
  
  salut
  pour solutionner ce pblm il faut nommer les cellules à convertir puis utilisez le code VBA suivant:
  1 pour le format nombre nommez "Montant"
  puis voila le code
  
  ' convertir_TexteNombre Macro
  Sub convertir_TexteNombre()
  Range("Montant").Select
  Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  :=Array(1, 1), TrailingMinusNumbers:=True
  End Sub
  
  2 Pour les dates
  ' Convertir_TexteDate Macro
  
  Sub Convertir_TexteDate()
  Range("Dates").Select
  Selection.TextToColumns Destination:=Range("H2"), DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  :=Array(1, 4), TrailingMinusNumbers:=True
  End Sub
  
  Bon courage
  
  0
2. sagessedz Messages postés 4 Statut Membre
  
  Oh j'ai oublier
  2 pour le format date nommez "Dates"
  
  0

VBA convertir texte en nombre

6 réponses

Discussions similaires

Newsletters