Problèmes avec l'instruction "Me"

[néné06]

Bonjour le Forum,

Depuis un Module, je cherche à manipuler des "Combobox", situées dans mon UserForm "UF_Fonctions_de_travail".

Ici je cherche à réinitialiser depuis le module, ma "ComboBox" de mon UserForm nommée "C1t", avec l'instruction:

Me.Controls("UF_Fonctions_de_travail" & C1t).Clear

Evidemment, une erreur apparaît !

Je recherche donc "un tuyau" pour remedier à ce problème.

D'avance merci !

René

 

[Marc L]

Re : Problèmes avec l'instruction "Me"

Bonjour,

pas clair, quel module ?!

Sinon rien qu'en lisant l'aide VBA de Me …

_______________________________________________________________________________
Je suis Charlie, Bardo, Sousse
​

 

[néné06]

Re : Problèmes avec l'instruction "Me"

Bonjour Marc,

J'ai placé dans un module nommé "Activer" ce sous programme:

Public Sub Active_C1t()
If Sheets("agents et fonctions inscrites").Cells(2, 3) <> "" Then
Me.Controls("UF_Fonctions_de_travail" & C1t).Clear
i = 2
Do Until Sheets("agents et fonctions inscrites").Cells(i, 3) = ""
C1t.AddItem (Sheets("agents et fonctions inscrites").Cells(i, 3))
i = i + 1
Loop
C1t.ListIndex = 0
End If
End Sub

Merci pour les réponses !

René

 

[néné06]

Re : Problèmes avec l'instruction "Me"

re,

Sinon avec l'aide VBA que j'avais déjà utilisé, j'obtient !



Désolé... Nous n’avons trouvé aucun résultat pour Me...

Essayez de reformuler votre requête

A+

René

 

[Marc L]

Re : Problèmes avec l'instruction "Me"

Donc en lisant l'aide VBA (ou sur MSDN), Me n'a donc rien à faire là ‼

A remplacer par l'objet contenant le contrôle (UserForm) …

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Copier / Coller n'est pas coder …

​

 

[mapomme]

Re : Problèmes avec l'instruction "Me"

Bonjour néné06,

Voir exemple joint dans module1.

 

[néné06]

Re : Problèmes avec l'instruction "Me"

Bonjour Mapomme,

Quel boulet je suis!
Pourquoi n'ai je pas cherché au plus simple!
De plus, j'ai réinstallé Excel mais je n'ai pas installé l'aide (chose que je vais faire)

Finalement mon code correct était simplement:

Public Sub Active_C1t()
If Sheets("agents et fonctions inscrites").Cells(2, 3) <> "" Then
UF_Fonctions_de_travail.C1t.Clear
i = 2
Do Until Sheets("agents et fonctions inscrites").Cells(i, 3) = ""
UF_Fonctions_de_travail.C1t.AddItem (Sheets("agents et fonctions inscrites").Cells(i, 3))
i = i + 1
Loop
UF_Fonctions_de_travail.C1t.ListIndex = 0
End If
End Sub


Merci à tous !

René