Rajout sur un programme
Alain_vba
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
wh_wing Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
wh_wing Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonsoir tout le monde,
Je tiens à préciser que je débute en programmation VBA ! J'ai réalisé une fonction pile/face qui fonctionne et je voudrait créer un tournoi de pile/face.
C'est à dire que je veux que sur 4 joueurs, celui qui est en A1 affronte celui qui est en A2 et que celui en A3 affronte le joueur en A4. Et que les prénoms des deux gagnants se placent dans les cellules B1 et B2.
Malgré plusieurs tentatives, je n'y arrive pas..
Ma fonctione est la suivante :
Function Pileface() As Integer
Dim x As Double
x = Rnd()
Randomize
If x < 1 / 2 Then
Pileface = 0
Else
Pileface = 1
End If
End Function
Sub tirage()
If Pileface() = 1 Then
MsgBox ("face")
Else
MsgBox ("pile")
End If
End Sub
Cordialement, Arthur
Je tiens à préciser que je débute en programmation VBA ! J'ai réalisé une fonction pile/face qui fonctionne et je voudrait créer un tournoi de pile/face.
C'est à dire que je veux que sur 4 joueurs, celui qui est en A1 affronte celui qui est en A2 et que celui en A3 affronte le joueur en A4. Et que les prénoms des deux gagnants se placent dans les cellules B1 et B2.
Malgré plusieurs tentatives, je n'y arrive pas..
Ma fonctione est la suivante :
Function Pileface() As Integer
Dim x As Double
x = Rnd()
Randomize
If x < 1 / 2 Then
Pileface = 0
Else
Pileface = 1
End If
End Function
Sub tirage()
If Pileface() = 1 Then
MsgBox ("face")
Else
MsgBox ("pile")
End If
End Sub
Cordialement, Arthur
A voir également:
- Rajout sur un programme
- Programme demarrage windows - Guide
- Mettre en veille un programme - Guide
- Desinstaller un programme sur windows - Guide
- Forcer la fermeture d'un programme - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
