Format des nombres

**Kestion100** · 09/10/2015, 16h12

Bonjour,
Comment faire pour convertir un nombre dans une cellule au format 0 au lieu du format 0.00 dans le code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub COPYPASTESEL()
Worksheets("RECUP").Activate
ActiveWorkbook.Save
MsgBox "FIN REMONTEE DEBUT CALCUL"
 
 
 
 
    Dim PremLig As Long
    Dim Derlign As Long
    Dim Lign As Long
    Dim Col As Integer
    Dim NomF As String
 
    NomF = "RECUP"
 
 
    With Sheets("RECUP").Range("DV2:DV1000")
Cells(2, 126).Select
 
y = 2
 
While y <= 1000
 
 
 
 
Set cel = Cells.Find(What:="FAUX", After:=ActiveCell, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
If cel = "VRAI" Then
 
Cells(y + 1, 126).Select
Set cel = Cells.Find(What:="FAUX", After:=ActiveCell, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
 
If cel = "FAUX" Then
 
 
Cells(y + 2, 7).Select
 
PremLig = y + 2
 
 
 
 
 
    Derlign = Range("A2", Range("A2").End(xlDown).Offset(1, 0)).Rows.Count + 1
 
 
 
    For Lign = PremLig To Derlign
        If Cells(Lign, 1).Value <> "" Then
            For Col = 7 To 125
            Cells(Lign, Col).Select
                If Not IsNumeric(Cells(Lign, Col).Value) Or Cells(Lign, Col).Value = "" Then
                    Cells(Lign, Col).Value = Cells(Lign, Col).Value
                Else
                    Cells(Lign, Col).NumberFormat = "General"
                    Cells(Lign, Col).Value = CSng(Cells(Lign, Col).Value)
 
                End If
            Next
        End If
    Next
 
 End If
 End If
 
 y = y + 1
 
 Wend
 
 
 
MsgBox "FIN"
 
 End With
End Sub

J'essaie de remplacer:

Code :

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

Cells(Lign, Col).NumberFormat = "General"

par:

Code :

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

Cells(Lign, Col).NumberFormat = "Standard"

et j'ai une erreur méthode range.
Est-ce parce que le code trouve des nombres déjà à ce format dans certaines cellules?????
Dans ce cas, comment remédier au problème?

**Kestion100** · 09/10/2015, 16h43

Bon esprit pour un forum d'entre aide, j'ai toujours eu des réponses constructives à tous mes posts y compris à celui ci parce que je te l'assure aucun problème ne se pose avec les "FAUX" mais bien juste ce problème de format à la toute fin du problème posé par ce code qui fonctionne très bien avec "General" mais pas avec "Standard" et je pense bien que c'est parce que certaines cellules doivent déjà être en

Code :

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

Standard

bien que je ne comprends pas pourquoi cela pose un problème au code de tomber sur un

Code :

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

Standard

qu'il est sensé transformer en

Code :

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

Standard

.

Je n'avais jamais encore eu de réponse aussi "tournée vers l'autre" ici

Pour info, l'enregistreur de Macro donne:

Code :

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

1
2
3
4
5
6
7
8
9
Sub FORMATNB()
'
' FORMATNB Macro
'
 
'
    Range("G62").Select
    Selection.NumberFormat = "0.00"
End Sub

par exemple, ce qui ne répond pas à la problématique même adapté comme suit:

Code :

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

1
2
3
4
5
6
Else
                    Cells(Lign, Col).NumberFormat = "General"
                    Cells(Lign, Col).Value = CSng(Cells(Lign, Col).Value)
                    Cells(Lign, Col).Select
                    Selection.NumberFormat = "0.00"
                End If

et que je n'ai pas encore pu tester

**Marc-L** · 09/10/2015, 16h49

En créant une discussion avec un post initial clair, ce serait plus simple !

Qu'est-ce qui ne fonctionne pas ? Quelle est la ligne de code incriminée ? Le message d'erreur ?
Comme c'est expliqué dans les règles du forum … Voilà, ce n'est pas plus compliqué.

Quant à ta dernière demande, encore une fois, le format Standard n'existe pas en VBA !

Est-ce si difficile de vérifier en VBA quel est le format d'une cellule ? Quelle est la difficulté ?

_____________________________________________________________________________________________________
Lire … C'est s'investir !

**SfJ5Rpw8** · 09/10/2015, 16h53

Pour que tu comprenne mieux ton problème de format regarde ce qui se passe dans ma fenêtre exécution

?ActiveCell.NumberFormat
General
?ActiveCell.NumberFormatLocal
Standard

et donc le format "General" c'est de l'anglais .. traduit en français "Standard" ...

**Kestion100** · 09/10/2015, 16h53

Donc "General" dans le code proposé par un autre forumeur dans:

Code :

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

1
2
3
4
5
6
7
8
For Lign = PremLig To Derlign
        If Cells(Lign, 1).Value <> "" Then
            For Col = 7 To 125
                If Not IsNumeric(Cells(Lign, Col).Value) Or Cells(Lign, Col).Value = "" Then
                    Cells(Lign, Col).Value = Cells(Lign, Col).Value
                Else
                    Cells(Lign, Col).NumberFormat = "General"
                    Cells(Lign, Col).Value = CSng(Cells(Lign, Col).Value)

ne correspond pas au format du nombre?
En tout cas ça fonctionne très bien, ça me convertit bien mes nombres stockés au format texte au format nombre, general?????
J'essayais donc de transformer "General" par "Standard" comme trouve ici:

Formats numériques nommés (fonction Format)
Le tableau suivant présente les noms des formats numériques prédéfinis :
Nom de format
Description
Nombre général
Affichage du nombre sans séparateur de milliers.
Monétaire
Affichage du nombre avec un séparateur de milliers, le cas échéant ; affichage de deux chiffres à droite du séparateur décimal. Le résultat est fonction des paramètres régionaux de votre système.
Fixe
Affichage d’au moins un chiffre à gauche et de deux chiffres à droite du séparateur décimal.
Standard
Affichage d’un nombre avec séparateur de milliers et d’au moins un chiffre à gauche et de deux chiffres à droite du séparateur décimal.
Pourcentage
Affichage d’un nombre multiplié par 100 suivi du signe pourcentage (%) ; affichage automatique de deux chiffres à droite du séparateur décimal.
Scientifique
Utilisation de la notation scientifique standard.
Oui/Non
Affichage de Non si le nombre est 0 ; sinon affichage de Oui.
Vrai/Faux
Affichage de Faux si le nombre est 0 ; sinon affichage de Vrai.
Actif/Inactif
Affichage de Inactif si le nombre est 0 ; sinon affichage de Actif.

A cette adresse:

https://msdn.microsoft.com/fr-fr/lib.../gg251755.aspx

A OK là c'est limpide!

Quelle pourrait être alors la bonne traduction pour avoir un nombre au format:

"0.00"??

**Marc-L** · 09/10/2015, 16h59

Tu l'as déjà dans ton code …

Sinon encore une fois regarder ce que retourne VBA pour les propriétés NumberFormat et NumberFormatLocal !

**SfJ5Rpw8** · 09/10/2015, 16h59

Envoyé par Kestion100

...
A OK là c'est limpide!

Quelle pourrait être alors la bonne traduction pour avoir un nombre au format:

"0.00"??

tu as aussi une fenêtre exécution (CTRL+G) dans ton éditeur VBA ... et tu peu utiliser ma méthode vu plus haut !!!

**Kestion100** · 09/10/2015, 17h07

Le code pourrait donc être:

Code :

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

1
2
3
4
5
 If Not IsNumeric(Cells(Lign, Col).Value) Or Cells(Lign, Col).Value = "" Then
                    Cells(Lign, Col).Value = Cells(Lign, Col).Value
                Else
                    Cells(Lign, Col).NumberFormat = "0.00"
                    Cells(Lign, Col).Value = CSng(Cells(Lign, Col).Value)

au lieu de:

Code :

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

1
2
3
4
5
 If Not IsNumeric(Cells(Lign, Col).Value) Or Cells(Lign, Col).Value = "" Then
                    Cells(Lign, Col).Value = Cells(Lign, Col).Value
                Else
                    Cells(Lign, Col).NumberFormat = "General"
                    Cells(Lign, Col).Value = CSng(Cells(Lign, Col).Value)

**Theze** · 10/10/2015, 11h16

Bonjour,

Comment faire pour convertir un nombre dans une cellule au format 0 au lieu du format 0.00 dans le code

Tu as essayé de cette façon ?

Code :

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

1
2
 
Cells(Lign, Col).NumberFormat = "0"

Format des nombres

Macros et VBA Excel

Discussions similaires

Partager

Partager