XL 2010 Userform CommandButton Grisé

whiteshark · 8 Septembre 2022

Bonjour à tous !

La communauté m'ayant déjà bien aidé, je reviens pour une nouvelle question.

Je suis en train de créer un fichier qui sera utilisé par plusieurs personnes avec un Userform qui s'ouvre à l'ouverture du fichier.
Cet Userform comprends 1 TextBox1 (nom de feuille), 1 Frame1 (utilisateur) avec 8 OptionButton (n°1 à 8), 1 Frame2 (secteur) avec 4 OptionButton (n°9 à 12) et 1 CommandButton1 (nouvelle feuille).
Le but est que le CommandButton soit grisé et verrouillé tant que les 3 infos demandés ne sont pas renseignés (TextBox1 remplit, 1 nom d'utilisateur et 1 secteur). J'ai mis le Enable sur False pour le CommandButton soit bloqué mais ensuite impossible de réussir à le déverrouiller, je bloque complètement.

Et 2ème question, j'aimerais repporté le nom de feuille, le nom d'utilisateur et le secteur renseigné dans l'userforme dans 3 cellules de ma feuil1 (par exemple nom de feuille en A1, nom d'utilisateur A2 et le secteur en A3)

Voilà... de manière général je n'ai jamais utilisé d'userform donc je me suis dit que c'était le bon moment pour m'y mettre mais je vous avoue que j'ai franchement du mal.

Merci pour votre aide !!

yal · 8 Septembre 2022

Bonjour
Rien de bien sorcier, vous devriez comprendre le code assez facilement.
PS. Si vous aviez joins un fichier cela m'aurait évité d'avoir à le reconstruire.

patricktoulon · 8 Septembre 2022

bonjour
une autre proposition

quand a moi je reprends le userform de yal j'efface tout et je fait un subclassing
un seul event pour tout les optionbutton

autrement dit a chaque fois que tu modifie un des ces controls tu modifie le bouton si il y a lieu de le faire automatiquement donc le contrôle se fait Avant click sur le bouton valider

VB:

Option Explicit
Public WithEvents GroupOpt As MSForms.OptionButton
Dim cls() As New UF_NouveauFichier

Private Sub UserForm_Activate()
    Dim a&, opt
    Me.Repaint
    For Each opt In Me.Controls
        If " Frame1 Frame2 " Like "*" & opt.Parent.Name & "*" Then
            a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).GroupOpt = opt
        End If
    Next
End Sub

Private Sub TxbNomFeuile_Change(): ControlEenable: End Sub
Private Sub Btn_Annuler_Click():  Unload UF_NouveauFichier:End Sub

Private Sub groupopt_Click(): ControlEenable: End Sub 'un seul event pour tout les optionbutton
Sub ControlEenable()
    Dim q&, ctrl
    For Each ctrl In UF_NouveauFichier.Controls
        If " Frame1 Frame2 " Like "*" & ctrl.Parent.Name & "*" Then
            If ctrl.Value = True Then q = q + 1
        End If
    Next
    If UF_NouveauFichier.Controls("TxbNomFeuile").Value <> "" Then q = q + 1

    UF_NouveauFichier.Controls("Btn_Valider").Enabled = (q = 3)
End Sub

whiteshark · 9 Septembre 2022

Bonjour à tous les deux

Déjà merci pour vos réponses et désolé de pas avoir mis un excel exemple .

Effectivement je comprends assez bien le code de yal mais beaucoup moins celui patricktoulon .

patricktoulon ce que tu m'as donné réponds exactement à ce que je cherche mais il me manque juste la partie qui reports les infos sélectionnées dans les cellules d'une feuille ce que fait le code de yal. Du coup je suis en train de chercher à comprendre ton code pour réussir à incorporer la fin de celui de yal.

whiteshark · 9 Septembre 2022

C'est bon,ça marche ! Merci beaucoup !

patricktoulon · 9 Septembre 2022

re
Bonjour

mais il me manque juste la partie qui reports les infos sélectionnées dans les cellules d'une feuille ce que fait le code de yal. Du coup je suis en train de chercher à comprendre ton code pour réussir à incorporer la fin de celui de yal.

ben après pour ça c'est dans l'event click du bouton que tu doit faire ça
ça ne concerne plus le enabling automatique

yal · 9 Septembre 2022

Bonjour
Une version entièrement repensée. On peut ajouter autant de noms et de secteur qu'on veut. On peut mettre les captions qu'on veut. Et le bouton "Nouvelle feuille" est bien valide ou non suivant le cas.

patricktoulon · 10 Septembre 2022

bonjour @yal
si tu utilise l'event du bouton pour valider ou pas ,
a quoi ca te sert de classer les optionbuttons ???????
à rien

tu dis
on peut mette autant de nom que l'on veut
et dans l'event du bouton tu boucle de 1 à 8 et de 1 à 4

yal · 10 Septembre 2022

Bonjour patricktoulon

si tu utilise l'event du bouton pour valider ou pas ,
a quoi ca te sert de classer les optionbuttons ???????
à rien

Je ne comprends pas la question.

tu dis
on peut mette autant de nom que l'on veut
et dans l'event du bouton tu boucle de 1 à 8 et de 1 à 4

et je le maintiens même si je t'accordes que mon code n'était pas parfaitement finalisé dans ce sens. Voilà qui est fait.

whiteshark · 13 Septembre 2022

Merci pour toutes vos réponses !
Ton dernier fichier marche nickel yal mais, parce qu'il y a un mais , comment je fais pour rajouter un frame et 2 optionbuttons ?Après discussion avec mes collègues il s'avère qu'il faudrait une proposition en plus... Et j'avoueque j'ai un peu de mal pour comprendre le code. Je suppose qu'il faut changer les C1, C2, C3 et C4 et rajouter un nouveau if dans le Private Sub Btn_Valider_Click mais je dois tester tout ça.

yal · 13 Septembre 2022

Bonjour
Dans le principe c'est ça mais ça implique quelques modifications supplémentaires dans le code. Voici la version adaptée. En comparant avec la version 4 tu devrais voir assez facilement les changements. Si tu as des questions n'hésite pas.

whiteshark · 14 Septembre 2022

Merci beaucoup !

Avec tes deux fichiers v4 et v5 je devrais pouvoir m'en sortir si j'ai une autre modif à faire. Potentiellement une autre TxbBox, c'est encore en discussion. Je reviendrais certainement si j'ai un autre problème.

En tout cas merci !

yal · 14 Septembre 2022

Bonjour
Une version dynamique qui devrait répondre à pas mal de questions.

whiteshark · 14 Septembre 2022

Merci ! Avec ça il ne devrait plus y avoir de problème sir y a encore du changement.

yal · 15 Septembre 2022

Bonjour
Encore une version un peu plus aboutie. Dans la précédente une seule textbox était prise en compte pour réveiller le bouton "Valider". Dans la nouvelles on pourra en ajouter autant qu'on veut et choisir celles qui seront obligatoires ou pas.

XL 2010 Userform CommandButton Grisé

whiteshark

XLDnaute Nouveau

yal

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

whiteshark

XLDnaute Nouveau

whiteshark

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

yal

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

yal

XLDnaute Occasionnel

Pièces jointes

whiteshark

XLDnaute Nouveau

yal

XLDnaute Occasionnel

Pièces jointes

whiteshark

XLDnaute Nouveau

yal

XLDnaute Occasionnel

Pièces jointes

whiteshark

XLDnaute Nouveau

yal

XLDnaute Occasionnel

Pièces jointes

Discussions similaires