Remplir combobox
antoinegestion
Messages postés
1
Date d'inscription
mercredi 29 novembre 2000
Statut
Membre
Dernière intervention
14 octobre 2005
-
14 oct. 2005 à 01:29
joanibus Messages postés 1 Date d'inscription lundi 13 juin 2005 Statut Membre Dernière intervention 31 octobre 2005 - 31 oct. 2005 à 12:33
joanibus Messages postés 1 Date d'inscription lundi 13 juin 2005 Statut Membre Dernière intervention 31 octobre 2005 - 31 oct. 2005 à 12:33
1 réponse
joanibus
Messages postés
1
Date d'inscription
lundi 13 juin 2005
Statut
Membre
Dernière intervention
31 octobre 2005
31 oct. 2005 à 12:33
31 oct. 2005 à 12:33
supposons que la liste des noms se trouve sur la colonne "A" de la feuille "Noms"
en insérant la formule dans la cellule "B1" de cette meme feuille :
=NBVAL(A:A)
tu obtiens le nombre de valeurs non nulles de toute la colonne "A"
dans ton userform1:
tu crées:
un bouton nommé "CommandButton1"
une listebox nommée "Listbox1"
ensuite tu copies ce code:
Dim NombreDePersonnes As Integer 'Variable pour le nombre de personnes
Private Sub CommandButton1_Click()
MsgBox "N° de ligne : " & ListBox1.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
'pour savoir combien de lignes il faut ajouter dans ta liste box
NombreDePersonnes = Sheets("Noms").Range("B1").Value
For i = 1 To NombreDePersonnes
ListBox1.AddItem Sheets("Noms").Range("A" & i).Value
Next
End Sub
j'éspère avoir répondu à ta question.
en insérant la formule dans la cellule "B1" de cette meme feuille :
=NBVAL(A:A)
tu obtiens le nombre de valeurs non nulles de toute la colonne "A"
dans ton userform1:
tu crées:
un bouton nommé "CommandButton1"
une listebox nommée "Listbox1"
ensuite tu copies ce code:
Dim NombreDePersonnes As Integer 'Variable pour le nombre de personnes
Private Sub CommandButton1_Click()
MsgBox "N° de ligne : " & ListBox1.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
'pour savoir combien de lignes il faut ajouter dans ta liste box
NombreDePersonnes = Sheets("Noms").Range("B1").Value
For i = 1 To NombreDePersonnes
ListBox1.AddItem Sheets("Noms").Range("A" & i).Value
Next
End Sub
j'éspère avoir répondu à ta question.
