Désélectionner tous les contrôles active x

Bonjour à tous.

J'ai fais un questionnaire avec des contrôles active x : cases à cocher et cases d'options.

Je souhaiterais savoir comment dé-sélectionner tous les boutons par macros.

Je pensais à quelque chose du genre:

Sheets("feuil1").Shapes.Value = xlOff

Mais bien évidemment, ça ne fonctionne pas. Ca aurait été trop simple.

L'important étant de tout sélectionner en même temps pour revenir à une feuille vierge.

Par avance merci.

Bonsoir,

ActiveSheet.DrawingObjects.Delete

Amicalement

Claude

Bonsoir Claude

En fait je ne souhaite pas effacer les objects mais simplement les dé-sélectionner.

il faut simplement que toutes les cases à cocher et boutons d'options ne soient pas cochés

Je coince un peu. Je ne connais rien du tout avec les "shapes" (ou "object"?)

Merci.

re,

Excuse, j'avais pas piger !

tu as essayé d'enregistrer ?

Claude

Re,

Oui, j'ai essayé d'enregistrer et j'obtiens ce code:

ActiveSheet.Shapes.Range(Array("Option Button 77")).Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$K$39"
        .Display3DShading = False
    End With

Le problème, c'est que la ligne:

ActiveSheet.Shapes.Range(Array("Option Button 77")).Select

concerne un seul bouton.

Il me faudrait donc un bout de code qui puisse sélectionner tous les boutons pour que je puisse ensuite mettre la ligne:

.Value = xlOff

Bonjour

A voir

Sub test()
Dim Sh As Shape

  For Each Sh In ActiveSheet.Shapes
    If Sh.Name Like "Option Button *" Or Sh.Name Like "Check Box *" Then
      Sh.ControlFormat.Value = xlOff
    End If
  Next Sh
End Sub

Bonjour Banzai64

C'est parfait. Je n'ai pas grand chose à dire de plus. Brillant.

Merci.