CheckBox inactives suite à macro value=false Résolu

Question

Bonjour, 

J'ai créé un formulaire avec 9 CheckBox.
Je voudrais pouvoir réinitialiser le formulaire grâce à un macro.
J'ai créé celle ci-dessous (les 4 dernières lignes ne concernant pas le "décochage" des CheckBox):

Sub Ex_restart()
'
' Ex_restart Macro
'

'
    Sheets("Export").Select
    Worksheets("Export").CheckBox1.Value = False
    Worksheets("Export").CheckBox2.Value = False
    Worksheets("Export").CheckBox3.Value = False
    Worksheets("Export").CheckBox4.Value = False
    Worksheets("Export").CheckBox5.Value = False
    Worksheets("Export").CheckBox6.Value = False
    Worksheets("Export").CheckBox7.Value = False
    Worksheets("Export").CheckBox8.Value = False
    Worksheets("Export").CheckBox9.Value = False
    Sheets("Export").Select
    Rows("6:24").Select
    Selection.EntireRow.Hidden = True
    Range("A1:G1").Select

End Sub

EDIT : Ajout des BALISES DE CODE


Quand je lance ma macro restart, tout se passe bien et les CheckBox sont décochées.
Cependant, il devient alors impossible de cocher à nouveau ces CheckBox.


Existerait-il une solution pour "réactiver" la possibilité de ces CheckBox après lancement de la macro ?


Merci d'avance pour votre aide !

jordane45 · Answer

Bonjour,

Rien ne semble empêcher les checkbox de refonctionner après cette macro.
par contre, elle serait un peu mieux écrite de cette façon (à tester)

Sub Ex_restart()
'
' Ex_restart Macro
'
    Dim Sh As Worksheet
    Set Sh = Worksheets("Export")
    
    With Sh
     .CheckBox1.Value = False
     .CheckBox2.Value = False
     .CheckBox3.Value = False
     .CheckBox4.Value = False
     .CheckBox5.Value = False
     .CheckBox6.Value = False
     .CheckBox7.Value = False
     .CheckBox8.Value = False
     .CheckBox9.Value = False
    
     .Rows("6:24").EntireRow.Hidden = True
     .Range("A1:G1").Select
    End With
    
End Sub
 
 

NB: Pour poster du code sur le forum, merci de le faire en utilisant LES BALISES DE CODE (et en y précisant le langage)
Explications disponibles ici :  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

cs_Le Pivert · Answer

Bonjour,

on peut faire plus court voir ceci:

https://docs.microsoft.com/fr-FR/office/vba/excel/Concepts/Controls-DialogBoxes-Forms/using-activex-controls-on-sheets 

Private Sub essai()
Dim s As Shape
For Each s In Worksheets("Export").Shapes
    If s.Type = msoOLEControlObject Then ActiveSheet.OLEObjects(s.Name).Object.Value = False
Next
End Sub


voilà

CheckBox inactives suite à macro value=false

2 réponses

Discussions similaires

Newsletters