yusukens
XLDnaute Occasionnel
Bonjour,
Je débute en VBA et j'essaye de réaliser un gestionnaire de contact.
je ne vois pas ou est l'erreur
j'essaye de récuperer la valeur d'une ligne dans un ListBox pour le trasférer dans textBox après avoir cliqué sur un bouton
voici mon code si quelqu'un pourait m'aider a trouver l'erreur
Je débute en VBA et j'essaye de réaliser un gestionnaire de contact.
je ne vois pas ou est l'erreur
j'essaye de récuperer la valeur d'une ligne dans un ListBox pour le trasférer dans textBox après avoir cliqué sur un bouton
voici mon code si quelqu'un pourait m'aider a trouver l'erreur
Code:
Sub UserForm_Activate()
Dim LBListeClient
Dim RecupProfession
[COLOR=seagreen]'Récupère la dernière ligne[/COLOR]
RecupProfession = Range("O2").End(xlDown).Address
[COLOR=seagreen]'Afficher la liste dans le tableau[/COLOR]
With FormListeClient.LBListeClient
.ColumnCount = 15 [COLOR=seagreen]'Nb de colonne[/COLOR]
.ColumnHeads = True [COLOR=seagreen]'mettre le titre[/COLOR]
.RowSource = "A2:" & RecupProfession [COLOR=seagreen]'De ou à ou[/COLOR]
.ListIndex = 0
.MultiSelect = fmMultiSelectSingle [COLOR=seagreen]'Permet pas la multi sélection[/COLOR]
End With
End Sub
Private Sub Bziou_Click()
Dim LigneChoisi
LigneChoisi = FormListeClient.LBListeClient.Column(0, LBListeClient.ListIndex)
FormListeClient.Tziou.Value = LigneChoisi
End Sub
Dernière édition: