2 Questions : fonction Chr() et variable static

2 Questions : fonction Chr() et variable static - VB/VBA/VBS - Programmation

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
 
*********************************************************************************************

Reply

Marsh Posté le 04-05-2005 à 15:17:44   

Reply

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" )

Reply

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 ?? :/


Message édité par fusion_sadam le 04-05-2005 à 16:47:10
Reply

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))

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed