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

 

[Phil69970]

Bonjour Chaelie, le forum

Si j'ai bien compris ta demande ....

Dim Cel As Range

*Attention de ne pas confondre Cells et Cel

@Phil69970

 

[roro69]

Bonjour
Juste un petit rajout ;attention au nomination de variable avec des mots dédiés comme ici le "If" as long...

 

[mapomme]

Bonjour à tous ,

Dans certaines conditions, le For Each X nécessite un variant pour X.
Perso, je laisse donc toujours X en variant dans une boucle For Each X in ... next X

et comme le dit justement @roro69 (que je salue ) :
Jamais, oh grands dieux jamais de variables avec comme identificateur un des mots réservés du langage de programmation (Y en a qui ont essayé, ils ont eu des problèmes).

 

[Staple1600]

Bonjour le fil

Chaussez vos lunettes, les amis
La variable était lf et non point If
Un petit L ne vaut pas un grand i


NB: Mais j'avoue que l'idée est trés mauvaise.
La pratique depuis le XXième siécle, c'est plutôt dans le genre
DerLig
DLg
etc...

 

[mapomme]

Chaussez vos lunettes, les amis
La variable était lf et non point If

C'est pour ça que j'utilise la police courrier dans VBE (un inconvénient le l et 1 sont malgré tout presque identiques (un : 1 - petit L : l)

 

[Staple1600]

Bonjour mapomme

Oui.
D'où le NB dans mon précédent message

 

[Dranreb]

Bonjour.

Perso, je laisse donc toujours X en variant dans une boucle For Each X in ... next X

À mon avis ça ne se justifie pas si on est sûr d'explorer une collection ou un tableau d'éléments d'un seul type d'objet bien connu.
J'aurai toujours approfondissement horreur des liaisons tardives.

 

[mapomme]

Bonjour @Dranreb

J'aurai toujours approfondissement horreur des liaisons tardives.

Il y a toujours des exceptions à la règle (surtout en France). C'est ma toute p'tite exception chérie à moi .

 

[Staple1600]

Re

=>mapomme
Je t'ai vexé avec cette histoire de lunettes?
Parce que tu m'as pas claqué la bise* (ou la poignée de mains)
(cf message#7)

NB: d'écran à écran, pas de risque COVID

 

[mapomme]

Parce que tu m'as pas claqué la bise*

Oups un oubli impardonnable! Si tu y tiens absolument, il n'est pas trop tard...

 

[Staple1600]

Re

Merci mapomme
Oui, j'ai besoin de tendresse pour compenser l'avoinée que je me suis récemment prise dans un fil

Pour revenir à la question, pour remplir un combox en passant par List
en zappant les vides (et en dédoublonnant si besoin) on peut le faire?
(ou nous sommes obligé de passer par AddItem avec dico et tuttiquanti ?)

 

[roro69]

@mapomme et @Staple1600 ;je vous salue ;désolé j'avais pas vu le i et l ; ma foi au moins çà fait une petite piqûre de rappel . Bonne soirée à vous tous et bon reveillon et juste pour rajouter un énorme merci à vous deux pour vos remarque toujours pertinente dans les fil.....

 

[job75]

Bonsoir les amis,

Pour revenir à la question, pour remplir un combox en passant par List en zappant les vides (et en dédoublonnant si besoin) on peut le faire?
(ou nous sommes obligé de passer par AddItem avec dico et tuttiquanti ?)

Pour ce genre de chose j'utilise en général une feuille auxiliaire (à masquer).

La liste peut être triée et dédoublonnée dans cette feuille.

Ainsi la ComboBox peut toujours être remplie avec la méthode .List.

A+

 

[Staple1600]

RE, Bonjour job75

Merci pour le retour d'information.
Tu aurais un petit exemple sous le coude, stp?
(sinon je ferai une recherche sur XLD à l'occasion )