Problèmes avec l'instruction "Me"

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

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é

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é

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

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

Bonjour néné06,

Voir exemple joint dans module1.

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é