Microsoft 365 Créer liste agents si actif

[pompaero]

Bonjour à tous,

je cherche à compléter le Formulaire (liste déroulante) dans l'onglet Certificat, seulement d'agents actifs qui se trouve dans le tableau de l'onglet Agent.
La liste des agents peut se prolonger.

Objectif :
renseigner le List déroulant avec seulement les agents actifs du tableau de l'onglet Agent.
A l'activation du UForm_Agent, la liste est armée des agents actifs puis en appuyant sur le bouton VALIDER, la sélection de la liste vient s'inscrire dans la celulle A3. Puis la liste se réactualise.

Est-il possible d'avoir de l'aide ?
merci.

Cdlt
pompaero

 

[TooFatBoy]

Bonjour,

Objectif :
renseigner le List déroulant avec seulement les agents actifs du tableau de l'onglet Agent.

Une proposition pour remplir la liste déroulante du UserForm :

Private Sub UserForm_Initialize()
'
Dim i As Long

    Me.ComboBox1.Clear
    For i = 1 To Range("Tableau2").ListObject.ListRows.Count
        If Range("Tableau2[Actif]")(i).Value2 = "Oui" Then
            Me.ComboBox1.AddItem Range("Tableau2[Liste agent]")(i).Value2
        End If
    Next i

End Sub

 

[pompaero]

Bonjour,

Merci de ton retour rapide et efficace

Cela fonctionne très bien.. Il reste à faire le bouton valider maintenant.

 

[TooFatBoy]

Il reste à faire le bouton valider maintenant.

Tu devrais y arriver tout seul. Non ?

 

[pompaero]

je vais tenter oui..

 

[Gégé-45550]

Tu devrais y arriver tout seul. Non ?

Private Sub Cmd_Valider_Click()
    Worksheets("Certificat").Range("A3") = Me.ComboBox1.List(Me.ComboBox1.ListIndex)
    Unload Me
End Sub

Cdlt
PS : salut l'ami TooFatBoy

 

[Gégé-45550]

je vais tenter oui..

Question : pourquoi passer par un formulaire alors qu'une simple liste de validation sur la cellule A3 suffirait amplement et ne nécessiterait aucun VBA ?
Je dis ça ... je dis rien

 

[TooFatBoy]

en appuyant sur le bouton VALIDER, la sélection de la liste vient s'inscrire dans la celulle A3. Puis la liste se réactualise.

Moi aussi j'aurais une question, en supposant qu'on garde le UserForm : que veut dire "la liste se réactualise" ? Faut-il retirer l'item qu'on a sélectionné avant de cliquer sur le bouton [Valider] ?


Bonjour Gégé

 

[pompaero]

Merci les amis, vous géniaux et rapide dans les réponses, c'est cool...

Tout fonctionne superbement bien,
Merci à vous deux.

Bonne nuit
Cdlt
pompaero

 

[Gégé-45550]

Moi aussi j'aurais une question, en supposant qu'on garde le UserForm : que veut dire "la liste se réactualise" ? Faut-il retirer l'item qu'on a sélectionné avant de cliquer sur le bouton [Valider] ?


Bonjour Gégé

J'ai exactement la même question, ce bouton semble bien inutile !

 

[pompaero]

Pourquoi le formulaire : parce que la cellule A3 est masquée
Réactualiser : remettre la liste à jour
mais maintenant que tu en parles, retirer l'item qu'on a sélectionné serait effacé également, c'est une bonne idée.

 

[TooFatBoy]

Réactualiser : remettre la liste à jour

Oui, ça j'avais bien compris...

Mais la mettre à jour par rapport à quoi ?
Qu'est-ce qui fait qu'elle n'est pas à jour ?
Est-ce vraiment utile de la mettre à jour, puisque je suppose qu'une fois qu'on a sélectionné un nom et validé, on ferme le UserForm. Nan ?

 

[ChTi160]

Bonjour le Fil
Histoire de Saluer Notre ami pompaero !
Bonne Journée
Jean marie

 

[pompaero]

Salut ChTi160,
Ca fait plaisir également de retour à mon post.
Merci pour ton implication, ton idée est très bien.

Pour le moment, j'affine le fonctionnement et j'ai un bug lorsque j'appui sur le bouton Valider et que la liste est vide.
Est-il possible d'améliorer le code du bouton ?

Merci
pompaero

 

[pompaero]

Je viens de tester

 If Not .ListIndex = -1 And Not .ListIndex = 0 Then

cela fonctionne bien.

Plus de bug, c'est parfait de mon côté. Pour cette fois je vais rester très simple dans le fonctionnement.

Merci à toi et à tout ceux du fil pour votre aide.

A bientôt et bon week-end

Cdlt
pompaero