listbox

Question

Bonjour,

j'ais un tableau de 25 colonnes dont de A à Y
j'ai fais un userform sur le quel, j'ai mis  comboBox1 et listBox1

maintenant, j'aimerais qu'en sectionnant une ville dans la comboBox1 , touts les membre enregistré de cette ville affiche dans la lisbox1

ville se trouve dans la colonne H   


mais mon soucis est que la liste des villes
 affiche mais, aucun membre enregistré de la ville sélectionné n'affiche dans la listbox1


voici si déssou le code saisis

Private Sub ComboBox1_Change()

Dim a As Integer
Dim cherche As String
cherche = ComboBox1.Value
Dim i As Integer
f = 0
Me.ListBox1.Clear
Set f = Sheets("IDENTIFICATION")
For Each C In Range(f.[A5], f.[A70].End(xlUp))
If C.Offset(0, 2) = Me.ComboBox1 Then
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = C.Offset(0, 0)

i = i + 1
End If
Next C
End Sub

ThauTheme · Answer

Bonjour Amram.a, bonjour le forum,

Très étrange ton f = 0. C'est incompatible avec  Range(f.[A5], f.[A70].End(xlUp)). je pense que tu voulais plutôt initialiser i mais ce n'est pas nécessaire, donc cette ligne est à supprimer...

Ensuite, tu recherches dans les cellules de la colonne A une valeur décalée de deux colonnes à droite (=> colonne C) et tu dis que la ville se trouve en colonne H. Il est donc normal que ça n'affiche rien. De A à H ça donne Offset(0, 7) et pas Offset(0, 2)... Le code devrait être :

Private Sub ComboBox1_Change()
Dim cherche As String
Dim f As Worksheet
Dim a As Integer
Dim C As Range
Dim i As Integer

cherche = ComboBox1.Value
Me.ListBox1.Clear
Set f = Sheets("IDENTIFICATION")
For Each C In Range(f.[A5], f.[A70].End(xlUp))
    If C.Offset(0, 7) = Me.ComboBox1 Then
        Me.ListBox1.AddItem
        Me.ListBox1.List(i, 0) = C.Value
        i = i + 1
    End If
Next C
End Sub

amram.a · Answer

Mais j'ais un petit soucis 

tous les colonne n'affiches pas .
voici si dessous la liste 

CODE , ODRE ALPHABETIQUE, NOM & PRÉNOMS, DATE, LIEU, N° CNI OU EXTRAIS,  VILLE D'ORIGINE,  RESID-ACT,  SITUATION FAMILIALE,  CONJOINT(E), DATE, LIEU,  NBRE D'ENFTS,  DATE,  LIEU,  LIEU DE CULTE,  BAPTISE(E),  DATE,  LIEU,  N° L DE MBRE,  EGLISE,  SOCIALE,  TEL,  CEL,  ADRESSE  ELECTRONIQUE 

mais j'ais remarqué qu'après la colonne J  (SITUATION FAMILIALE) ça ne continus plus

merci d'avance

ThauTheme · Answer

Re,

En pièce jointe, un exemple avec code commenté d'une méthode très rapide. La propriété [RowSource] de la Combobox1 et de la ListBox1 est vierge. Cette propriété est incompatible avec cette méthode...

https://www.cjoint.com/c/GDbxx02WMYR

Listbox

3 réponses

Discussions similaires

Newsletters