|
Publicité | ||||||||||||||||||||||
|
|
#1 |
|
Futur Membre du Club
![]() Date d'inscription: avril 2006
Localisation: Yvelines (78)
Messages: 37
|
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 :
'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, "@") 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 Dernière modification par Domi2 ; 04/07/2009 à 07h10. Motif: indication de la version : liste déroulante "Préfixe" devant la zone de rédaction du titre |
|
|
|
|
|
#2 |
|
Inactif(ve)
Date d'inscription: juillet 2007
Localisation: au pays de la liberté d'esprit
Messages: 4 569
|
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, "@") |
|
|
|
|
|
#3 | |
|
Inactif(ve)
Date d'inscription: février 2005
Localisation: 45,10 N 5,43 E
Messages: 12 494
|
Citation:
Alors, qu'entends-tu par là ? S'il s'agit de formater les données placées dans une cellule, teste ça Code :
Sub test() Dim Variable As Double Variable = 0.45681325678 Range("B1") = Variable Range("B1").NumberFormat = "@" End Sub Code :
Columns("B").NumberFormat = "@" |
|
|
|
|
|
|
#4 |
|
Membre à l'essai
![]() Date d'inscription: juin 2009
Messages: 49
|
Salut,
Code :
'collecte des données Numbateau = Cells(borneinf + nummission, 2) Origine = Cells(borneinf + nummission, 3) Destination = Cells(borneinf + nummission, 5) 'formatage Code :
FormatNumbateau=CSTR(Numbateau) & "@") Code :
FormatNumbateau=CSTR(INT(Numbateau)) & "@") Dernière modification par Domi2 ; 04/07/2009 à 07h09. Motif: ajout des balises de code (sélection du code + # au dessus de la fenêtre de rédaction du message) |
|
|
|
|
|
#5 |
|
Futur Membre du Club
![]() Date d'inscription: avril 2006
Localisation: Yvelines (78)
Messages: 37
|
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 |
|
|
|
|
|
#6 |
|
Membre à l'essai
![]() Date d'inscription: juin 2009
Messages: 49
|
Coucou,
Precision : parenthese fin de ligne à virer. |
|
|
|
|
|
#7 |
|
Futur Membre du Club
![]() Date d'inscription: avril 2006
Localisation: Yvelines (78)
Messages: 37
|
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 Code :
Destination = Cells(borneinf + nummission, 5) |
|
|
|
|
|
![]() |
||
[XL-2003] Conserver le format d'une chaîne de caractères
|
||
| Outils de la discussion | |
|
|