effacer la propriété controlsource

Bonsoir la Forum,

Je cherche à effacer la propriété controlsource des controles texbox et combobox d'un formulaire, autrement dit mettre à blanc cette propriété (et non la cellule en référence)

J'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each ctrl In monformulaire.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then Debug.Print ctrl.Name Debug.Print ctrl.ControlSource   ctrl.ControlSource = Nothing 'ou ctrl.ControlSource.Delete   Debug.Print ctrl.ControlSource End If Next

---

J'ai cherché, peut-être mal, dans les tutoriels de Sylkiroad et dans l'aide en ligne, sans succès.

Merci.

Re-bonsoir,

Je pense avoir trouvé.

Il faut balayer les contrôles sous une autre forme

Code:

---

1 2 3 4 5 6 7 8 9

For Each ctrl In ThisWorkbook.VBProject.VBComponents("monformulaire").Designer.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then Debug.Print ctrl.Name Debug.Print ctrl.ControlSource   ctrl.ControlSource = "" Debug.Print ctrl.ControlSource End If Next

---

Merci aalex.

Salut

Pas si vite papillon! :)
Tu t'ai compliqué la vie et pourtant en mélangeant tes 2 poste tu as la solution la plus élégante!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each ctrl In monformulaire.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then Debug.Print ctrl.Name Debug.Print ctrl.ControlSource   ctrl.ControlSource = Nothing 'ou ctrl.ControlSource.Delete   Debug.Print ctrl.ControlSource End If Next

---

Ceci était très bien, le seul soucis c'est au niveau de controlSource, cette propriété est de type string, donc tu ne peux ni lui attribuer nothing, ni utiliser une méthode Delete qu'elle ne contient pas.
Ce que tu as résolu ici dans ton 2eme code

Code:

---

ctrl.ControlSource = ""

---

Voila ce qui fait que ton 2eme code marche et pas ton premier. Il est donc inutile de surcharger ta structure de For ....

++
Qwaz

Bonjour le Forum, Bonjour Qwaz,

Merci pour ta réponse.

Je me référais à une disscussion

acion sur les contrôles

alex, que je remercie, m'a fourni une explication qui se révèle exacte.

Je viens d'effectuer un nouvel essai.

Si je code

Code:

---

For Each ctrl In monformulaire.Controls

---

,

alors l'userform se charge et l'action qui suit est inefficace.

Si je code comme indiqué par aalex,

Code:

---

For Each ctrl In ThisWorkbook.VBProject.VBComponents("monformulaire").Designer.Controls

---

,

alors l'instruction se réalise.

Merci.

Signé : papillon.

Salut
D'accord je n'avais pas compris que tu voulais réaliser des modification "en dur" sur ton UserForm, je pensais que tu voulais faire un affichage dynamique, qui se modifié en fonctions de variables.
Alors désolé pour l'intrusion ;)
++
Qwaz

Bonsoir Qwaz,

Aucun problème.