VBA : Afficher le nom suivant de la liste de donnée d'une cellule
Bonjour ! Grâce à vous j'ai quasi terminé le jeu de dé que je souhaite réaliser ! Merci !!
Il ne me reste qu'un détail sur lequel je bloque.
J'ai en FEuil1, cellule B7 une liste de validation de données de 3 noms (noms des joueurs qui jouent chacun leur tour) rattachées à la feuil2(A2:A4). C'est à dire que le nom 1 est en A2, nom 2 est en A3 et nom 3 en A4 sur la feuille 2 =)
J'ai crée un bouton "Validation tour" (qui me sert à enregistrer les scores) j'aimerais que lorsque l'on clique dessus, cela passe au joueur suivant dans ma liste de donnée en B7.
Exemple:
en B7 c'était joueur 1, j'appuie sur le bouton et B7 devient joueur 2.
si B7 est joueur 2 , j'appuie sue le bouton et B7 devient joueur 3
si B7 est joueur 3 , j'appuie sue le bouton et B7 devient joueur 4
Merci beaucoup !!
J'ai essayé une formule avec If, mais je n'arrive pas à séparer mes conditions, (je n'ai appris VBA qu'au travers d'internet et les forums).
Sub Rectangle4_Cliquer()
If Range("B7")=Sheets("Feuil2").Range("A2") Then
Range("B7")=Sheets("Feuil2").Range("A3")
End If
If Range("B7")=Sheets("Feuil2").Range("A3") Then
Range("B7")=Sheets("Feuil2").Range("A4")
End if
If Range("B7")=Sheets("Feuil2").Range("A4") Then
Range("B7")=Sheets("Feuil2").Range("A2")
End If
End Sub
Les conditions interfèrent et je me retrouve toujours avec le nom1 en A2, je ne sais pas comment les faire l'une après l'autre.
Il y a peut etre Elself ou autre à utiliser ?
Merci beaucoup !
Bon désolé de vous avoir dérangé, j'ai bien réussi avec Elseif c'est juste que j'avais essayé en écrivant Elself....
Mais comme cela ça marche :
Sub Rectangle6_Cliquer()
If Range("B7") = Sheets("Feuil2").Range("A2") Then
Range("B7") = Sheets("Feuil2").Range("A3")
ElseIf Range("B7") = Sheets("Feuil2").Range("A3") Then
Range("B7") = Sheets("Feuil2").Range("A4")
ElseIf Range("B7") = Sheets("Feuil2").Range("A4") Then
Range("B7") = Sheets("Feuil2").Range("A2")
End If
End Sub