Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Créer liste agents si actif

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • Présentation_V1.xlsm
    223.6 KB · Affichages: 8
Trier par date Trier par votes

TooFatBoy

XLDnaute Barbatruc
Bonjour,

pompaero à dit:
Objectif :
renseigner le List déroulant avec seulement les agents actifs du tableau de l'onglet Agent.
Cliquez pour agrandir...
Une proposition pour remplir la liste déroulante du UserForm :
VB: 
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
 
Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué
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.
 
Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué
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
 
Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué
Je viens de tester
VB: 
 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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 Liste déroulante avec tri
Réponses
3
Affichages
969
pompaero
  • Question
Microsoft 365 Macro enregistrement
Réponses
2
Affichages
567
pompaero
F
  • Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
  • Question
XL 2016 Compte-rendu journalier
Réponses
1
Affichages
1 K
pompaero
J
  • Question
liste déroulante conditionnelle en cascade
Réponses
2
Affichages
5 K
jeanromain
J
T
  • Question
Macro pour boulcer dans une liste pour faire des tableaux/onglets
Réponses
14
Affichages
2 K
klin89
E
  • Question
lien entre cellule d'une liste et onglet correspondant + créer onglet avec nom
2
Réponses
19
Affichages
10 K
emwaj
E
N
  • Question
Créer plusieurs fichiers à partir d'un seul, avec onglets, formules et protection
2
Réponses
15
Affichages
22 K
Nicolas_G
N
P
  • Question
Activation d'une ligne en Visual Basic
Réponses
1
Affichages
915
tototiti2008
  • Question
Copier / renommer feuille en fonction d'une liste de "référence"
Réponses
0
Affichages
1 K
ndossant
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…