pourquoi sa marche pas

[scaraber]

salut je ne trouev aps l'erreur dans ce code

Code : Tout sélectionner

If tri (1,1)= 1 And If tri (1,2)= 1: pitaABC=1 :EndIf 

[brossden]

Bonjour
Dans "If tri (1,1)= 1 And tri (1,2)= 1: pitaABC=1 :EndIf " tu as deux commandes ( If ) dans mamême syntaxe
essaye :

Code : Tout sélectionner

If tri (1,1)= 1 And tri (1,2)= 1: pitaABC=1 :EndIf 

Soit le code pour le vérifier :

Code : Tout sélectionner

Dim tri(2,2)
tri(1,1)=1
tri(1,2)=1
If tri (1,1)= 1 And tri (1,2)= 1: pitaABC=1 :EndIf 
MessageRequester("Valeur de pitABC","pitABC = "+Str(pitaABC))

[scaraber]

a oui c vrai y aque un if .... merci