Florent Manens a écrit :
Bonjour,
----- "Bernard Siaud alias Troumad" <[EMAIL PROTECTED]> a écrit:
Serge LE LOUARNE a écrit :
Bernard Siaud alias Troumad a écrit :
Bonjour
J'ai un problème avec le test d'égalité
if (c=maj(c)) m'affecte maj(c) dans c ! Est-ce normal ?
Bonjour,
En quel langage ?
Basic
par défaut en Basic, les variables sont passées par référence. Assures-toi que le parametre
"c" n'est pas modifié dans la fonction "maj".
Pour passer en majuscule, il existe UCase.
Cordialement,
Partie du code incriminée (c'est même plus grave que mes souvenirs...)
sub diminue_lettre(c as string) rem décrémente le compteur de lettres
restantes
dim Grille as object
dim c1 as string
Grille=ThisComponent.Sheets.getByName("Grille")
c1=c
if maj(c)=c then
Grille.getCellByPosition(20,ASC(c)-ASC("A")+1).value=Grille.getCellByPosition(20,ASC(c)-ASC("A")+1).value-1
else
Grille.getCellByPosition(20,27).value=Grille.getCellByPosition(20,27).value-1
endif
end sub
Dans mon fichier http://troumad.info/Linux/scrabble.zip
nb : pour que ça marche, j'ai changer le * if maj(c)=c then* car il
remplaçait le c par la sortie de maj(c) :(
J'ai mis *if maj(c)=c1 then* => seul intérêt de ce c1 !
--
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]
