Bonjour,
Le suis à la recherche du petit bout de programme dans le module de classe 1 qui quand au moins une checkbox de l'userform est cochée vrai un bouton s'affiche , et quand aucune checkbox est cocheé le bouton disparait.
Pour information j'ai 7 checkbox dans l'userform.
Bonjour Hulk,
Je te remercie pour ta prompte réponse.
Quand je clique sur une checkbox le bouton s'affiche bien mais a priori si je coche et décoche une autre checkbox le bouton disparaît alors que je souhaite qu'il reste afficher temps qu'une checkbox est encore cochée.
Public WithEvents grcbx As MSForms.CheckBox
Private Sub grcbx_Click()
With UserForm1
.CommandButton1.Visible = False
For n = 1 To 7
If .Controls("CheckBox" & n) Then .CommandButton1.Visible = True: Exit For
Next
End With
End Sub
J'ai utilisé le morceau de programme de "Kjin" qui fonctionne parfaitement.
Je me permets de profiter de vos compétences pour vous soumettre le problème suivant de mon programme (joint ).
Je souhaite que les feuilles sélectionnées par les cheekbox (2 à 7) correspondantes soient copier ( via une boucle )suivant le même principe que la checkbox 1 qui fonctionne.
si vous connaissez une autre methode je suis preneur.
Bonsoir ,
Excuser moi de ma demande ,je me suis permis de poser le problème car il est certain que les personnes qui m'ont répondu sont plus compétent que moi car j'ai chercher la solution pendant deux jours en vain une réponse qui m'a été donnée en 5 minutes.
Etant débutant en vba je cherche en premier à trouver la solution via les discussions similaire de ce très bon site.
J'ai également comme principe de régler les problèmes l'un après l'autre.