Bon voilà j'ai un soucis, je n'arrive pas à afficher un ensemble de résultat dans un seul message..Je vais vous montrer le code je pense que cela sera plus facile pour vous expliquer mon soucis^^
[quote]Private Sub Commande16_Click()
Const msg_equipe As String = "Entrer le nombre d'équipe total du tournois"
Dim equipe As String
Dim chSQL As String
Dim nb_equipe As String
Dim nb As Integer
Dim cnx As New ADODB.Connection
Dim jeu As New ADODB.Recordset
Set cnx = CurrentProject.Connection
chSQL = "JOUER"
nb_equipe = InputBox(msg_equipe)
For nb = 1 To nb_equipe
jeu.Open chSQL, cnx, adOpenStatic
equipe = "0" & nb
point = 0
While Not jeu.EOF
If jeu.Fields(2) = equipe Then
Select Case jeu.Fields(6)
Case Is = "GAGNE"
point = point + 3
Case Is = "NUL"
point = point + 2
Case Is = "PERDU"
point = point + 1
End Select
End If
jeu.MoveNext
Wend
[b]MsgBox ("L' équipe " & equipe & " à " & point & " points")/b
jeu.Close
Next
cnx.Close
End Sub
/quote
En faite ce que je voudrais faire, c'est afficher le message en gras uniquement dans un msgbox avec toutes les équipe. Dans mon code là j'affiche un msgbox pour chaque équipe ce n'est pas terrible!!!
Voilà donc si vous pouviez me donner un coup de main je vous en serai très reconnaissant!
