bonjour
j'ai une erreur 1004 à "nb_lignes = Sheets("liste_PDR_standard").Cells(1, no_colonne).End(xlDown).Row"
Private Sub ComboBox_famille_Change()
Dim no_colonne As Integer, nb_lignes As Integer
'Zone de liste vidée (sinon les villes sont ajoutées à la suite)
ListBox_detail_pieces.Clear
'Numéro de la sélection (ListIndex commence à 0) :
no_colonne = (ComboBox_Famille.ListIndex) * 3 + 2
'Nombre de lignes de la colonne du pays choisi :
nb_lignes = Sheets("liste_PDR_standard").Cells(1, no_colonne).End(xlDown).Row
For i = 3 To nb_lignes ' => pour lister les pieces de rechange
ListBox_detail_pieces.AddItem Sheets("liste_PDR_standard").Cells(i, no_colonne)
Next
End Sub
je cherche mais je n'ai pas touver
merci a tous