Discussion :

[Bubale]

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

[Jean-Pierre49]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour,

Une autre piste éventuelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bubale]

Ok, ca marche!
Merci beaucoup!

[Jean-Pierre49]

Bonjour fring

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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