problème de zero

soenda

XLDnaute Accro

• 19 Septembre 2010

• #2

Re : problème de zero

Bonjour le fil, ntan-évindi

Si les codes sont des nombres à 7 chiffres,
tu peux utiliser le format "0000000"

A plus 🙂

PS : En VBA (Selection étant la zone/colonne concernée)

Code:

Selection.NumberFormat = "0000000"

 

Dernière édition: 19 Septembre 2010

Vote positif 0 Vote négatif

N

ntan-évindi

XLDnaute Occasionnel

• 19 Septembre 2010

• #3

Re : problème de zero

Bonjour Soenda,

Merci pour cette réponse, cependant je fais d'abord un export de ce fichier au format excel (sans d'ailleurs pouvoir choisir le type de fichier excel que je souhaite).
Ensuite je fais une copie que j'incorpore à un classeur et ce nouvel onglet fait l'objet d'une macro pour découper les informations et les dispatcher à différents endroits.
C'est pourquoi je souhaitais compléter ma macro avec un code pour imposer le format.
Cdt
Ntang

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 19 Septembre 2010

• #4

Re : problème de zero

bonjour ntan-évindi, soenda 🙂

Un petit essai avec ce code (en faisant l'hypothèse que les cellules soient en format texte, au cas où)

Code:

Sub Macro1()
With Sheets("Feuil2")
    For i = 1 To .Range("A65530").End(xlUp).Row
            .Cells(i, 1).NumberFormat = "@"
            .Cells(i, 1) = Application.Rept("0", 7 - Len(.Cells(i, 1))) & .Cells(i, 1)
    Next i
End With
End Sub

Bon après-midi,

mth

 

Vote positif 0 Vote négatif

N

ntan-évindi

XLDnaute Occasionnel

• 19 Septembre 2010

• #5

Re : problème de zero

Merci mth,

Je vais essayer ton code,
comme j'ai différents tableaux successifs sur ma feuille je ne souhaite pas remonter à partir de la dernière cellule, et que je peux remplacer Range("A65530") par Range("E12:E250).
Ton code est fait pour imposer le format 7 zéros, mais pour imposer à une autre colonne le format décimal 0,00au lieu du format 0.00 ?

Merci encore.
Cordialement
Ntang

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 19 Septembre 2010

• #6

Re : problème de zero

Bonjour mth 🙂

A plus

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 19 Septembre 2010

• #7

Re : problème de zero

re 🙂

Il me semble que les formats de nombres sont aussi fonction des paramètres régionaux tels que définis sur ta machine.
En te lisant je me suis dit que tu avais des colonnes de chiffres avec des séparateurs "point", alors que ton séparateur décimal était la virgule.

Dans le doute et au cas où, un essai de petit code pour changer le point en virgule, colonne E (chiffre 5) pour les lignes 12 à 250:

Code:

Sub Macro1()
With Sheets("Feuil1")
    For i = 12 To 250
            .Cells(i, 5).Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
            
    Next i
End With
End Sub

Bonne soirée,

mth

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Septembre 2010

• #8

Re : problème de zero

Bonsoir, le fil & Forum

Hi, Mireille 🙂🙂

Sans boucle, en utilisant la fonction "Convertir" de "Données"...

Code:

Sub Macro3()
Columns(5).TextToColumns Destination:=Range("E1"), DecimalSeparator:="."
End Sub

Bonne soirée, dans la "fraîcheur" de la fin d'hiver......(31° à 20H00)....

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 20 Septembre 2010

• #9

Re : problème de zero

Bonjour à tous,
🙂 Bonjour Hubert 🙂 🙂

Sans boucle, en utilisant la fonction "Convertir" de "Données"...

Cliquez pour agrandir...

Merci à toi d'être passé sur le fil, c'est rudement mieux comme ça !!!

31°C à 20h, ben dis donc, ça change du Finistère hein ?

Grosses bises et à bientôt 🙂

M

 

Vote positif 0 Vote négatif