Discussion :

[dodo69]

Bonjour,

j'ai un petit problème avec mon format de cellule.

J'ai certaines valeur dans ma feuille 1 qui sont de la forme "3.47152E+12" , il sont défini en format nombre ...

Dans cette même colonne j'ai plein d'autre valeur en format nombre mais de forme plus normale: "8012542367208".

J'ai une macro qui vérifie certains critère dans cette colonne et lorsqu'elle détecte une valeur incorect va enregistrer l'information en feuil2 colonne 1

j'ai ce code là

Code :

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

1
2
3
4
5
6
7
 .....
With Feuil2
    .Cells(j, 1) = Feuil1.Cells(i, 13).Value
            compte1 = compte1 + 1
            j = j + 1
End With
.....

Sauf que lorsque je fais ce traitement cette valeur "3.47152E+12" qui était sur la feuille1 devient "347152000000000000" dans la feuille 2

J'aimerai garder exactement les même caractère lors de la réécriture en feuille 2

Comment dois-je faire?

Merci d'avance pour votre aide qui m'est grandement utile !

Cordialement
DoDo

[FcL.Laplace]

Bonjour,

Je pense que recopier le format de ta cellule en même temps pourrait t'aider à avancer :

Code :

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

1
2
3
4
5
6
7
8
9
 
With Feuil2
     'Valeurs
    .Cells(j, 1) = Feuil1.Cells(i, 13).Value
     'Formats
    .Cells(j, 1).NumberFormat = Feuil1.Cells(i, 13).NumberFormat
     compte1 = compte1 + 1
     j = j + 1
End With

J'espère que ça t'aidera.

[dodo69]

Bonjour FcL.Laplace,

Merci pour ta proposition, j'avais essayé quelques chose du genre mais je n'avais pas penser a lié les deux par le meme format

Code :

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

1
2
 
 .Cells(j, 1).NumberFormat = Feuil1.Cells(i, 13).NumberFormat

Cependant j'ai un nouveau petit problème avec ca j'ai l'impression qu'il y a toujours un petit problème ^^ )

Maintenant, j'ai bien mes nombres de type "3,47152E+12" qui sont correctement affecté, seulement mes nombres de type "3471522247889" sont également devenu "3,47152E+12" :s

je trouve ca assez étrange :p

Merci de ta solution en tout cas FcL.Laplace, elle me convient, mais si je peux avoir le comment rectifier ce nouveau problème ca serai le top

merci

Cdt
DoDo

[FcL.Laplace]

Bonjour,

Effectivement, ça me parait étrange.

Si tu veux forcer tous tes nombres à avoir le même format, plutôt que de copier celui-ci, force le.
De plus, assure toi de la bonne taille de tes cellules, je sais que la mise au format scientifique m'avait déjà troublé alors que mes colonnes étaient trop étroites (Et assure toi de bien mettre toutes tes données de la feuil1 au format nombre) :

Code :

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

1
2
3
4
5
 
'Forcer le format en nombre :
Feuil1.Cells(i, 13).NumberFormat = "0"
'Réglage automatique de la largeur de la colonne (A toi de voir si tu veux le faire à chaque tour, ou à la fin, selon les besoins de vitesse de ton code) :
Columns(taColonne).EntireColumn.AutoFit

En espérant que ça t'aidera.

[dodo69]

oui, j'avais fait ca au début, mais ca ne marche pas

merci FcL.Laplace, mais c'est bon ton premier bout de code convient très bien malgré ce léger soucis

merci bien