Florent Manens a écrit :
Bonjour,
----- "Bernard Siaud alias Troumad" <lis...@siaud.org> 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 !
10 messages in org.openoffice.fr.progRe: [prog] test d'égalité
