Laurent Godard a écrit :
Bonjour Bernard
Florent Manens a écrit :
Florent t'a probablement donné la reponse
il nous faudrait le code de la fonction maj()
Function maj(l1 as String) as String
if l1="" then rem si l est vide, il faut le
traiter avant sous peine d'erreur
maj=""
else
if Asc(l1)>Asc("Z") then rem si le code ascii de l est
suppérieur à celui de Z comme les minuscules
l1=Chr$(Asc(l1)-Asc("a")+Asc("A")) rem conversion minuscule -> MAJUSCULE
endif
if Asc(l1)>Asc("Z") then rem si la consersion a ratée ou si
le code ASCII de l était déjà plus petit que A
maj="0"
elseif Asc(l1)<Asc("A") then
maj="0" rem on met le code d'erreur dans
maj pour le retour
else
maj=l1 rem l étant une majuscule, on le
met dans maj pour le retour
endif
endif
end Function
J'ai mis et là, je perds la variable l dans *if l2<>maj(l) then* !
Function maj(l as String) as String
dim l1 as string
l=l1
if l1="" then rem si l est vide, il faut le
traiter avant sous peine d'erreur
maj=""
else
if Asc(l1)>Asc("Z") then rem si le code ascii de l est
suppérieur à celui de Z comme les minuscules
l1=Chr$(Asc(l1)-Asc("a")+Asc("A")) rem conversion minuscule -> MAJUSCULE
endif
if Asc(l1)>Asc("Z") then rem si la consersion a ratée ou si
le code ASCII de l était déjà plus petit que A
maj="0"
elseif Asc(l1)<Asc("A") then
maj="0" rem on met le code d'erreur dans
maj pour le retour
else
maj=l1 rem l étant une majuscule, on le
met dans maj pour le retour
endif
endif
end Function
si tu modifies c dans cette fonction, alors ton probleme est là
deux solutions
- Function maj(byval c) - bofbof beurk
- ne pas utiliser c comme variable de travail dans maj
Laurent
--
Amicalement vOOotre, Troumad Alias Bernard SIAUD, http://troumad.org
N'envoyez que des documents avec des formats ouverts, comme
http://fr.openoffice.org
Adresse electronique speciale liste
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
