Discussion :

[kimai81]

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]

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]

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]

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]

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]

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]

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