Discussion :

[Eric93]

Bonjour,

J'ai une zone texte issue d'un enregistrement, cette zone ne contient que des chiffres, par exemple "00123456"

J'aimerai transformer cette zone en format numérique avec suppression des zéros à gauche et séparateur de millier, dans cet exemple "123.456"

Je pense pas que ca soit compliqué mais je débute en VB, merci d'avance

[Jean-Philippe André]

bonjour,
tu peux regarder l'aide en ligne à propos de la fonction format

[Eric93]

Merci,

Code :

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

Format(expression[, format])

Le problème c'est que pour format il parle de format numérique défini par l'utilisateur sans en donner la syntaxe.

Je cherche encore

[ucfoutu]

Tiens, ce n'est en effet pas compliqué du tout, mais moi, j'ai voulu compliquer la chose :

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
21
Private Sub Command1_Click()
  Dim chaine As String, chaine1 As String
  chaine = "001231234256"
  chaine1 = CStr(Val(chaine))
  If Len(chaine1) > 3 Then
    chaine = ""
    reste = Left(chaine1, Len(chaine1) Mod 3)
    chaine1 = Mid(chaine1, Len(reste) + 1)
    For i = 1 To Len(chaine1) Step 3
       chaine = "." & Right(chaine1, 3) & chaine
      chaine1 = Left(chaine1, Len(chaine1) - 3)
    Next
    If Left(chaine, 1) = "." Then chaine = Mid(chaine, 2)
    If Len(reste) > 0 Then
      chaine = reste & "." & chaine
    End If
  Else
    chaine = chaine1
  End If
  MsgBox chaine
End Sub

Il y a évidemment beaucoup plus simple à faire, mais voilà ... j'ai voulu te montrer comment on traite et te laisser réfléchir à du plus simple sur ces bases

Il est maintenant clair que si tu faisais comme tout le monde (en choisissant l'espace comme séparateur) ce serait quand même plus simple :

genre :

Code :

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

1
2
3
4
5
6
Private Sub Command2_Click()
  Dim chaine As String
  chaine = "001231234256"
  chaine = Format(chaine, "#,000")
  MsgBox chaine
End Sub

[Eric93]

Merci,

C'est clair que tu as compliqué, mais je vais pas avoir à réfléchir longtemps car ta 2ème solution avec l'espace me conviens parfaitement

Sinon comment connaitre la facon de coder les format ? en l'occurence "#,000"

Merci beaucoup

[Invité]

Bonjour

Tous simplement en utilisant l'aide.

Starec

[Eric93]

J'ai pas trouvé, pas grave, merci

[ucfoutu]

Merci,

C'est clair que tu as compliqué, mais je vais pas avoir à réfléchir longtemps car ta 2ème solution avec l'espace me conviens parfaitement

Merci beaucoup

Allons bon ...

J'espérais plus d'opiniatreté, mais elle n'est pas là !
J'espérais que l'on me dise qu'il suffirait alors de remplacer les espaces par des "." ....
Ce qui m'aurait donné l'occasion de parler des formatages de VB !!

Bon... Nous allons quand même en parler ... tout seul ....

Dans ce formatage, contrairement à ce que l'on pense, VB n'utilise pas l'espace et

Code :

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

Replace(Format(chaine, "#,000"), " ", ".")

ne changerait absolument rien, puisqu'il n'y a pas d'espaces ...

En réalité, VB formate en utilisant le caractère 160 ...

et alors ?

Alors :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
  Dim chaine As String
  chaine = "001231234256"
  chaine = Replace(Format(chaine, "#,000"), Chr(160), ".")
  MsgBox chaine
End Sub

et te voilà servi, Eric, ... avec tes points ...

Patapé ... je sors ...

[Eric93]

J'ai pris la peine de lire quand même, merci beaucoup pour ces infos.

En fait je ne voulais pas absolument un point, l'espace me conviens

[AlainTech]

J'ai pas trouvé, pas grave, merci

Je trouve que tu n'y as pas mis beaucoup d'ardeur...

J'ai ouvert le VBE, j'ai tapé format, puis F1, puis "Voir aussi".
Dans la liste proposée, il y a "Formats numériques définis par l'utilisateur (fonction Format)".
Tout y est.

[Bigalo]

Bonsoir,

Juste quelques précisions d’un Mac User.

Tout ce qu’a dit ucfoutu est valable pour les versions Windows à partir d’Excel 2000.

En réalité, VB formate en utilisant le caractère 160

Il faut juste se méfier des caractères au-delà de 127. En effet ils diffèrent selon qu’on utilise Mac OS ou Windows.

Le code ASCII au sens strict, est codé sur 7 bits et ne permet de définir que les caractères 0 à 127. Au delà (128 à 255), ils dépendent de la plate-forme, à moins de travailler en Unicode.

En l’occurrence, sur Mac, ce n’est pas le caractère 160 qui est utilisé comme séparateur de milliers, mais le caractère 32 (l’espace standard).

En outre la fonction Replace n’existe que si la version de VBA repose sur VB6. Or les versions Mac, et Excel 97 sont basées sur VB5.

Pour avoir quelque chose qui fonctionne avec toutes les versions d’Excel, il faut adapter ainsi le code :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function Remplace(Chaine$, Ancien$, Nouveau$)
        #If Mac Then
            Remplace = Application.WorksheetFunction.Substitute(Chaine, Ancien, Nouveau)
        #ElseIf VBA6 Then
            Remplace = Replace(Chaine, Ancien, Nouveau)
        #Else
            Remplace = Application.WorksheetFunction.Substitute(Chaine, Ancien, Nouveau)
        #End If
End Function

dans un module standard, et

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Dim Chaine As String, OS As String
    OS = Mid(Application.OperatingSystem, 1, 3)
    Chaine = "001231234256"
    Chaine = Format(Chaine, "#,000")
    Chaine = Remplace(Chaine, Chr(IIf(OS = "Win", 160, 32)), ".")
    MsgBox Chaine
End Sub

dans le module associé au UserForm

OK, moi aussi, je sors,

Cordialement,

[ucfoutu]

Bonsoir Bigalo,

Je t'aprécie beaucoup (tu es un vrai de vrai )

J'espère que tout celà ne partira maintenant pas aux oubliettes (ce serait vraiment dommage, car il est très rare que ce genre de détail soit abordé en ce qui concerne VB )

[Bigalo]

Re,

Merci pour les compliments

Depuis peu, un site m’a été offert ici, sur developpez.com.

Il n’est pas encore fonctionnel, il faut d’abord que je maîtrise les outils, pas forcément conçus pour être utilisés avec un Mac.

Un peu de patience, et j’essaierai d’y reprendre un certain nombre de choses dont celle-ci

Cela fait longtemps que j’utilise Excel et ses macros, longtemps avec l’ancien langage, les macros XL4 ou XLM, et maintenant VBA. C’est vrai que nous ne sommes pas nombreux à nous préoccuper de la compatibilité entre versions Win et Mac .

Très cordialement,

PS - C’est où le pays de la liberté d'esprit ?

[Eric93]

Effrectivement, tout étais dans l'aide, mais je n'avais pas trouvé.

Merci beaucoup