PB!!!! VBA excel

PB!!!! VBA excel - Programmation

Marsh Posté le 22-11-2001 à 15:13:46    

Public Type StateData
     tablo(1 To 100) As String
End Type
 
Sub PlanningSemaine(ChoixSem As Integer)
 
Dim TabloForm(1 To 100) As StateData
Dim Chemin, NomForm As String
 
TabloForm(CptForm) = NomForm
 
 
dites nous l'erreur!!!!
le compilateur nous dit  
incompatibilité de type

Reply

Marsh Posté le 22-11-2001 à 15:13:46   

Reply

Marsh Posté le 22-11-2001 à 17:55:20    

C l horreur ton machin
Tu veux faire koi avec tes tableaux et ton type declaré ?
 
la, t affecte un tableau a une string   ?!?!?!?!?
 
et meme a un variant en fait car avec
Dim Chemin, NomForm As String  
 
tu as en fait :  
chemin est de type string
NomForm est de type variant

Reply

Marsh Posté le 22-11-2001 à 20:38:23    

en faite nous se k on veut faire c est lire des string sur une feuille A et les recopier ds un tablo pour les lire plus tard et permettre l ouverture des fichiers .xls portant le meme nom que les string mis dans le tableau.
Pour pouvoir faire comme une base.
En faite se ki merde c estnla declaration d un tablo il nous faudrait juste un exemple please.
 
ON debute on ets en train d aprendre mais j prefere largement le c++ et le pascal lol sa me parait plus simple et mon collegue se debrouille sur vba excel masi c cho kand on est newbies
 
Merci a se ki pouront nous aider
 
La connaissance s accroit kand on la partage

Reply

Marsh Posté le 23-11-2001 à 03:50:03    

Salut,
 
Je n'ai pas bien compris où tu veux en venir avec ton code.
 
Mais c'est tout à fait normal d'avoir une erreur car tu veux affecter une chaîne à une structure StateData qui est en fait un tableau de chaînes !
 
Tu peux affecter une chaîne à TabloForm comme suit :
TabloForm(CptForm).tablo(1) = NomForm
cela marche car il y a le même type des 2 cotés du =
 
Si tu déclares NomForm comme StateData, tu peux faire ton affectation :
TabloForm(CptForm) = NomForm
 
Donne un exemple pour mieux comprendre.
 
A+

Reply

Sujets relatifs:

Leave a Replay

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