Autres Déclaration de la variable

[chaelie2015]

Bonjour forum
comment je déclare cel dans

Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)

cbx_NuméroContrat.SetFocus

'----- comboBox sans cellule vide --------------------------------------------
Sheets("BdD Projets").Select
lf = Range("B65536").End(xlUp).Row 'définit la variable lf
cbx_NuméroContrat.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("B4:B" & lf) 'boucle sur toutes les cellule de B4 à AB_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then cbx_NuméroContrat.AddItem cel.Value
Next cel 'prochaine cellule
'------------------------------------------------------------------------------
End Sub

MERCI

 

[job75]

Tu aurais un petit exemple sous le coude, stp?

Oui sur ce fil où je construis des listes de validation :
https://www.excel-downloads.com/thr...ichage-de-la-1ere-reference-trouvee.20052330/

 

[mapomme]

Tu aurais un petit exemple sous le coude, stp?

Mais c'est qu'il devient fainéant,l'gars. Faut tout lui faire. 😱 😀 😛

 

[roro69]

@mapomme excellent en plus la question du départ n'était pas çà😄😄😄 il avait juste demander comment déclarer "cel" mais c'est bien s'il revient un jour sur le fil il va découvrir d'autre méthode.....cool allez je vous verse à tous un petit jura de chez moi et trinque à votre santé🍾

 

[Staple1600]

Bonsoir le fil

merci pour la rincette, roro69

=>mapomme
Je peux pas emballer le cadeau à David, titiller de la variable, tout en jouant du combo 😉
Merci à job75, j'étais parti voir la discussion qu'il cite et revenant ici, je vois qu'il y en plus une PJ. 😉

Au dela de ma personne, c'est donc tout bénéfice pour la communauté XLDienne, monsieur mapomme 😉
(Mais je te pardonne, et pas que pour le poutou 😉)

 

[chaelie2015]

Bonsoir tous le monde.
c'est une discussion bénéfique.
MERCI