Effacer tous les textbox et optionbutton dans une feuille

[sasjm37]

Bonjour à tous,
Dans plusieurs feuilles j'ai des 'textbox' et des 'optionbutton' que je rempli selon les besoins.
Je désire les effacer tous dans deux cas :
1) a l'ouverture du fichier
2) a la demande
Je suppose que la même macro peut réaliser ces deux cas, et il serait facile d'en faire une du style :
sub efface
textbox1=""
textbox2=""
...
textbox32=""
optionbutton1=""
...
end sub
mais je n'ai pas les compétences pour en faire une simple, concise et efficace quelque soit le nom des objets.
Merci d'avance de votre aide.
sasjm37

 

[James007]

Re : Effacer tous les textbox et optionbutton dans une feuille

Bonjour,

Avant toute chose, il faut savoir si les contrôles que tu utilises directement dans ta feuille ( et donc pas dans une userform ) proviennent des outils du type Formulaires ou du type ActiveX ...

A +
🙂

 

[Dull]

Re : Effacer tous les textbox et optionbutton dans une feuille

Salut sasjm37, le Forum

Sous réserve que j'ai bien compris avec des contrôles ActiveX

dans un Module

Sub EffaceObjets()
Dim x As OLEObject, i As Integer
For i = 1 To Sheets.Count
    For Each x In Sheets("Feuil" & i).OLEObjects
        If TypeName(x.Object) = "OptionButton" Then x.Object = False
        If TypeName(x.Object) = "TextBox" Then x.Object.Value = ""
    Next x
Next i
End Sub

à la commande d'un bouton
ou/et

Private Sub Workbook_Open()
EffaceObjets
End Sub

à l'ouverture du Fichier

Salut James 🙂

Bonne Journée

 

[sasjm37]

Re : Effacer tous les textbox et optionbutton dans une feuille

Merci pour l'intérêt que vous portez à mon cas.
Ca me rappelle un sketch de Roland Magdane : Bouteille en verre ou en plastique; pack de 6 ou pack de 12...

Dull ta réponse est intéressante mais James007 a posé la bonne question.
Et la réponse est : Ce sont des objets dans la feuille (et non dans un userform) qui proviennent des outils du type Formulaires.

 

[sasjm37]

Re : Effacer tous les textbox et optionbutton dans une feuille

En complétant mes recherches j'ai trouvé ceci qui s'approche de ce que je recherche :
(macro de Mi_)
Dim Box As Object
For Each Box In ActiveSheet.Shapes
Box.Delete
Next

Sauf que je ne veux pas supprimer les objets mais seulement effacer leur contenu.
J'ai tenté Box.clear qui ne fonctionne pas,
quelqu'un a-t-il une proposition ?
merci

 

[James007]

Re : Effacer tous les textbox et optionbutton dans une feuille

Salut sasjm37, Coucou Dull 🙂

Merci pour l'explication pour les boutons options des formulaires ...
mais ce menu ne fournit pas de boite de texte ...

Peux-tu poster un petit fichier pour éclairer nos lanternes ...?

A +
🙂

 

[sasjm37]

Re : Effacer tous les textbox et optionbutton dans une feuille

Voici un exemple. il faut effacer les données a l'ouverture du fichier ou sur action d'un bouton (pas présent dans l'exemple).
Merci

 

[James007]

Re : Effacer tous les textbox et optionbutton dans une feuille

Re,

Merci beaucoup pour le fichier ...
c'est fou comme cela va tellement plus vite avec un exemple ...!!!

voir fichier joint ...

A +
🙂

P.S. pour info, les contrôles utilisés sont des contrôles ActiveX ...

et Bisous à Marie-Thérèse 😱

 

[natorp]

Re : Effacer tous les textbox et optionbutton dans une feuille

Bjr à tous

James, peux-tu avoir la gentillesse de mettre le code dans un message, mon réseau d'entreprise ne me permet pas de récupérer les code VBA...

merci beaucoup, Gérard

 

[sasjm37]

[Résolu] Re : Effacer tous les textbox et optionbutton dans une feuille

[Résolu]
Merci James007, je prends note que ces objets sont des activeX (Dsl DULL, je vais replonger dans ton code).
C'est parfait.

PS : Je transmet la bise à Marie Thérèse...

 

[James007]

Re : Effacer tous les textbox et optionbutton dans une feuille

Re,

@natorp ... le code se trouve au message # 3 ...

@sasjm37 ... content que tout marche ... mais j'insiste beaucoup pour la bise à Marie-Thérèse .... 😱 😱 😱

A +
🙂

 

[natorp]

Re : Effacer tous les textbox et optionbutton dans une feuille

Oups...!! merci j'ai adapté avec les checkbox et c'est nickel...

Bon WE, Gérard