[XL-2003] Conserver le format d'une chaîne de caractères [Résolu]

[Z20500]

Bonsoir,

Je fais une macro excel qui va chercher des données dans un tableau puis créée un fichier html/css pour les mettre en forme.
Le programme va chercher les données par une boucle. Les coordonnées sont déterminées par les variables borneinf et nummission.

Code :

1
2
3
4
5
6
7
8
9
 
'collecte des données
Numbateau = Cells(borneinf + nummission, 2)
Origine = Cells(borneinf + nummission, 3)
Destination = Cells(borneinf + nummission, 5)
'formatage
Format(Numbateau, "@")
Format(Origine, "@")
Format(Destination, "@")

Comme les données apparaissaient sous forme de nombre décimal avec un nombre de chiffres improbable, j'ai essayé de rajouter le formatage ci-dessus.
Ce qui est surprenant, c'est que pour la variable origine, ça marche. pour les autres, j'obtiens "faux" ou "false" en lieu et place de la variable.

J'ai essayé de modifier le format des cellules, mais rien n'y fait. Il me semble aussi que j'avais essayé de rajouter une apostrophe devant la chaîne et que ça n'avait pas marcher, mais je pourrai réessayer.

Quelqu'un aurait-il la solution ?

Bonne soirée

[ucfoutu]

Bonjour,

et tu as bien sûr pensé à contrôler le contenu de numbateau (par exemple), lorsque False est retourné ?

Si non : fais-le donc ...

Car (par exemple) :

Code :

MsgBox Format(False, "@")

retourne "False" ...

[ouskel'n'or]

Envoyé par Z20500

Ce qui est surprenant, c'est que pour la variable origine, ça marche.

Je ne sais pas dans quelle version tu es mais pour celles que je connais, elles ne connaissent pas Format(Variable, "@")
Alors, qu'entends-tu par là ?

S'il s'agit de formater les données placées dans une cellule, teste ça

Code :

1
2
3
4
5
6
Sub test()
Dim Variable As Double
    Variable = 0.45681325678
    Range("B1") = Variable
    Range("B1").NumberFormat = "@"
End Sub

Tu peux aussi formater toute la colonne

Code :

Columns("B").NumberFormat = "@"

Bonne journée

[CRACOS38]

Salut,

Code :

1
2
3
4
5
'collecte des données
Numbateau = Cells(borneinf + nummission, 2)
Origine = Cells(borneinf + nummission, 3)
Destination = Cells(borneinf + nummission, 5)
'formatage

Si tu veux conserver le nombre entier, ex :

Code :

FormatNumbateau=CSTR(Numbateau) & "@")

Si tu veux conserver la partie entière, ex :

Code :

FormatNumbateau=CSTR(INT(Numbateau)) & "@")

[Z20500]

Bonsoir,

Merci pour vos réponses. Je vais essayer ce que vous proposez.

Les variables qui me posent problème sont déclarées en tant que string. J'avais essayé de les déclarer comme variant mais cela n'avait rien changé.

Bonne nuit

[CRACOS38]

Coucou,
Precision : parenthese fin de ligne à virer.

[Z20500]

Bonjour,

merci à tous pour vos réponses. Finalement, le problème semble avoir été résolu en rajoutant .Value à la fin de chaque référence

Code :

Destination = Cells(borneinf + nummission, 5).Value

au lieu de

Code :

1
2
 
Destination = Cells(borneinf + nummission, 5)