Discussion :

[MarcelG]

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 :

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

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.

[MarcelG]

Re-bonsoir,

Je pense avoir trouvé.

Il faut balayer les contrôles sous une autre forme

Code :

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

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.

[Qwazerty]

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 :

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

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 :

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

        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

[MarcelG]

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 :

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

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 :

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

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

,

alors l'instruction se réalise.

Merci.

Signé : papillon.

[Qwazerty]

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

[MarcelG]

Bonsoir Qwaz,

Aucun problème.