Alimenter liste combobox

Question

Je n'arrive pas à alimenter une combobox avec un range de valeurs. J'ai fait le code suivant mais qui ne marche pas (je me demande bien pourquoi) : Sub ComboBox_Initialize() Dim ligne As Integer Dim ligne_fin As Integer Dim col As Integer ligne = Sheets("Résumé").Range("A:XFD").Find("Libellé crédit", lookat:=xlWhole).Offset(1, 0).Row ligne_fin = Sheets("Résumé").Range("A:XFD").Find("Libellé crédit", lookat:=xlWhole).Offset(1, 0).End(xlDown).Row col = Sheets("Résumé").Range("A:XFD").Find("Libellé crédit", lookat:=xlWhole).Column ComboBox1.List = Sheets("résumé").Range(Cells(ligne, col + 1), Cells(ligne_fin, col + 1)).Value ComboBox2.List = Sheets("résumé").Range(Cells(ligne, col + 2), Cells(ligne_fin, col + 2)).Value ComboBox3.List = Sheets("résumé").Range(Cells(ligne, col + 3), Cells(ligne_fin, col + 3)).Value End Sub Voici le fichier et merci d'avance ...

Xmenpl · Answer

Bonjour, C'est quoi toutes ces lignes ? je suppose que celà correspond à un "mode interrogation" des opérations de l'onglet Résumé ?

- Pour commencer on ne fait pas Initialize sur un combobox mais sur le Userform.

Ensuite ou est l'interêt de déclarer autant de variable ? l'info de la combo 1 Actif vous ne savez pas qu'elle est en colonne B ?

La première ligne n'est-elle pas la ligne 3 ? On ne déclare pas des infos qu'on a déjà.

PS

Attention vous avez 3 combobox pour interroger .. vous devrez donc penser à chaque changement de sélection de l'une d'elle que celà entraine le changement de sélection des autres.

Private Sub UserForm_Initialize()
Dim Numligne As Long
Numligne = Sheets("Résumé").Range("A65536").End(xlUp).Row

ComboBox1.AddItem Sheets("résumé").Range("B3:B" & Numligne).Value
ComboBox2.AddItem Sheets("résumé").Range("C3:B" & Numligne).Value
ComboBox1.AddItem Sheets("résumé").Range("D3:B" & Numligne).Value

End Sub

et dans les évenements de combobox : exemple pour

Private Sub ComboBox1_Change()
Combobox2.ListIndex=Combobox1.ListIndex
Combobox3.ListIndex=Combobox1.ListIndex
End Sub

Xmenpl · Answer

Vous ne pouvez pas utiliser des combobox sur un onglet de saisie en les laissants indépandante ? excel ne sera pas si il doit modifier la ligne actuelle, ajouter une nouvelle ?

Vous semblez vouloir faire un userform qui interroge et qui saisie de nouvelles données en même temps. çà ne fonctionne pas comme çà.

Si votre userform est pour la saisie alors les listes de choix (indépendantes) doivent se trouver dans un autres onglet comme variable disponible.

Exemple dans un onglet Param colonne A liste des Prêteurs colonne B liste des emprunteurs Colonne C Liste des Actifs liés

Si vous n'avez aucune liste alors il n'y a aucune raison d'utiliser des combobox pour la saisie. De simple textbox suffisent.