Discussion :

[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 :

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

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 :

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

MsgBox Format(False, "@")

retourne "False" ...

[ouskel'n'or]

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 :

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

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 :

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

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

Bonne journée

[CRACOS38]

Salut,

Code :

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

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 :

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

FormatNumbateau=CSTR(Numbateau) & "@")

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

Code :

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

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 :

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

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

au lieu de

Code :

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

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