Bonjour ,
il doit me manquer qq chose sur la declaration de l'objet mais quoi ???
Sub informerrepartition()
Dim restant As Byte
Dim informer As Variant
NombreEleveDisp
restant = Cells(2, 2).Value - (Int(Cells(2, 2).Value / Cells(12, 1).Value) * Cells(12, 1).Value)
informer = Cells(2, 2).Value & ' joueurs répartis en ' _
& Int(Cells(2, 2).Value / Cells(12, 1).Value) & ' poules de ' _
& Cells(12, 1).Value _
& IIf(restant <> 0, ' et une poule de ' _
& restant _
& ' joueur(s)', '')
End Sub
Private Sub NBEL_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim informer As Variant
informerrepartition
NBEL.Caption = informer.Value
End Sub
Merci