[EXCEL] Nombres avec espace...

Version imprimable

10/02/2006, 20h32
Ylias

[EXCEL] Nombres avec espace...

Voila.
j'ai une feuille excel avec des nombres.
Quand je fais des additions de cellules, çà ne marche pas car mes nombres ont un format bizzare, il y a deux espaces entre les milliers
Ex: 2 354,20

J'ai essayé le format des cellules, rien ne change.

Quelqu'un aurait une idée de fonction VBA prenant une plage de cellules comme paramètres et supprimant les 2 espaces pour chacune d'elles?

Merci
10/02/2006, 20h38
Ylias

ogenki le problème c'est que je ne suis pas programmeur :D
je suis dans l'économie...
Tu aurais le code VBA de ta fonction?
11/02/2006, 01h04
SfJ5Rpw8

avec une formule excel tu peu utilise CNUM... si

=CNUM(2 354,20 ) donne 2354,20 ...

si non il faut voir comment est organisée ta plage de nombre et executer par exemple une macro qui dans la dite zone recherche et remplace un espace par rien... tu peu te donner une idée de la macro .. en enregistrant une macro qui effectue cette action de remplacement...

Salut

Si les données contenues dans les cellules sont de type String, tu ne pourras jamais faire d'opérations arythmétiques avec ces cellules. Un moyen de vérifier le contenu d'une cellule. Mets le format à Standard et si le contenu s'aligne à droite, c'est un nombre. Par contre si le contenu s'aligne à gauche, c'est une chaîne de caractères. Tu peux aussi vérifier par code:

Code:

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
38
39
40
Public Sub TesterCellule()
    Dim strType As String
    Select Case VarType(Selection.Value)
      Case 0
        strType = "Empty"
      Case 1
        strType = "Null"
      Case 2
        strType = "Integer"
      Case 3
        strType = "Long"
      Case 4
        strType = "Single"
      Case 5
        strType = "Double"
      Case 6
        strType = "Currency"
      Case 7
        strType = "Date"
      Case 8
        strType = "String"
      Case 9
        strType = "Object"
      Case 10
        strType = "Error"
      Case 11
        strType = "Boolean"
      Case 12
        strType = "Variant"
      Case 13
        strType = "DataObject"
      Case 14
        strType = "Decimal"
      Case 17
        strType = "Byte"
      Case 8192
        strType = "Array"
    End Select
    MsgBox strType
End Sub

que tu mets dans un module de code. Puis tu appelle la macro TesterCellule. Tu verras bien

11/02/2006, 02h02
leroissejp

bONSOIR?
Une petite question : les chiffres qui sont dans tes cellules, tu les importes ou tu les tapes toi-même ?? Parceque si tu les tapes toi-même, il n'y a aucune raison qu'il y ait 2 espaces entre les milliers.

jpleroisse

Importés de certaines bases, les nombres peuvent être formatés avec un espace <> chr(32) contrairement au format de nombre d'excel "avec séparateur de milliers"
Il suffit donc de faire un remplacement sur la colonne de ce caractère par rien.
Ce peut être chr(160) (Ascii) qui correspond à Alt + 255 manuel (Ansi)
Code:

1 2 3 4 LeCar = chr(160) Columns("A:A").Select Selection.Replace What:=LeCar , Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False
Si c'est pas chr(255), tu dois analyser un nombre se trouvant dans une cellule pour en découvrir le code ascii différent du code des chiffres > 57 et < 48 et différent du code de la virgule <> de 44
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub ChercherLaPetiteBête() Nombre = ActiveCell.Formula If Nombre = "" Then MsgBox "Sélectionner une cellule contenant une valeur à tester" For i = 1 To Len(Nombre) LeCar = Asc(Mid(Nombre, i, 1)) ok = LeCar < 48 Or LeCar > 57 And LeCar <> 44 If ok Then MsgBox LeCar Columns(ActiveCell.Column).Select Selection.Replace What:=Chr(LeCar), Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Exit Sub End If Next End Sub
Mais essaie d'abord le remplacement manuel dans ta colonne avec Alt + 255

Une fois que tu connais le code, mets le dans un coin, il te resservira la prochaine fois...

Tu dis

A+

Ouf !