Discussion :

[Serge_BDD]

Bonjour,

Confronté à de grandes quantités de données, je souhaite pouvoir convertir des données string en nombre sans passer par des boucles. Par exemple, comment passer une colonne entière de string en integer d'un "seul coup", donc sans boucle ?

Quelqu'un peut-il me mettre sur la piste ?

Merci.

Serge_BDD

[Invité]

bonjour,
donnes des exemples de nombre! 1.1; 1,1; 1;??

Code Conversion Double Integer :

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

1
2
3
4
5
6
Sub test()
Range("A1:A100") = "1.1"
Range("A1:A100").NumberFormat = "#"
Range("A1:A100").Value = Range("A1:A100").Text
Range("A1:A100").NumberFormat = "General"
End Sub

[halaster08]

Bonjour,

Comme ceci:


Si tu as absolument besoin du code VBA, l'enregistreur de maccro te le donnera.

[Serge_BDD]

bonjour,
donnes des exemples de nombre! 1.1; 1,1; 1;??

Code Conversion Double Integer :

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

1
2
3
4
5
6
Sub test()
Range("A1:A100") = "1.1"
Range("A1:A100").NumberFormat = "#"
Range("A1:A100").Value = Range("A1:A100").Text
Range("A1:A100").NumberFormat = "General"
End Sub

Merci pour ta réponse, que je vais essayer cet après-midi.

Si tu veux des exemples de nombre : 15000, 6500, 4567, 234,50 (certains nombres ont des virgules etc

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Range("A1:A100").NumberFormat = "General"
Range("A1:A100") = "1,1"
Range("A1:A100").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Range("A1:A100").NumberFormat = "#"
Range("A1:A100").Value = Range("A1:A100").Text
Range("A1:A100").NumberFormat = "General"
End Sub

[Serge_BDD]

Bonjour Durupt,

J'ai testé ton modèle. Mais pourquoi imposes-tu un nombre ("1,1") au départ ?
Peut-être n'ai-je pas su l'adapter ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Range("A1:A100").NumberFormat = "General"
Range("A1:A100") = "1,1"
Range("A1:A100").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Range("A1:A100").NumberFormat = "#"
Range("A1:A100").Value = Range("A1:A100").Text
Range("A1:A100").NumberFormat = "General"
End Sub

[Invité]

bonjour,
tu voulais que je te donnes un exemple sans exemple?

[Oliv-]

Bonjour,

L'équivalent de ce que tu montres c'est ça

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
20
Sub FormatGeneralSurColonne()
    Application.ScreenUpdating = False
    Calcul = Application.Calculation
    Application.Calculation = xlCalculationManual
    Dim c As Range, MonText As String
    If Selection.Cells.Count > 1 Then
        Set MaSelection = Intersect(Selection.SpecialCells(xlCellTypeVisible), Range("A1", ActiveSheet.UsedRange))
    Else
        Set MaSelection = Selection
    End If
    If MaSelection.Areas.Count = 1 And MaSelection.Columns.Count = 1 Then
        MaSelection.TextToColumns Destination:=MaSelection, DataType:=xlDelimited, _
                                  TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                                  Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                                                                                            :=Array(1, 1), TrailingMinusNumbers:=True
    Else
        Msgbox "veuillez sélectionner une seule colonne"
    End If
    Application.Calculation = Calcul
End Sub