XL 2016 Bouton de commande suppression texte dans cellule

[Lucio]

Bonjour,
Qui pourrait m'aider ? j'aimerais avoir un bouton qui effacerait le texte de certaines cellules et la coche des cases à cocher.
Merci d'avance de votre aide.

 

[fanch55]

Bonjour,

Quelles sont les cellules et checkboxes ?

 

[Lucio]

Bonjour,
Toutes les cases à cocher ainsi que les cellules: D38, E1, E9, E10, G5, G6, G7, G26, P5, P6, P7, M8, N19, O38, R12, R26, S31, H44, E45, R45, G51, O51, D53, H54, P53, P54, C57, I58, F59, G63, H64, P63, P64.

 

[fanch55]

Mettez le code suivant dans celui de la feuille

Option Compare Text

Private Sub CommandButton1_Click()
    For Each Elem In Me.Shapes
        If TypeName(Elem.OLEFormat.Object) = "CheckBox" Then
            Elem.OLEFormat.Object.Value = False
        ElseIf TypeName(Elem.OLEFormat.Object) = "OLEObject" Then
            If Elem.OLEFormat.progID Like "*CheckBox*" _
            Then Elem.OLEFormat.Object.Object.Value = False
        End If
    Next
    For Each Adr In Split("D38,E1,E9,E10,G5,G6,G7,G26,P5,P6,P7,M8,N19,O38,R12,R26,S31,H44,E45,R45,G51,O51,D53,H54,P53,P54,C57,I58,F59,G63,H64,P63,P64", ",")
        Me.Range(Adr) = vbNullString
    Next
End Sub

 

[Lucio]

Mettez le code suivant dans celui de la feuille

Option Compare Text

Private Sub CommandButton1_Click()
    For Each Elem In Me.Shapes
        If TypeName(Elem.OLEFormat.Object) = "CheckBox" Then
            Elem.OLEFormat.Object.Value = False
        ElseIf TypeName(Elem.OLEFormat.Object) = "OLEObject" Then
            If Elem.OLEFormat.progID Like "*CheckBox*" _
            Then Elem.OLEFormat.Object.Object.Value = False
        End If
    Next
    For Each Adr In Split("D38,E1,E9,E10,G5,G6,G7,G26,P5,P6,P7,M8,N19,O38,R12,R26,S31,H44,E45,R45,G51,O51,D53,H54,P53,P54,C57,I58,F59,G63,H64,P63,P64", ",")
        Me.Range(Adr) = vbNullString
    Next
End Sub

Merci bcp! ça fonctionne nickel!

 

[Lucio]

Merci bcp! ça fonctionne nickel!

Bonjour,
Désolé j'ai un autre soucis quand je protège la feuille et que je reset avec mon bouton de commande, une box s'ouvre et indique un débogage. En mettant fin elle disparait et ma feuille est resetée. Comment puis-je faire pour que cette box ne s'ouvre plus?

 

[fanch55]

Option Compare Text

Private Sub CommandButton1_Click()
Me.Unprotect     'Motdepasse si existe
    For Each Elem In Me.Shapes
        If TypeName(Elem.OLEFormat.Object) = "CheckBox" Then
            Elem.OLEFormat.Object.Value = False
        ElseIf TypeName(Elem.OLEFormat.Object) = "OLEObject" Then
            If Elem.OLEFormat.progID Like "*CheckBox*" _
            Then Elem.OLEFormat.Object.Object.Value = False
        End If
    Next
    For Each Adr In Split("D38,E1,E9,E10,G5,G6,G7,G26,P5,P6,P7,M8,N19,O38,R12,R26,S31,H44,E45,R45,G51,O51,D53,H54,P53,P54,C57,I58,F59,G63,H64,P63,P64", ",")
        Me.Range(Adr) = vbNullString
    Next
Me.protect     'Motdepasse si existe
End Sub

 

[Lucio]

Option Compare Text

Private Sub CommandButton1_Click()
Me.Unprotect     'Motdepasse si existe
    For Each Elem In Me.Shapes
        If TypeName(Elem.OLEFormat.Object) = "CheckBox" Then
            Elem.OLEFormat.Object.Value = False
        ElseIf TypeName(Elem.OLEFormat.Object) = "OLEObject" Then
            If Elem.OLEFormat.progID Like "*CheckBox*" _
            Then Elem.OLEFormat.Object.Object.Value = False
        End If
    Next
    For Each Adr In Split("D38,E1,E9,E10,G5,G6,G7,G26,P5,P6,P7,M8,N19,O38,R12,R26,S31,H44,E45,R45,G51,O51,D53,H54,P53,P54,C57,I58,F59,G63,H64,P63,P64", ",")
        Me.Range(Adr) = vbNullString
    Next
Me.protect     'Motdepasse si existe
End Sub

Merci bcp! c'est vraiment top! merci merci merci

 

[Lucio]

Merci bcp! c'est vraiment top! merci merci merci

Alors j'ai une fenêtre qui s'ouvre en m'indiquant de mettre mon mot de passe, une fois fait je suis toujours protégé mais je peux ôter la protection sans pass. y a-t-il pas moyen de rester toujours protégé?

 

[Lucio]

Alors j'ai une fenêtre qui s'ouvre en m'indiquant de mettre mon mot de passe, une fois fait je suis toujours protégé mais je peux ôter la protection sans pass. y a-t-il pas moyen de rester toujours protégé?

en fait , j'aimerais avoir ma feuille protégée tout le temps et ne pas avoir de fenêtre de bogue qui s'ouvre à chaque fois que j'appuie sue mon bouton de commande suppression.