Discussion :

[Goupo]

Salut,

J'ai une erreur qui me dit : "Utilisation non autorisée de Null".
C'est à cause du MsgBox "getGagnant" où du "getGagnant = Null"?
Comment je peu résoudre le problème sans le contourner (par une chaîne ou autre bricolage)?

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Cmd_Gagne_Click()
    MsgBox getGagnant <--------------------- ligne de l'erreur
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function getGagnant()
'Renvoie la valeur de la ligne gagnante
For i = 1 To 8
    If Lbl_Ligne(i) = 3 Then
        getGagnant = True
        Exit For
        Else
        If Lbl_Ligne(i) = -3 Then
            getGagnant = False
            Exit For
            Else
            getGagnant = Null
            Exit For
        End If
    End If
Next i
End Function

[SfJ5Rpw8]

Bonjour,

sur quelle ligne l'erreur ..?

[Goupo]

L'erreur est sur la ligne du msgbox...

[SfJ5Rpw8]

bon c'est pas vraiment clair.. je n'arrive pas à reproduire l'erreur essai le pas à pas ... rajoute un point d'arrêt sur ton msgbox (F9 en sélectionnant la ligne..) lance ton code puis lors qu'il "s'arrête" utilise la touche F8 pour exécuter pas/pas ton code et voir où il y as probléme...

[ProgElecT]

Il me semble que ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function getGagnant()
'Renvoie la valeur de la ligne gagnante
getGagnant = 0 'initialise le retour si aucune des conditions If ne sont True
For i = 1 To 8
    If Lbl_Ligne(i) = 3 Then
        getGagnant = True
        GoTo sortIf
        Else
        If Lbl_Ligne(i) = -3 Then
            getGagnant = False
            GoTo sortIf
            Else
            getGagnant = 0
        End If
    End If
Next i
sortIf:
End Function

[Goupo]

C'est déjà fait.

Lorsque le programme arrive sur "MsgBox getGagnant",
il rentre dans la fontcion getGagnant et l'éxecute jusqu'au bout,
c'est lorsqu'il arrive au "End Function" que le message d'erreur aparaît.

D'après ça, je croix que c'est la fonction qui est en cause.

ProgElect, il me semble que non. Voici une fonction qui marche très bien, sans l'initialisation de la variable du nom de la fonction. De plus, j'ai testé au cas où et ça ne change rien.
Merci quand même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function estTermine()
Dim control As Boolean
control = False
 
'Si le tableau est plein, alors la partie est finie
If estPlein Then
    control = True
End If
 
'Si l'un des joueurs a gagné
If Victoire Then
    control = True
End If
 
'Renvoyer
estTermine = control
End Function

[OhMonBato]

Le Goto SortIf et l'étiquette SortIf pourraient être remplacés de manière plus élégante par Exit For

Lbl_Ligne c'est Lbl_Ligne.Caption ou une variable ? Parce que s'il s'agit d'un contrôle tu dois avoir une erreur si tu mets du texte dedans et non pas un chiffre ou alors il faut faire une comparaison de chaine si je dis pas de betise (If Lbl_Ligne(i) = "3" Then ... 3 entre guillemets)

Mais à part ça je n'ai pas d'erreur non plus, GetGagnant est il déclaré quelquepart ? En tant que quoi ? Parce que tu lui affecte True, False ou 0, ce qui revient à False

A priori il y a un gagnant ou il n'y en a pas, donc seules 2 valeurs devraient être possible, si c'est ça, GetGagnant = True si Lbl_Ligne = 3 sinon dans tous les autres cas, c'est False, ce qui allège un chouille ta boucle de test.

[ProgElecT]

Je veux bien, mais ........

Public Function estTermine()
Dim control As Boolean
control = False
.......
.......
'Renvoyer
estTermine = control ' ici la fonction renvoie bien un non null
End Function

[Goupo]

Merci pour le End For!


Le Lbl_Ligne(i), c'est un C'est un Caption.

A priori il y a un gagnant ou il n'y en a pas

Non, en fait, le jeu, c'est un morpion, donc, il peut y avoir égalité!

ProgElect, oui, mais alors la problématique ici, ça serait : "Est-ce qu'une fonction peut renvoyer un Null?"

Pour plus d'élégance, j'ai remplacé mes Goto par des "Exit For"!

[OhMonBato]

Dans ce cas, tu ne devrais pas utiliser un booleen, qui ne connait que 2 états et non pas 3, mais une valeur de type string par exemple, ta fonction deviendrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function getGagnant() As String
'Renvoie la valeur de la ligne gagnante
For i = 1 To 8
    If Val(Lbl_Ligne(i)) = 3 Then
      getGagnant = "Gagné"
      Exit For
    ElseIf Val(Lbl_Ligne(i)) = -3 Then
      getGagnant = "Perdu"
      Exit For
    Else
      getGagnant = "Egalité"
    End If
Next i
End Function

[Goupo]

Hum, je viens de me rendre compte que le code qui je vous ai présenté, ce n'est pas celui que j'ai, en fait c'est un code test... qui fonctionne.

Le code que j'ai actuellement a un Null à la place du zéro. J'ai apporté la modification.

OhMonBateau, c'est un Morpion!

Le fonctionnement serait:
3, Il y a 3 Croix alignées, renvoie True
-3, il y a 3 Ronds alignés, renvoie False
ni 3, ni -3, aucun alignement de 3 symbole n'a été trouvé, renvoie Null

[OhMonBato]

C'est pour celà qu'il est recommandé à mon avis de "typer" ta fonction, byte, integer, boolean, string, etc... au moins tu es sûr de ne pas lui faire sortir une valeur incompatible.

Une petite couche de "Option Explicit" en début de module pour la finition et on évite déjà bien des erreurs

[SfJ5Rpw8]

Hum, je viens de me rendre compte que le code qui je vous ai présenté, ce n'est pas celui que j'ai, en fait c'est un code test... qui fonctionne.

Le code que j'ai actuellement a un Null à la place du zéro. J'ai apporté la modification.

Le fonctionnement serait:
3, renvoie True
-3, renvoie False
ni 3, ni -3, renvoie Null

et comment compte tu afficher un Null ..? avec ton message box ..?

[Goupo]

Donc, le problème c'était le MsgBox ne peut pas afficher de Null, c'est bien ça?

Comme le Sub Cmd_Gagne_Click ne me sert qu'à contrôler la fonction pour l'utiliser plus tard ailleurs si c'est Null, on n'affiche rien.

D'ailleurs je viens de tester ça, et ça ne marche pas. Il y a un contrôle spécifique pour savoir si c'est Null?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Cmd_Gagne_Click()
    If getGagnant = Null Then
        MsgBox getGagnant
    End If
End Sub

[OhMonBato]

"Mais pourquoi faire simple quand on peut faire compliqué ?", ce serait pas ta devise des fois ?
Généralement dans un message box on met une phrase donc une variable String conviendrait non ? En tout cas ce mélange Booléen et Null est assez "surprenant"

[SfJ5Rpw8]

pour tester si nul voir is Nothing mais tu devrai réfléchire à la façon dont tu vas utiliser ta fonction ...! dans ton exemple tu l'appelle 2 fois ...!

[Goupo]

Is Nothing c'est une fonction?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If is nothing getGagnant Then

En tout cas ce mélange Booléen et Null est assez "surprenant"

Moi je trouve que c'est le mélange booléen/entier qui est bizarre.
Je pense que c'est une question d'"élégance". Un peu comme le Goto et le Exit For...

[OhMonBato]

Ou ça un mélange booléen / entier ? Ce que je veux dire c'est que normalement on n'utilise les variables de type booléen quand on a 2 et seulement deux (two, dos ) états possibles.
Sinon on utilise autre chose, mais comme quoi il y a autant de point de vue que de gens qui se penchent sur un code, là je crois que je vais me relever avant de tomber d'ailleurs.

[Goupo]

Ou ça un mélange booléen / entier ?

J'ai peut-être un peu de brume dans ma tête... Je parlais du premier code que je vous ai présenté...

Ce que je veux dire c'est que normalement on n'utilise les variables de type booléen quand on a 2 et seulement deux (two, dos ) états possibles.
Sinon on utilise autre chose, mais comme quoi il y a autant de point de vue que de gens qui se penchent sur un code, là je crois que je vais me relever avant de tomber d'ailleurs.

Ok, je vois. Donc plus besoin de is nothing.

Merci, tu peux rester assis.