j'aimerai qu'un de mes combobox s'alimente directement avec une plage de donnée

  • Initiateur de la discussion Initiateur de la discussion Erika
  • 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 !

E

Erika

Guest
Bonjour,

J'ai un petit problème, dans le cadre de mes études je fais un projet excel et vba sur la gestion de video club....j'aimerai beaucoup que vous m'aidiez; g une base client qui s'alimente toujours automatiquement dans une plage de cellule (B6:B65000). j'aimerai que les noms de mes clients aillent directement dans un combobox et après que quand je sélectionne un nom dans celui-ci il surligne le nom de mon client en quetion.
Merci de m'aider, ce projet est vraiment très important pour moi!
 
Bonsoir,

Du genre :

Code à insérer dans un userform nommé userform1 et contenant un combobox nommé combobox1

Public Ligne As Long

Private Sub ComboBox1_Change()

'Annulation du précédent surlignage
Cells(Ligne, 2).Font.Underline = xlUnderlineStyleNone

If UserForm1.ComboBox1.ListIndex = -1 Then Exit Sub

'Affectation du numéro de la ligne dans le tableau
Ligne = UserForm1.ComboBox1.ListIndex + 6

'Surlignage de la cellule concernée
Cells(Ligne, 2).Font.Underline = xlUnderlineStyleSingle

End Sub

Private Sub UserForm_Initialize()

'Recherche de la dernière ligne du tableau
Ligne = Sheets("feuil1").Cells(65536, 2).End(xlUp).Row

'Affectation de la liste des clients au combobox
UserForm1.ComboBox1.RowSource = "=Feuil1!$B$6:$B$" & Ligne

End Sub

@+

Ronan
 
Tout d'abord un grand merci à vous,

Je sens que c'est ça mais il y a quelques chose qui ne fonctionne pas .....
je vais essayer de trouver le bug sinon j'enverrai mon projet sur le net!
Merci encore
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour