Appel d'une fonction dans formulaire

Le 22/09/2019 à 09:57

Bonjour à tous !

Je viens à vous car je bloque…

Je suis en train de faire le jeu des petits chevaux sous un formulaire Excel (pour un projet de cours)

Tout fonctionne, mais au bout d'un certains temps, M. Excel n'est plus content et me dit que ma procédure est trop longue… la quasi totalité de mon code se trouve dans un bouton de commande "Lancer le dé".

Je choisi donc de scinder mon code (le déplacement des petits chevaux, 4 couleurs) en 4 macros différentes dans un module, et je les appelle dans mon bouton de commande "Lancer le dé" du formulaire…

Plus de message d'erreur, tout va bien…

Sauf que, et bien impossible de trouver comment les macro du module peuvent allez chercher les valeurs du formulaire...

Si vous avez une solution...

En vous remerciant par avance !

Lili

Le 22/09/2019 à 10:09

Voici en exemple une macro pour le déplacements des chevaux rouges

Spoiler

Sub bleu()

If Label95 = 1 Then

If Label30 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label30 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label30 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label30 = "B"

ElseIf Label95 = 2 Then

If Label31 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label31 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label31 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label31 = "B"

ElseIf Label95 = 3 Then

If Label32 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label32 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label32 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label32 = "B"

ElseIf Label95 = 4 Then

If Label33 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label33 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label33 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label33 = "B"

ElseIf Label95 = 5 Then

If Label34 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label34 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label34 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label34 = "B"

ElseIf Label95 = 6 Then

If Label35 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label35 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label35 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label35 = "B"

ElseIf Label95 = 7 Then

If Label36 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label36 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label36 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label36 = "B"

ElseIf Label95 = 8 Then

If Label30 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label30 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label30 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label37 = "B"

ElseIf Label95 = 9 Then

If Label38 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label38 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label38 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label38 = "B"

ElseIf Label95 = 10 Then

If Label39 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label39 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label39 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label39 = "B"

ElseIf Label95 = 11 Then

If Label40 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label40 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label40 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label40 = "B"

ElseIf Label95 = 12 Then

If Label41 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label41 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label41 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label41 = "B"

ElseIf Label95 = 13 Then

If Label42 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label42 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label42 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label42 = "B"

ElseIf Label95 = 14 Then

If Label43 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label43 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label43 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label43 = "B"

ElseIf Label95 = 15 Then

If Label44 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label44 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label44 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label44 = "B"

ElseIf Label95 = 16 Then

If Label45 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label45 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label45 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label45 = "B"

ElseIf Label95 = 17 Then

If Label46 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label46 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label46 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label46 = "B"

ElseIf Label95 = 18 Then

If Label47 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label47 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label47 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label47 = "B"

ElseIf Label95 = 19 Then

If Label48 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label48 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label48 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label48 = "B"

ElseIf Label95 = 20 Then

If Label49 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label49 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label49 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label49 = "B"

ElseIf Label95 = 21 Then

If Label50 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label50 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label50 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label50 = "B"

ElseIf Label95 = 22 Then

If Label51 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label51 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label51 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label51 = "B"

ElseIf Label95 = 23 Then

If Label52 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label52 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label52 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label52 = "B"

ElseIf Label95 = 24 Then

If Label53 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label53 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label53 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label53 = "B"

ElseIf Label95 = 25 Then

If Label2 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label2 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label2 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label2 = "B"

ElseIf Label95 = 26 Then

If Label3 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label3 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label3 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label3 = "B"

ElseIf Label95 = 27 Then

If Label4 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label4 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label4 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label4 = "B"

ElseIf Label95 = 28 Then

If Label5 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label5 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label5 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label5 = "B"

ElseIf Label95 = 29 Then

If Label6 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label6 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label6 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label6 = "B"

ElseIf Label95 = 30 Then

If Label7 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label7 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label7 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label7 = "B"

ElseIf Label95 = 31 Then

If Label8 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label8 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label8 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label8 = "B"

ElseIf Label95 = 32 Then

If Label9 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label9 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label9 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label9 = "B"

ElseIf Label95 = 33 Then

If Label10 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label10 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label10 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label10 = "B"

ElseIf Label95 = 34 Then

If Label11 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label11 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label11 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label11 = "B"

ElseIf Label95 = 35 Then

If Label12 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label12 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label12 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label12 = "B"

ElseIf Label95 = 36 Then

If Label13 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label13 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label13 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label13 = "B"

ElseIf Label95 = 37 Then

If Label14 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label14 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label14 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label14 = "B"

ElseIf Label95 = 38 Then

If Label15 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label15 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label15 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label15 = "B"

ElseIf Label95 = 39 Then

If Label16 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label16 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label16 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label16 = "B"

ElseIf Label95 = 40 Then

If Label17 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label17 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label17 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label17 = "B"

ElseIf Label95 = 41 Then

If Label18 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label18 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label18 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label18 = "B"

ElseIf Label95 = 42 Then

If Label19 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label19 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label19 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label19 = "B"

ElseIf Label95 = 43 Then

If Label20 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label20 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label20 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label20 = "B"

ElseIf Label95 = 44 Then

If Label21 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label21 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label21 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label21 = "B"

ElseIf Label95 = 45 Then

If Label22 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label22 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label22 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label22 = "B"

ElseIf Label95 = 46 Then

If Label23 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label23 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label23 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label23 = "B"

ElseIf Label95 = 47 Then

If Label24 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label24 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label24 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label24 = "B"

ElseIf Label95 = 48 Then

If Label25 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label25 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label25 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label25 = "B"

ElseIf Label95 = 49 Then

If Label26 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label26 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label26 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label26 = "B"

ElseIf Label95 = 50 Then

If Label27 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label27 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label27 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label27 = "B"

ElseIf Label95 = 51 Then

If Label28 = "R" Then

Label96 = ""

MsgBox "le joueur rouge a ?t? ?ject? et retourne ? l'?curie!"

ElseIf Label28 = "V" Then

Label94 = ""

MsgBox "Le joueur vert a ?t? ?j?ct? et retourne ? l'?curie!"

ElseIf Label28 = "J" Then

Label93 = ""

MsgBox "Le joueur jaune a ?t? ?j?ct? et retourne ? l'?curie!"

End If

Label28 = "B"

End If

End Sub

Alors oui très répétitifs, mais pas trouver mieux…

Les labels correspondent aux cases de mon plateau de jeu

Le 22/09/2019 à 15:03

Bonjour,

Fournir le fichier SVP

Préciser ta configuration (MAC/PC W10-365...)

A+

Rechercher des sujets similaires à "appel fonction formulaire"