Configuration d'une combobox VBA
Résolu
Co_nexion
Messages postés
328
Date d'inscription
Statut
Membre
Dernière intervention
-
Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention -
Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai une combobox alimenté par ce code :
Cela marche très bien mais depuis que j'ai mis des formules et que je l'ai est tiré sur la feuille excel (en colonne G et non en colonne A), cette combobox pense que la colonne A descend très loin et du coup le curseur de la combobox est tout petit alors que seul 5 noms sont entrés.
Auriez vous une idée pour que la sélection s'arrete avec le dernier nom entré en colonne A ? Je pense qu'il s'agit de jouer sur les "," après le "A" mais je sais pas laquelle :(
Merci d'avance
J'ai une combobox alimenté par ce code :
Private Sub UserForm_Activate()
'Alimentation des noms en combobox1 via la feuille FTP
Sheets("FTP").Activate
'Selection de la derniere ligne utilisée colonne de la feuille FTP
D_L = Cells.Find("A", , , , xlByRows, xlPrevious).Row
'Definition liste combo
ComboBox1.RowSource = Sheets("FTP").Range(Cells(2, 2), Cells(D_L, 2)).Address
Cela marche très bien mais depuis que j'ai mis des formules et que je l'ai est tiré sur la feuille excel (en colonne G et non en colonne A), cette combobox pense que la colonne A descend très loin et du coup le curseur de la combobox est tout petit alors que seul 5 noms sont entrés.
Auriez vous une idée pour que la sélection s'arrete avec le dernier nom entré en colonne A ? Je pense qu'il s'agit de jouer sur les "," après le "A" mais je sais pas laquelle :(
Merci d'avance
A voir également:
- Configuration d'une combobox VBA
- Ethernet n'a pas de configuration ip valide - Guide
- Panneau de configuration - Guide
- Retablir configuration usine chromecast - Guide
- Connaitre configuration pc - Guide
- Panneau de configuration nvidia incomplet ✓ - Forum Carte graphique
Oui pardon, erreur de ma part, c'est la colonne B...
Remplacer:
D_L = Cells.Find("A", , , , xlByRows, xlPrevious).Row
par
'pour la dernière ligne de la colonne B
D_L = Range("B" & Rows.Count).End(xlUp).Row
Bonne suite
A bientôt