erreur 424, objet requis

[carlos]

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

 

[carlos]

Bonsoir galopin et le forum

desolé pour mon absence j eviens de rentrer et mes qq neuronnes avaient besoin du grand air .

Bref , effectivement Sub NBEL_click n'est pas dans le meme module que les autres puisque c'est un label d'un USFet que par defaut il se met sous le dossier de vba feuille et non module.les 2 autres macros sont sous le dossier module.

Y aqq chose que je fais mal , je pense

Je vais essayer de vous envoyer une PJ

Merci

 

[carlos]

bonsoir

voici la pj mais elle ne donnera rien de plus je pense, ce n'est que ce qu'il y a au dessus

carlos

 

[galopin01]

Bon,
Je sais plus trop ou j'en suis mais en virant le
Option Private Module ça devrait faire...
A+

 

[carlos]

bonsoir galopin

merci pour ton aide

carlos