Convertir un string en nombre sans utiliser une boucle

Version imprimable

14/09/2016, 11h32
Serge_BDD

Convertir un string en nombre sans utiliser une boucle

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

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

Code:

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

14/09/2016, 11h51
halaster08

1 pièce(s) jointe(s)

Bonjour,

Comme ceci:
Pièce jointe 220260

Si tu as absolument besoin du code VBA, l'enregistreur de maccro te le donnera.
14/09/2016, 12h06
Serge_BDD

Convertir un string en nombre sans utiliser une boucle
Citation:
Envoyé par rdurupt

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

Code:

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

Code:

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

Convertir un string en nombre sans utiliser une boucle

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 ?

Citation:

Envoyé par rdurupt

Code:

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

20/09/2016, 13h01
Invité

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

Bonjour,

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

Code:

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