XL 2016 Bouton de commande suppression texte dans cellule

fanch55 à dit:

Mettez le code suivant dans celui de la feuille

VB:

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

Cliquez pour agrandir...

Lucio à dit:

Merci bcp! ça fonctionne nickel!

Cliquez pour agrandir...

fanch55 à dit:

VB:

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

Cliquez pour agrandir...

Lucio à dit:

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

Cliquez pour agrandir...

Lucio à dit:

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é?

Cliquez pour agrandir...