Discussion :

[Dream Master]

Salut à tous. Je dévellope un formulaire en vba.
J'ai une ComboBox dont le contenu est affiché via une base de données ce trouvant dans une de mes feuille excel grace à RowSource.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox_1.RowSource = "feuille!A1:A10"

Dans ma base de donnée ce trouvant sur ma feuille excel, j'ai sauté des lignes pour mieu visualiser ma base. Ma base de donnée contient donc des lignes vide.
Mon problème, c'est que je ne veux pas que les cellules vide s'affiche dans ma combobox.

Y aurait t'il un génie qui pourrait répondre à mon problème, car je suis qu'un débutant.

[Invité]

Bonjour Dream Master,

Avant qu'une solution soit trouvée éventuellement, une petite remarque :

une plage de données comprenant des lignes vides (aucune colonne ne contient des données dans x lignes de cette plage), à mon avis ne peut pas être considérée comme une base de données.

Amicalement.

[Dream Master]

D'accord , je suis d'accord avec toi sur ce fait. J'oubli le mot base de donnée.
Sinon est-il théoriquement possible de taper un code qui sauterai de ligne à chaque fois qu'il rencontre une cellule vide pour en afficher aucune dans ma combobox ?
Merci

[Invité]

Bonjour

Si ta liste n'est pas trop longue tu peux la remplir gràce à la méthode AddItem, en parcourant ta colonne tu testes si ta cellule est vide ou non.
Si elle n'est pas vide tu la rajoute à ta liste, sinon tu passes à la suivante.

En attendant une meilleure solution.

Starec

[Dream Master]

Merci pour le petit tuyau. La méthode me semble pas mal. Je vais me mettre à la tache, mais ne connaissant pas la méthode additem je pense que ceci sera un peu long.
Encore Merci

[Invité]

Re Dream Master,

Staranc vous a donné la solution. Un exemple pour l'appliquer :

Dans un module vous copiez le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public dl, i As Long
Public c As Integer
Public text As String

Sub dernlign()
Dim ComboBox_1 As ComboBox
Sheets("Feuil1").Activate
dl = Range("A65536").End(xlUp).Row
'N° de la colonne contenant les données (modifier éventuellement)
c = 1
Load UserForm1
UserForm1.Show
End Sub

Dans la feuille Userform1 vous copiez ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
For i = 1 To dl
text = Cells(i, c)
If text <> "" Then
ComboBox_1.AddItem text
End If
Next i
End Sub

Amicalement.