Erreur sur un code de jeu d'échec [Résolu]

[tryolivier]

Bonsoir

j'ai vraiment besoin d'aide

J'ai jamais programmé et dans la licence pro ou je suis mon prof d'info commence par le vba excel

on doit faire un jeu d'echecs en VBA sur excel

Je suis bloqué et tout ce que j'ai fais dans ce programme c'est suivre des tutos et des macros

mais je suis 100% bloqué la
j'ai une erreur a la fin

voila je sais plus quoi faire je demande donc votre aide



Merci beaucoup

Olivier

[Daniel.C]

Bonjour,

j'ai une erreur a la fin

Quelle erreur, sur quelle ligne ?

[Philippe JOCHMANS]

Bonjour

Il serait bon de donner des explications plutôt que ton fichier en expliquant rien, comme si tu voulais que l'on trouve ce qui se passe.

Donc j'ai supprimé :le fichier
L'adresses Email, les échanges doivent se faire sur le forum.
De modifier ton titre, merci de lire les règles du forum.

Donc si tu veux que les membres du forum puissent t'aider il est important de détailler, de mettre ton code sur le forum, d'expliquer où cela bug et ce qui se passe (message d'erreur, ce n'est pas le résultat attendu).

Philippe

[tryolivier]

merci pour vos réponses

je vais essayé d'être plus claire

l'erreur est sur
valeurdepart = Range("D15:E15").Value

ca me met erreur d'execution 13 incompatibilité de type

actuellement j'essaye de rentrée la valeur de départ en mémoire et de l'afficher dans une autre case

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
  Function test()
 
    Dim valeurdepart As Integer
    Dim valeurarrivee As Integer
    Dim valeur As String
    valeurdepart = Range("D15:E15").Value
 
    If valeurdepart <= 63 And valeurdepart >= 0 Then
        Range("D16").Select
        ActiveCell.FormulaR1C1 = valeurdepart
    End If
 
    End Function

merci pour votre aide

[Daniel.C]

Deux choses :

1. La valeur retournée par la fonction "test" doit êtrte mise dans "test :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 Function test()
 
    Dim valeurdepart As Integer
    Dim valeurarrivee As Integer
    Dim valeur As String
    valeurdepart = Range("D15:E15").Value
 
    If valeurdepart <= 63 And valeurdepart >= 0 Then
        Range("D16").Select
        test = valeurdepart
    End If
 
    End Function

2. Il faut absolument éviter les cellules fusionnées. C'est une source perpétuelle d'erreurs. Puisque les cellules D15 et E15 sont fusionnées, la valeur du groupe se trouve en D15, la cellule E15 étant vide. Si tu écris :

Code :

valeurdepart = Range("D15:E15").Value

la valeur des deux cellules est retournée sous forme de matrice. Comme, la variable est définie comme Integer, cela provoque une erreur. Ecris donc :

Code :

valeurdepart = Range("D15").Value

[tryolivier]

merci beaucoup

mais jai pas compris pourquoi on met

Code :

test = valeurdepart

et ca ca n'affiche pas le numero

enfin deja plus d'erreur

[Daniel.C]

Je voulais juste te montrer qu'il fallait renseigner "test" dans une fonction du même nom. Regarde cette fonction toute simple :

Code :

1
2
3
4
Function test()
        Application.Volatile 'sert à l'actualisation de la fonction quand la valeur de D15 change
        test = Range("D15").Value
    End Function

Elle renvoie la valeur de la cellule D15 quand tu entres :

Code :

=test()

dans une cellule.

[tryolivier]

ha ok génial ! merci beaucoup