Discussion :

[kalocou]

Bonjour tout le monde.
Une nouvelle difficulté se présente à moi !
Sur un usf j'ai créer une cinquantaine de bouton de commande qui apparaissent en vertu d'une boucle for next et d'une condition if ... then bouton i .visible=true.
Les boutons sont tous créés sur le formulaire et ils sont visibles où je veux quand je veux.
J'aimerais maintenant leur attribuer une macro "sub la macro" mais par code pour ne pas d'une part écrire 50 fois dans l'évenement on click de chaque bouton et d'autre part je me dis que je pourrais aussi dans ce cas changer de macro affectée au bouton suivant une condition.
Mes boutons se nomment ctb et j'aimerais donc savoir si on peut écrire quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
i = 2
For Each ctb In usf4.Controls
If Left(ctb.Name, 3) = "ctb" Then
    If nf.Cells(ind_el, i) <> 0 Then
ctb.Visible = True
'c'est là que je compte sur vous !!!
'ctb.Click = "Private Sub la macro"
i = i + 1
End If
Next ctb
End With
End Sub

d'aprés ce que j'ai lu il faudrait passer par un module de classe mais j'ai jamais fait et j'hésite un peu.
Si ca peut se faire avec une textbox je prends aussi !!!
Si vous avez une idée je vous remercie d'avance pour votre aide
Michel

[mercatog]

J'aimerais maintenant leur attribuer une macro "sub la macro"

Chaque bouton a sa macro ou bien une macro identique pour les 50 boutons
Quel différence entre la macro du bouton 1 et du bouton 36?

[kalocou]

Mercator ok une macro pour 50 boutons mais ...
Comment la leur affecter à moins de l'inscrire 50 fois dans l'événement clic de chaque bouton ?

[mercatog]

C'est faisable et simplement à l'aide des classes

Mais une question principale, pourquoi affecter une même macro à 50 boutons

[kalocou]

Merci mercator de confirmer mes craintes S
Pourquoi 50 boutons ?
Pour le confort de l 'utilisateur à moins de créer un bouton "flottant" avec la textbox qui va avec ...
Je prefere faire 50 copier-coller meme si et je le déplore ce n'est guère academique

[unparia]

Pour le confort de l 'utilisateur à moins de créer un bouton "flottant" avec la textbox qui va avec ...

et pourtant ! Ce "à moins" est probablement bien plus souhaitable
Dis-moi : j'espère que tu n'as pas, en plus, 50 textboxes sur ta userform (car là aussi, la conception est peut-être à reconsidérer).

[kalocou]

Voui unparia !!!
Maladroite ma conception je ne peux que l'assumer et peut etre même la revendiquer, mais bon quand on sait d'où je suis parti ...
Voilà je vais essayer d'expliquer le pourquoi
Mon usf reproduit un bulletin de notes trimestriel avec matiere, discipline et autres réjouissances.
Pour aider ma compagne à le remplir j'ai mis au point en amont d'autres usf qui lui permettent de créer les tableau de saisie de notes avec moyennes et les commentaires d'acquisition en cours de trimestre.
Au moment de remplir son bulletin trimestriel j'aimerais qu'elle ait en face de chaque discipline un bouton qui s'affiche lui signalant que un ou plusieurs commentaires sont dispo pour l'élève dans cette discipline.
J'espère avoir été clair !
Je vais me pencher sur les modules de classe, si tu peux me conseiller un ou deux tuto ce sera avec plaisir.
Michel

[unparia]

Bonjour

Mercator ok une macro pour 50 boutons mais ...
Comment la leur affecter à moins de l'inscrire 50 fois dans l'événement clic de chaque bouton ?

L'alternative (et il n'y a pas d'autre solution) est celle qui te fait "hésiter", à savoir :

d'aprés ce que j'ai lu il faudrait passer par un module de classe mais j'ai jamais fait et j'hésite un peu.

Ceci étant dit : 50 boutons révèlent le plus souvent une conception "maladroite". A reconsidérer, peut-être ...