Autres Déclaration de la variable

chaelie2015

XLDnaute Accro
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
 

roro69

XLDnaute Impliqué
@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

XLDnaute Barbatruc
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 ;))
 

Discussions similaires

Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 709
Messages
2 081 768
Membres
101 816
dernier inscrit
Jfrcs