Microsoft 365 Récupération données ListBox dans TextBox

[NONO14]

Bonjour,
Avec ce code, après un clic sur une ligne de ma ListBox (Lst_Employ) je récupére les données dans 4 TextBox (Txt_Code, Txt_Nom, Txt_Prénom, Txt_Temps).
Il fonctionne bien pour 3 TextBox sauf la Txt_Code où je suis obligé de cliquer sur une autre ligne pour le code s'affiche, ensuite je n'ai plus de soucis d'affichage.
Je ne comprends pas pourquoi ça fonctionne ainsi, j'ai certainement dû oublier quelque chose.
Pouvez-vous m'éclairer s'il vous plait ?
Merci par avance

Private Sub Lst_Employ_Click()

'Vérifie si une ligne a été sélectionné
    If Me.Lst_Employ.ListIndex <> -1 Then
    
'On récupère les valeurs de la ligne sélectionnée dans les TextBox
        Me.Txt_Code.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 0)
        Me.Txt_Nom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 1)
        Me.Txt_Prénom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 2)
        Me.Txt_Temps.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 3)
    End If

End Sub

 

[sylvanu]

Bonjour Nono,
Vous n'auriez pas un petit fichier test illustrant le problème ?

 

[NONO14]

Bonjour Nono,
Vous n'auriez pas un petit fichier test illustrant le problème ?

Bonjour sylvanu,
Voici mon fichier. Cliquez sur "Gestion administrative" - MP=admin01, puis "Modifier un(e) employé(e).
Merci par avance

 

[sylvanu]

Re,
Inversez les lignes 1 et 2 comme ceci :

'On récupère les valeurs de la ligne sélectionnée dans les TextBox
        Me.Txt_Nom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 1)
        Me.Txt_Code.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 0)
        Me.Txt_Prénom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 2)
        Me.Txt_Temps.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 3)

Car si vous faites Code en premier, vous allez à Txt_Code_Change .... qui remet le Code à vide car Nom non présent. 😅
Il suffit de faire du pas à pas pour suivre le cheminement.

 

[NONO14]

Re,
Inversez les lignes 1 et 2 comme ceci :

'On récupère les valeurs de la ligne sélectionnée dans les TextBox
        Me.Txt_Nom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 1)
        Me.Txt_Code.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 0)
        Me.Txt_Prénom.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 2)
        Me.Txt_Temps.Value = Me.Lst_Employ.List(Me.Lst_Employ.ListIndex, 3)

Car si vous faites Code en premier, vous allez à Txt_Code_Change .... qui remet le Code à vide car Nom non présent. 😅
Il suffit de faire du pas à pas pour suivre le cheminement.

C'est vraiment tout bête... Je n'ai pas encore le reflex pas à pas, il va falloir que je m'y mette.
Merci beaucoup
Par contre le format [h]:mm est bien dans la ListBox, mais pas dans la TextBox "Txt_Temps" quand je clique sur une ligne de la ListBox

 

[ChTi160]

Re
Bonjour sylvanu
j'allais le dire Lol
Ce qui serait plus logique , c'est de mettre le Control "Txt_Code" en première position sur le Userform!
Tu supprimes alors la procédure

Txt_Code_Change

ce que j'ai mis comme Procédure et qui semble fonctionné :

Private Sub Lst_Employ_Click()
'Vérifie si une ligne a été sélectionné
With Me
 With .Lst_Employ
    If .ListIndex <> -1 Then
'On récupère les valeurs de la ligne sélectionnée dans les TextBox
         Me.Txt_Code.Value = .List(.ListIndex, 0)
         Me.Txt_Nom.Value = .List(.ListIndex, 1)
         Me.Txt_Prénom.Value = .List(.ListIndex, 2)
         Me.Txt_Temps.Text = Application.Text(.List(.ListIndex, 3), "[h]:mm")
    End If
  End With
End With
End Sub

Edit : à quoi sert ce "CodeAgent" qui s'affiche partout ?
Bonne fin de Journée
Jean marie

 

[NONO14]

Re
Bonjour sylvanu
j'allais le dire Lol
Ce qui serait plus logique , c'est de mettre le Control "Txt_Code" en première position sur le Userform!
Tu supprimes alors la procédure

Txt_Code_Change

Edit : à quoi sert ce "CodeAgent" qui s'affiche partout ?
Bonne fin de Journée
Jean marie

C'est le matricule de l'agent

 

[ChTi160]

Re
OK
voir message ci dessus modifié !

Jean marie

 

[NONO14]

Re
OK
voir message ci dessus modifié !

Jean marie

Merci, ça fonctionne bien

 

[ChTi160]

Re

C'est le matricule de l'agent

ça ne me dit pas a quoi il sert dans ton appli !
Jean marie

 

[NONO14]

Re

ça ne me dit pas a quoi il sert !
Jean marie

Il sert de base pour les recherches ou modifications. Surtout en cas d'homonymes

 

[TooFatBoy]

ça ne me dit pas a quoi il sert !

Probablement est-ce comme une clef dans la BDD. 😉

 

[NONO14]

Probablement est-ce comme une clef dans la BDD. 😉

L'agent se servira également de ce code pour pointer.

 

[ChTi160]

Re

L'agent se servira également de ce code pour pointer.

Donc c'est comme un mot de pass !
Jean marie

 

[NONO14]

Re

Donc c'est comme un mot de pass !
Jean marie

Oui si on veut.