Discussion :

[Pilote1152]

Bonjour,

J'ai créé une listbox (noms) dans un formulaire pour permettre la mises à jour des éléments personnels repris dans des txtbox (prénom, adresse, tel etc...)
Si cela fonctionne en sélectionnant le nom dans la listbox, je voudrais aussi "déclencher" automatiquement l'affichage d'un nom et donc des éléments correspondants dans chaque textbox sans avoir à sélectionner le nom.
Cette demande peut surprendre (en principe on sélectionne toujours avec la souris l'élément de la listbox) mais elle est justifiée lorsque un évènement tiers suggère une mise à jour obligatoire d'un des éléments repris en txtbox.

L'évènement tiers est déclenché par un changement de contenu d'une cellule (sub worksheet_Change)
A partir de cette procédure évènement je récupère dans une variable (déclarée Public dans le module1) le nom recherchée et appelle le formulaire.
Comment réaliser la sélection de ce nom avant affichage et donc sans pouvoir le sélectionner (pas d'index à récupérer!) ....???

[CODE]FrmInfoAdherent.LstBoxMembres = nomCherche

FrmInfoAdherent.Show/CODE]

la première ligne déclenche l'événement LstBoxMembres_Change dans lequel je confirme "Me.LstBoxMembres = nomCherche" mais sans succès (LstBoxMembres reste vide !

J'espère avoir pu être clair pour espérer obtenir une aide salvatrice
Merci d'avance Cordialement

[Franc]

Bonjour, voici une solution, adapte les noms à ton cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Activate()
    Dim i As Integer
    Dim nomTrouve As Boolean
    nomTrouve = False
 
    For i = 0 To Me.LstBoxMembres.ListCount - 1
        If Me.LstBoxMembres.List(i) = nomCherche Then
            Me.LstBoxMembres.ListIndex = i ' Sélectionner l'index correspondant au nom
            nomTrouve = True
            Exit For
        End If
    Next i
 
    ' Si le nom est trouvé, déclencher l'affichage dans les TextBox
    If nomTrouve Then
        Call AfficherInfos ' Une sub qui affiche les infos dans les TextBox
    Else
        MsgBox "Nom non trouvé dans la liste."
    End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub AfficherInfos()
    Dim ligne As Integer
 
    ' Récupérer l'index de la ligne sélectionnée
    ligne = Me.LstBoxMembres.ListIndex
 
    ' Vérifier qu'une ligne est bien sélectionnée
    If ligne <> -1 Then
        ' Assigner les valeurs des colonnes aux TextBox
        Me.TxtBoxPrenom.Value = Me.LstBoxMembres.List(ligne, 1)
        Me.TxtBoxAdresse.Value = Me.LstBoxMembres.List(ligne, 2) 
        Me.TxtBoxTel.Value = Me.LstBoxMembres.List(ligne, 3) 
    Else
        MsgBox "Aucun membre sélectionné."
    End If
End Sub

[Pilote1152]

Bonjour, voici une solution, adapte les noms à ton cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Activate()
    Dim i As Integer
    Dim nomTrouve As Boolean
    nomTrouve = False
 
    For i = 0 To Me.LstBoxMembres.ListCount - 1
        If Me.LstBoxMembres.List(i) = nomCherche Then
            Me.LstBoxMembres.ListIndex = i ' Sélectionner l'index correspondant au nom
            nomTrouve = True
            Exit For
        End If
    Next i
 
    ' Si le nom est trouvé, déclencher l'affichage dans les TextBox
    If nomTrouve Then
        Call AfficherInfos ' Une sub qui affiche les infos dans les TextBox
    Else
        MsgBox "Nom non trouvé dans la liste."
    End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub AfficherInfos()
    Dim ligne As Integer
 
    ' Récupérer l'index de la ligne sélectionnée
    ligne = Me.LstBoxMembres.ListIndex
 
    ' Vérifier qu'une ligne est bien sélectionnée
    If ligne <> -1 Then
        ' Assigner les valeurs des colonnes aux TextBox
        Me.TxtBoxPrenom.Value = Me.LstBoxMembres.List(ligne, 1)
        Me.TxtBoxAdresse.Value = Me.LstBoxMembres.List(ligne, 2) 
        Me.TxtBoxTel.Value = Me.LstBoxMembres.List(ligne, 3) 
    Else
        MsgBox "Aucun membre sélectionné."
    End If
End Sub

Bonsoir Franc,

Très bonne idée de boucler sur la liste ... et cela fonctionne parfaitement
Merci pour ton aide
Cordialement