[vba excel] nettoyer un userform avec des optionbutton

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

discusagon

XLDnaute Nouveau
Bonjour,

j'ai une petite macro qui met en forme des comptes rendu dans excel.

j'ai fait un userform pour demander d'indiquer le valideur du compte rendu avec 4 optionbutton.

ça marche bien la première fois, mais j'ai un soucis quand je fais plusieurs compte rendus à la suite sans fermer les classeurs entre temps :

mes optionbutton restent cochés et je ne peux pas cocher à nouveau celui qui est déjà coché.

Je cherche donc un moyen de tout déselectionner à la fin de la macro pour repartir sur un user form vierge lors du prochain lancement.

Voici le code correspondant à un option button du userform :

Code:
Private Sub OptionButton1_Click()
'rappel des noms des fenetres
Dim dateCR As String
Windows("Bilans.xls").Activate
bilan = Sheets("param").Cells(1, 2)
feuillebilan = Sheets("param").Cells(4, 2)
Windows(bilan).Activate
Sheets(feuillebilan).Activate
Range("B5").Select
ActiveCell.End(xlDown).Offset(0, -1).Select
dateCR = ActiveCell
CR = "CR du " & Format((dateCR), "dd mmmm yyyy") & ".xls"
    
    Dim Ctrl As Control
    
    For Each Ctrl In valideur.Controls
        If Ctrl.Object.Value = True Then
            'MsgBox Ctrl.Object.Caption
Windows(CR).Activate
Sheets("CR").Select
Range("E66") = "valideur"
            Exit For
        End If
    Next Ctrl
'_______________________________________
valideur.Hide
ActiveWorkbook.Save
MsgBox ("le compte rendu est créé et enregistré")
   Load dialogue_dejaCR
 dialogue_dejaCR.Show
End Sub

merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour