Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Message d'erreur lors du remplissage de ma combobox

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,
 

bbb38

XLDnaute Accro
Bonjour donpopo, le forum,
Sur le fichier ci-joint, la feuille « LB_Col_A » comprend les données en colonne A, la feuille « LB_Col_B » comprend les données en colonne B, pour remplir les ComboBox respectifs.
A adapter à ton fichier.
Cordialement.
Bernard
 

Pièces jointes

  • Classeur1.xlsm
    34.7 KB · Affichages: 8

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…