Discussion :

[antoisse3]

Bonjour à tous,

J’ai un fichier avec des numéros stockés en format texte. Il est possible de les convertir manuellement mais mon fichier Excel contient énormément de données (de la plage A jusqu’à la plage NI) et il n’est donc pas faisable de les convertir un par un. Il y a des nombres entiers et décimaux.
Savez-vous comment les convertir via un code VBA s’il vous plaît ?

Merci d’avance.

[adama13]

Bonjour Antoisse

J'ai pas bien compris ta question

tu souhaiterais convertir en quel format?

[joe.levrai]

Bonjour,

une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Conversion()
Dim Plage As Range
Dim Cell As Range
Dim Derlig As Long
 
Derlig = Sheets("Feuil2").UsedRange.Rows.Count
Set Plage = Range("A" & Derlig & ":NI" & Derlig)
 
For Each Cell In Plage.Cells
    If IsNumeric(Cell.Value) And Cell <> "" Then
        Cell.Value = Application.WorksheetFunction.Value(Cell.Value)
        Cell.NumberFormat = "0"  'adapter le format en fonction du type de nombre dans tes cellules
    End If
Next Cell
 
Set Plage = Nothing
 
End Sub

[antoisse3]

Merci beaucoup pour vos réponses et pour l'aide. Je vais essayer d'appliquer le code qui m'a été proposé. Je vous en remercie !

Concernant ma question qui n'a pas paru très claire, il s'agit de convertir des données sous format texte en format numérique afin de pouvoir effectuer des calculs.
Voici un exemple en pièce jointe : dans la colonne A, les données sont stockées en format texte et en C, elles sont converties en format numérique manuellement.
Je souhaiterais avoir un code VBA pour faire cette conversion car j'ai énormément de données à convertir (passage du format texte en format numérique pour effectuer des calculs) tout en gardant le même emplacement dans le tableau Excel (la donnée convertie doit rester dans la même cellule).

Merci beaucoup !

[clementmarcotte]

Merci beaucoup pour vos réponses et pour l'aide. Je vais essayer d'appliquer le code qui m'a été proposé. Je vous en remercie !

Concernant ma question qui n'a pas paru très claire, il s'agit de convertir des données sous format texte en format numérique afin de pouvoir effectuer des calculs.

Merci beaucoup !

Dans ton aide de VBA:

Csng, Cdbl, Cint, Clng, Ccur (méthodes orthodoxes)


Ou bedon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").value = Range("A1").value + 0

Ou bedon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").value = Range("A1").value * 1

[Promethee25]

Bonsoir,

As-tu vraiment besoin d'une macro?
Excel sait très bien le faire:

[antoisse3]

Bonsoir à tous,

Je vous remercie de votre aide. Grâce à vous, j'ai trouvé une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub convertir()
 
Dim plage As Range, cel As Range
Set plage = Range([A2:A400], [NI2:NI400].End(xlUp))
For Each cel In plage
If IsNumeric(cel.Value) And cel.Value <> "" Then
    cel = cel * 1
    End If
  Next cel
Set plage = Nothing
End Sub

Cependant, mon macro fonctionne feuille par feuille. Est-il possible de faire fonctionner le macro pour toutes les feuilles du classeur s'il vous plaît ?
Merci !

Oui Promethee25, merci. Excel sait le faire mais j'ai plusieurs pages de données.

[Promethee25]

Il n'y a pas grand-chose à modifier dans ton code; juste rajouter une boucle sur les feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub convertir()
 
Dim plage As Range, cel As Range
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
    Set plage = sh.Range(sh.[A2:A400], sh.[NI2:NI400].End(xlUp))
    For Each cel In plage
    If IsNumeric(cel.Value) And cel.Value <> "" Then
        cel = cel * 1
        End If
      Next cel
Next sh
Set plage = Nothing
End Sub