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

  • Initiateur de la discussion Initiateur de la discussion donpopo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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,
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour