VBA excel: Ajouter des zéros après une virgule

**kimai81** · 17/02/2008, 13h38

Bonjour,

Je possède deux colonnes avec des chiffres dans ce style là:

16,265 <-> 16265
19,324<-> 19324
1,25<-> 1250
1,9<-> 1900
etc...

Ces chiffres proviennent d'une extraction d'un progiciel qui me les donne tels quels, impossible de changer la mise en forme.

Le problème vient donc de la virgule, au lieu de mettre 1,900 excel me met 1,9
Donc si j'enlève toutes les virgules j'ai un problème de valeur évident.

Voici ce que je voudrais obtenir :
16,265 <-> 16265
19,324<-> 19324
1,25<-> 1250
1,9<-> 1900

Je sais quelles sont les étapes à effectuer mais je ne sais pas programmer, pouvez-vous m'aider à entre le code suivant?

si pas de virgule --> ne rien faire
si 3 chiffres après la virgule--> ne rien faire
si 2 chiffres après la virgule --> ajouter 1 zéro
si 1 chiffre après la virgule --> ajouter 2 zéros

Puis enlever la virgule
Puis faire un séparateur de millier

En espérant apprendre des choses,
Sincères salutations,
Anita

**loris** · 17/02/2008, 15h00

Hello,

J'ai un petit doute sur l'expression du besoin: en fait, je pense que s'il n'y a pas de virgule, il faut ajouter 3 zéros au lieu de ne rien faire, comme indiqué. Correct?

Les chiffres reçus du progiciel sont formattés en millier avec la virgule symbolisant cette unité avec -si j'ai bien compris- l'absence de valeurs inférieures à 1.00 (e.g. 123.45 est reçu comme 123). Toujours correct?

Par ailleurs, qu'en est-il des montant supérieurs à 999'999.99? Les montants reçus sont-ils au format 1,000,000 ou en est-il autrement?

Avec des réponses précisant ces points, on devrait pouvoir aisément progresser.

A plus!

**ouskel'n'or** · 17/02/2008, 15h05

Je reprends ton exemple
16,265 <-> 16265
19,324<-> 19324
1,25<-> 1250
1,9<-> 1900
En supposant que les nombres décimaux se trouvent en colonne A et que tu souhaites voir le résultat en colonne B, tu fais simplement

Code :

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

Cells(NoLigne, 2).value = Cells(NoLigne, 1).value * 1000

**kimai81** · 17/02/2008, 15h51

Envoyé par ouskel'n'or

Je reprends ton exemple
16,265 <-> 16265
19,324<-> 19324
1,25<-> 1250
1,9<-> 1900
En supposant que les nombres décimaux se trouvent en colonne A et que tu souhaites voir le résultat en colonne B, tu fais simplement

Code :

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

Cells(NoLigne, 2).value = Cells(NoLigne, 1).value * 1000

J'ai effectivement pensé à ça mais j'ai des chiffres inférieurs à 1000

Exemple 566

Si je multiplie tout par mille 566 deviendra 566 000 ce qui est une erreur

**kimai81** · 17/02/2008, 16h07

Envoyé par loris

Hello,

J'ai un petit doute sur l'expression du besoin: en fait, je pense que s'il n'y a pas de virgule, il faut ajouter 3 zéros au lieu de ne rien faire, comme indiqué. Correct?

Les chiffres reçus du progiciel sont formattés en millier avec la virgule symbolisant cette unité avec -si j'ai bien compris- l'absence de valeurs inférieures à 1.00 (e.g. 123.45 est reçu comme 123). Toujours correct?

Par ailleurs, qu'en est-il des montant supérieurs à 999'999.99? Les montants reçus sont-ils au format 1,000,000 ou en est-il autrement?

Loris tu as raison je vais clarifier un peu mieux les choses:

Le progiciel me renvoie des valeurs entières comprises entre 0 et parfois plusieurs centaines de millions.
Jamais de décimales.

donc si il n'y a pas de virgules, cela veut dire que le chiffre est inférieur à 1000, donc il ne faut surtout pas ajouter des zéros et le laisser tel quel

si le progiciel renvoie 1,256 cela signifie 1256
pour 1,9 cela signifie 1900
pour 854 cela signifie 854
pour 94,521,21 cela signifie 94521210

Donc en fait il faudrait programmer ceci :

Cas 1:pas de virgule
- ne rien faire

Cas 2: une ou plusieurs virgule(s)
-si 3 chiffres après la dernière virgule--> ne rien faire
-si 2 chiffres après la dernière virgule --> ajouter 1 zéro
-si 1 chiffre après la dernière virgule --> ajouter 2 zéros

Puis enlever les virgules (en générale je passe par excel : ctrl-h et je remplace "," par "")
Puis faire un séparateur de millier

**casavba** · 17/02/2008, 18h04

Bonjour

Essaies ça et tiens moi au courant

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Anita()
 
Dim counter As Integer
Dim Position As Integer
Dim j As Integer
Dim W As Integer
 
 
For counter = 1 To Feuil1.Cells(65536, 1).End(xlUp).Row
 
    If Cells(counter, 1).Value Like "*,*" Then
            For j = 1 To Len(Cells(counter, 1).Value)
                If Mid(Cells(counter, 1).Value, j, 1) = "," Then
                    Position = j
                End If
            Next j
                If Len(Cells(counter, 1).Value) - Position = 1 Then
                        Cells(counter, 2).Value = Cells(counter, 1).Value & "00"
                    ElseIf Len(Cells(counter, 1).Value) - Position = 2 Then
                        Cells(counter, 2).Value = Cells(counter, 1).Value & "0"
                Else
                    W = InStr(1, StrReverse(Cells(counter, 1).Value), ",") + 1
                        If InStr(W, StrReverse(Cells(counter, 1).Value), ",") = 0 Then
                            Cells(counter, 2).Value = CInt(Format(Cells(counter, 1).Value * 1000, "#,##0"))
                        Else
                            Cells(counter, 2).Value = Cells(counter, 1).Value
                        End If
                End If
 
        Else
          Cells(counter, 2).Value = Cells(counter, 1).Value
 
    End If
 
Next counter
 
End Sub

Bien évidemment, tes données sont dans la colonne A et tes résultats sont dans la colonne B.

**ucfoutu** · 17/02/2008, 18h13

Bonjour,

pas le temps de peaufiner, mais voilà une idée (qui marche) à alléger comme tu l'entends ...

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
22
23
24
Private Sub Command1_Click()
  Dim toto As String
  toto = "1,9"
  MsgBox toto & " ===>> " & convertir(toto)
  toto = "854"
  MsgBox toto & " ===>> " & convertir(toto)
  toto = "94,521,21"
  MsgBox toto & " ===>> " & convertir(toto)
End Sub
 
Private Function convertir(toto As String)
  Dim titi
  If InStr(toto, ",") = 0 Then
    convertir = toto
    Exit Function
  End If
  convertir = ""
  titi = Split(toto, ",")
  For i = 0 To UBound(titi) - 1
    convertir = convertir & titi(i)
  Next
  toto = titi(UBound(titi))
  convertir = convertir & toto & String(3 - Len(toto), "0")
End Function

**ouskel'n'or** · 17/02/2008, 18h17

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 test()
For i = 1 To 4
    Select Case UBound(Split(Cells(i, 1), ","))
    Case 0
        Cells(i, 2) = Cells(i, 1)
    Case 1
        Cells(i, 2) = Cells(i, 1) * 1000
    Case 2
        Cells(i, 2) = Left(Cells(i, 1), InStr(Cells(i, 1), ",") - 1) & _
            CDbl(Right(Cells(i, 1), Len(Cells(i, 1)) - InStr(Cells(i, 1), ","))) * 1000
    Case 3
        'pour trois virgules
    End Select
Next
End Sub

En décomposant ce qui est fait dans la ligne pour deux virgules

Code :

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

1
2
3
'Lg = Len(Cells(i, 1)) - InStr(Cells(i, 1), ",")
'Temp = CDbl(Right(Cells(i, 1), Lg))
'Cells(i, 2) = Left(Cells(i, 1), InStr(Cells(i, 1), ",") - 1) & Temp * 1000

Invité · 17/02/2008, 18h51

Bonjour Kimai81,

Ucfoutu et Oukel'n'or : désolé j'étais en train de tester le code quand j'ai vu vos réponses.

Comme on le sait, il y a toujours plusieurs façons de faire la même chose, alors à toutes fins utiles je propose quand même ma solution qui devrait fonctionner avec un nombre de virgules indéfini :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Affiche_nombre()
  Dim Text, Tableau() As String
  Dim pl, dl, n As Long
  Dim c, cc  As Byte
    'Remplacer 2 par la première ligne de données le cas échéant
    pl = 1
     'Remplacer 1 par le numéro de colonne contenant les données le cas échéant
    pc = 1
 
   dl = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
 
 For n = pl To dl
   Text = Cells(n, pc)
   'Remplacer 2 par le numéro de colonne libre
   cc = 2
   mv = ""
    Tableau = Split(Text, ",")
     For i = 0 To UBound(Tableau)
     Cells(n, cc) = Tableau(i)
        cc = cc + 1
    Next i
 
        v = Cells(n, cc - 1)
            If Len(v) = 2 Then
            v = v & "0"
            ElseIf Len(v) = 1 Then
            v = v & "00"
            End If
         For c = cc - 2 To 2 Step -1
         v = Cells(n, c) & v
        Next c
Range(Cells(n, 2), Cells(n, cc)).Select
Selection.ClearContents
Cells(n, 2) = v
Next n
End Sub

**kimai81** · 17/02/2008, 19h27

Ucfoutu,
Mon fichier excel n'a pas trop aimé la macro, ça n'a pas marché!
je ne sais pas pourquoi.
En tout cas merci énormément pour ton aide

Jacques jean, Oukel'n'or et casavba:

Vraiment merci beaucoup, ça marche nickel.
Apparemment ça n'avait pas l'air si dur à faire mais c'est encore à des années lumières pour moi.

Petite mention spéciale à casavba dont la macro intègre en plus le séparateur de milliers.

Merci énormément à tout le monde pour votre contribution.

Ne voulant pas mourir idiote (bien que blonde), pourrais-je abuser de votre patience pour vous demander quelles sont les actions des méthodes suivantes?

Len
InStr
Ubound
Split (casser/séparer)??!!??

Bisous, Anita

**ucfoutu** · 17/02/2008, 19h31

Regarde maintenant...
On va faire sans le split, juste pour rigoler (et tu apprendras ainsi 2 autres fonctions) :

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 toto As String
  toto = "1,9"
  MsgBox toto & " ===>> " & convertir(toto)
  toto = "854"
  MsgBox toto & " ===>> " & convertir(toto)
  toto = "94,521,21"
  MsgBox toto & " ===>> " & convertir(toto)
End Sub
 
Private Function convertir(toto As String)
  Dim pos As Integer, titi As String
  pos = InstrRev(toto, ",")
  If pos = 0 Then
    convertir = toto
  Else
    titi = Mid(toto, pos + 1)
    convertir = Replace(Left(toto, pos - 1), ",", "") & titi & String(3 - Len(titi), "0")
  End If
End Function

Invité · 17/02/2008, 20h06

Bonsoir Kimai81,

Pour trouver ce que fait une fonction :

dans le code VBA vous cliquez sur un des caractères de la fonction par exemple Len et vous appuyez sur "F1".

La fonction Len renvoie le nombre de caractères contenus dans la cellule sélectionnée ou dans la variables qui contient la valeur.

Regardez de la même façon l'aide pour les autres fonctions dont vous parler.

Cliquez également sur "Exemple" lorsque cette option est valide.

Amicalement.

**kimai81** · 17/02/2008, 20h28

Jacques_jean: merci pour ton aide

tu peux me tutoyer!

ucfoutu:
A mon avis je dois manquer un wagon parce que lorsque j'appuie sur alt+f8, ta macro n'apparaît pas!

Désolé mais je crois que les choses les plus évidentes sont encore complexes pour moi pauvre débutante.

J'ai bien intégré toutes les notions : modules, variables, constantes, objets etc... Selon vous, messieurs les spécialistes, par quoi devrai-je commencer pour réussir mes premières lignes de codes?

Tous conseils sera pris avec attention!!!

Merci et bonne semaine