Microsoft 365 Créer liste agents si actif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #16

Petit soucis de dernière minute.

Le code du bouton Valider ne prend pas le 1er item de la Combo !!

Le bouton Valider fonctionne seulement à partir du 2è item du Combo1

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #17

non

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Novembre 2024

• #18

Mettre le liste à 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 ?

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #19

mettre à jour pour etre sur qu'il ne manque aucun agent

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Novembre 2024

• #20

pompaero à dit:

mettre à jour pour etre sur qu'il ne manque aucun agent

Cliquez pour agrandir...

Pourquoi manquerait-il un agent juste après avoir sélectionné un item ???


1- Mettre la liste à jour par rapport à quoi ?
(par rapport au fait qu'on vient de sélectionner un item ???)

2- Qu'est-ce qui fait qu'elle n'est pas à jour ?

3- 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 ?

 

Dernière édition: 6 Novembre 2024

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #21

Le souhait est d'avoir la liste mise a jour en permanence afin d'éviter tout manquement (c'est très important pour nous)
Normalement, oui la liste devrait être toujours à jour
Oui, c'est notre choix, par sécurité.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Novembre 2024

• #22

Merci pour ta réponse.

Le point le plus important est le numéro 3 : quel est l'intérêt de mettre la liste à jour après avoir sélectionné un item de la liste et cliqué sur le bouton [Valider] qui ferme (décharge) le UserForm ???
C'est perdre du temps pour rien. Non ?

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #23

Si bien sur

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #24

il y a une ligne vide dans le Combo

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Novembre 2024

• #25

Je pense que je n'aurais jamais de réponse concrète à ma question de #12, #22 et #24, mais ce n'est pas grave.
Le plus important est que ton programme fasse ce que tu désires.


Bonne continuation

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #26

Non ça bug?
Je crois qu'il y a une mise à jour alphabétique, et ça il ne faut pas car l'ordre est le HPP.

Je n'ai plus rien qui marche, ça bug. Le formulaire s'ouvre même plus...

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #27

TooFatBoy
Ton code pour le CBx fait bien le résultat attendu sauf que ça ne veut pas valider le 1er item que je valide.

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

Pourquoi !!!
Il y ajuste ce petit hic qui bug.
Merci

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #28

ChTi160 à dit:

Re
il suffit de modifier le Tri alors trier sur la Colonne "Num HPP" !

VB:

Private Sub UserForm_Initialize()
With Range("t_BDD").ListObject
  If Not .DataBodyRange Is Nothing Then 'Si t_BDD non vide
           .Range.Sort key1:=.ListColumns("Num HPP").DataBodyRange, Order1:=xlAscending, Header:=xlYes      
      With .DataBodyRange
      Tab_BDD = .Value
      End With  
  End If
End With
With UForm_List_Agent
With .CBx_Liste_Presents
       .ColumnCount = 2
       .ColumnWidths = "1;0"
       .AddItem Empty
    For Lgn = 1 To UBound(Tab_BDD, 1)
      If Tab_BDD(Lgn, 3) = "Oui" Then
       .Text = Trim(Tab_BDD(Lgn, 2))
    If .ListIndex = -1 Then
       .AddItem Trim(Tab_BDD(Lgn, 2))
       .List(.ListCount - 1, 1) = Trim(Tab_BDD(Lgn, 4))
           End If
      End If
    Next Lgn
       .ListIndex = 0
 End With 
End With
End Sub

Jean marie

Cliquez pour agrandir...

Ca y est, ça fonctionne.. Merci

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Novembre 2024

• #29

pompaero à dit:

Pourquoi !!!

Cliquez pour agrandir...

Parce que ???

 

Vote positif 0 Vote négatif

pompaero

XLDnaute Impliqué

• 1 Novembre 2024

• #30

Désolé TooFatBoy, tout est rentré dans l'ordre..
Merci à toi et bon week-end

Cdlt
pompaero

 

Vote positif 0 Vote négatif