2 Questions : fonction Chr() et variable static - VB/VBA/VBS - Programmation
Marsh Posté le 04-05-2005 à 16:11:32
A la place de Chr(10) essaie plutôt vbCrLf ex. :
Msgbox "Hello" & vbCrLf & " World"
attention à l'utilisation de Msgbox !!!
Si tu n'attends pas de retour la syntaxte est :
Msgbox "Hello" & vbCrLf & " World"
Si tu attends un retour la syntaxe est :
Dim lngRet as Long
'un integer est je crois suffisant
lngRet = Msgbox("Hello" & vbCrLf & " World" )
Marsh Posté le 04-05-2005 à 16:46:27
Merci , problème réglé avec vbCrLf
cependant le msgbox marche tres bien si je n'attend pas de retour et que je met pas de parentheses !!
sinon personne pour le Probleme N°2 ??
Marsh Posté le 04-05-2005 à 18:46:18
bon j'ai restructurer pusieur de mes algos et mes types, j'arrive à un truc qui tiens la route
mais j'aimerais toujours en savoir un peu plus a propos de ce static et de la limite a 64 Ko
car je sais pas si mes types sont pas vraiment adapté ou alors moi qui code vraiment comme un porc (ou alors que c'est vb qui restreint les limites de ma creativité algorithmique (mouarf))
Marsh Posté le 04-05-2005 à 15:17:44
J'ai devellopé une petite application sur excel (Excel 2003 + VBA 6.3)qui marche sur ma bécane
mais j'obtiens quelque problémes lorsque je le copie sur un autre ordinateur (Excel 2000 + VBA 6.0)
Mon premier probleme viens de la fonction chr()
lorsque je veux retrouner à la ligne dans un MsgBox(... & chr(10) & ...)
Le message d'erreur est le suivant : Erreur de compilation, Projet ou bibiotheque Introuvabe.
Dois je rajouter des références ? , si oui lesquels et comment ?
Mon second probleme viens des variables Static
et l'erreur est : Une donnée fixe ou static ne peut dépasser 64Ko
ce sont des variables dont j'ai crée mes propres types
j'ai deja du les passer en static car en les déclarer en dim j'avais deja ce meme probleme mais avec 32 Ko
à part reduire la taille de mes types quel sont les solutions possibles, car je ne peux pas les réduires de beaucoup
voici mes déclarations :
********************************************************************************************
Const C_MAX = 366 'Nombre maximum d'element dans un vecteur
'Un élement de la BD
Type T_ELEMENT
HEURE As Integer 'Heure d'ouverture '
DATE As Date 'Date de la vente'
NB_Client As Single 'Nombre de Client'
CA As Double 'Chiffre d'affaire'
P_Moy As Double 'Panier Moyen (= CA/NB_Client)'
End Type
'Un vecteur contenant des T_ELEMENT
Type T_VECT_ELT
NB As Integer 'Taille du vecteur
ELT(0 To C_MAX) As T_ELEMENT
End Type
*********************************************************************************************