RAZ des checkbox

[nrdz83]

Bonsoir à tous,

Je me suis fais un formulaire de saisie dans une feuille excel et je cherche à me faire une macro qui me met à zéro ce formulaire.

Dans mon formulaire il y a des cellules et des cases à cocher, ces dernières renvoies les valeurs vrai/faux dans les cellules M44:O52. J'ai nommé cette zone Zone_Checkbox.

Mon problème est que je n'arrive pas à remettre à blanc ces checkbox.

J'ai essayé avec ce code en vain.

Sub RAZ_Formulaire()
'
If MsgBox("Êtes vous sur de vouloir effacer le bon de préparation  ?", vbQuestion + vbYesNo, "METTRE A ZERO LE FORMULAIRE ...") = vbYes Then
    Range("C5:D5,C9:D9,C10:D10,G10:H10,G9:H9,G5:H5,L5,L6,K9:L9,K10:L10").Select
    Range("K10").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=6
    Range("B15:D27,H15:H27").Select
    Range("H15").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B32:H37,K32:K37").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=21
    Range( _
        "D44:E44,D46:E46,D48:E48,D50:E50,D52:E52,G44:H44,G46:H46,G48:H48,G50:H50,G52:L52,K44:L44,K46:L46,K48:L48,K50:L50,B55:L59,D61:E61,J61:L61,D63:L68" _
        ).Select
    Range("D63").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-39
    Range("C5:D5").Select
    ActiveWindow.SmallScroll Down:=-9
    'Vide les checkbox
    Application.Goto Reference:="Zone_Checkbox"
    ActiveCell.FormulaR1C1 = "TRUE"
    Range("A1").Select
    
End If
End Sub

Par avance merci pour vos lumières.

Amitiés

 

[DoubleZero]

Re : RAZ des checkbox

Bonjour, nrdz83, le Forum,

De l'aide, peut-être, dans cette discussion.

A bientôt 🙂

 

[nrdz83]

Re :[résolu] RAZ des checkbox

Bonjour et super merci grâce à ce fil j'ai pu trouver réponse à mon problème.

Amitiés et bon week-end