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

[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

[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.

[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"!