pb Qualificateur ?

[ivi]

Bonjour à tous !

j'ai rédigé un programme qui test la saisie de l'utilisateur mais g un pb de qualificateur ... Que veut-il dire par là ? parce que moi, je ne comprend pas le sens du problème ...

Je vous donne la synthaxe :

dim value1 as string

sub mess()

value1= inputbox ("saisissez le numero de fiche :", "boite de dialogue")
application.scrennupdating=true

select case value1
case len(value1) = 9 : FFT_Fiche 'lance le prog FFT
case len(value1) = 6 : FRE_Fiche 'lance le prog FRE
case len(value1) = 3 : FE_Fiche 'lance le prog FE

'''' case value1.lentgh = 9 : FFT_Fiche 'lance le prog FFT
'''' case value1.lentgh = 6 : FRE_Fiche 'lance le prog FRE
'''' case value1.lentgh = 3 : FE_Fiche 'lance le prog FE
end select

cells (2,5) = value1 'la cellule L2:C5 prend la valeur value1
active.name = value1 'la feuille active prend la valeur value1


Ou sinon, j'ai rediger un autre prog avec la boucle If

if value1.lentgh > 9 then
Msgbox "pas plus de 9 caractères"
elseif value1.lentgh = 9 then
fiche_FFT
elseif value1.lentgh = 6 then
fiche_FRE
elseif value1.lentgh = 6 then
fiche_FRE
elseif value1.lentgh = 3 then
fiche_FE
end if

mais j'ai toujours la meme erreur ...

je pense que je donne mal utilisé la synthaxe ... mais je ne sais plus que faire ...

J'utilise Excel97 du pack Office
et Windows2000 Pro

Merci de venir à mon aide

 

[Ti]

ton code n'est pas très logique, d'une part tu passes allègrment de Len(Value1) qui renvoie la longueur de la chaîne Value1 à Value1.Length, qui doit renvoyer une erreur (je n'ai pas testé mais je ne pense pas que la propriété Length ne s'applique pas à ce type de valeurs : VBA n'est pas le Pascal)
Enfin, tu confonds une valeur numérique avec une longueur, donc tu auras forcément des erreurs bien plus vicieuses. Donc modifie tes tests comme suit :

select case val(value1)
case 9 : FFT_Fiche 'lance le prog FFT
case 6 : FRE_Fiche 'lance le prog FRE
case 3 : FE_Fiche 'lance le prog FE
end select

 

[Ti]

oups, petits problèmes de syntaxe, mais tu auras compris le sens général de mes explications...