donpopo
XLDnaute Occasionnel
Bonsoir le forum,
Il y a quelques temps, vous m'avez aidé pour remplir des combobox avec des données d'une colonne commençant à la ligne 5 et finissant ... (nombre de lignes variable).
'---------------------------
'Valorisation de la ComboBox
'---------------------------
Private Sub SetComboBox()
Dim DernièreLigneLocataire As Long
With Application
DernièreLigneLocataire = .Max(.IfError(.Match("zzz", ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0), _
.IfError(.Match(999 ^ 99, ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0))
End With
ComboBox1.List = Sheets("Locataires").Range("A5:A" & DernièreLigneLocataire).Value
Bien que je ne comprenne pas ligne d'instruction, cela fonctionnait très bien jusqu'au moment où j'ai rajouté une colonne au début à la feuille. Cela ne devrait pourtant pas affecter l'instruction, car j'ai des données dans la nouvelle colonne aussi.
J'ai un message d'erreur d’exécution
381
Impossible de définir la propriété ListIndex. Index de table de propriétés non valide.
Quelqu'un aurait-il une idée pour résoudre ce problème ou une autre solution?
Merci d'avance,
Il y a quelques temps, vous m'avez aidé pour remplir des combobox avec des données d'une colonne commençant à la ligne 5 et finissant ... (nombre de lignes variable).
'---------------------------
'Valorisation de la ComboBox
'---------------------------
Private Sub SetComboBox()
Dim DernièreLigneLocataire As Long
With Application
DernièreLigneLocataire = .Max(.IfError(.Match("zzz", ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0), _
.IfError(.Match(999 ^ 99, ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0))
End With
ComboBox1.List = Sheets("Locataires").Range("A5:A" & DernièreLigneLocataire).Value
Bien que je ne comprenne pas ligne d'instruction, cela fonctionnait très bien jusqu'au moment où j'ai rajouté une colonne au début à la feuille. Cela ne devrait pourtant pas affecter l'instruction, car j'ai des données dans la nouvelle colonne aussi.
J'ai un message d'erreur d’exécution
381
Impossible de définir la propriété ListIndex. Index de table de propriétés non valide.
Quelqu'un aurait-il une idée pour résoudre ce problème ou une autre solution?
Merci d'avance,