effacer toutes les checkbox d'une sheet

Version imprimable

17/04/2008, 09h47
Bubale

effacer toutes les checkbox d'une sheet

Bonjour à tous!
Parmi plein de formes différentes dans une sheet(menus en listes, case options,etc..)j'ai un grand nombre de checkbox dans cette page excel et je voudrais insérer une fonction VBA qui les supprime toutes (et uniquement les checkboxes) lorsque je clique sur un bouton affecté à la macro correspondante. Je sais qu'il faut utiliser une commande "for each controls in...etc." mais je ne maitrise pas trop le "controls()" et j'ai peur d'effacer toutes les formes de ma page!
Quelqu'un aurait-il une idée?
Merci!
Bonne journée

Bonjour,

Une piste dans le cas ou les checkbox ne sont pas renommés.

Code:

1
2
3
4
5
                            Dim ControleRecherche                   As Shape
 
    For Each ControleRecherche In ActiveSheet.Shapes
        If Left(ControleRecherche.Name, 9) = "Check Box" Then ControleRecherche.Delete
    Next

Bonjour,

Une autre piste éventuelle

Code:

1
2
3
4
5
6
7
Sub test()
Dim CB As OLEObject
 
For Each CB In ActiveSheet.OLEObjects
If TypeOf CB.Object Is MSForms.CheckBox Then CB.Delete
Next
End Sub

17/04/2008, 11h29
Bubale

Ok, ca marche!
Merci beaucoup!

Bonjour fring

Ton Code ne fait rien chez moi, a tu une idée, :(

Néanmoins, récupérer avec F1 et adapté

Code:

1
2
3
4
5
6
7
                            Dim Cb                   As Shape
 
For Each Cb In ActiveSheet.Shapes
    If Cb.Type = msoFormControl Then
        If Cb.FormControlType = xlCheckBox Then Cb.Delete
    End If
Next

Fonctionne bien :king:

17/04/2008, 12h15
fring

Oui exact Jean-Pierre...j'ai oublié une petite précision, je n'utilise jamais la barre à outils "Formulaires" pour insérer les objets mais toujours la "Boîte à outils Contrôles" dont les objets offrent beaucoup plus de possibilités quant à leurs utilisations dans VBA.

D'où la différence entre les deux codes mais c'est bien d'avoir mis le doigt dessus ;)