UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

[WDAndCo]

Bonjour le Forum

Une question, ce code que Jean Marie (Chti160) m'a donne

UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Sur la feuille "Infos B4:B38" c'est une liste que j'ai nommé "Secteur" cette liste peut-etre appelee a evolué !

Est il possible dans ce code de donne un nom du genre :

UserForm1.ComboBox3.List = "Secteur".Value

Pour eviter dans le futur a reprendre ce code ?

D'avance merci

WD 🙂

 

[ccpapy]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

bonsoir, une idée à tester

Private Sub UserForm_Initialize()
Dim Secteur As Range
With Worksheets("Infos")
Set Noms = .Range("B4")
Set Secteur = .Range(Noms, .Range("A65536").End(xlUp))

End With
ComboBox3.List = Secteur.Value
End Sub
à+

 

[WDAndCo]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Re bonsoir le Forum et ccpapy

Donc on ne peu pas mettre de nom (de cellules nommées) dans un code je ne peu pas utiliser ton code car sous B38 j'ai d'autre infos ! ! !

Merci quand meme.

WD

 

[ccpapy]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

re,
avec insertion nom et definir la rowsource ?
essaye avec ce fichier
à+

 

[WDAndCo]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Re ccpapy

Je dis BRAVO !

Merci

WD

 

[ChTi160]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Salut Dominique
quand j'entends qu'on parle de moi Lol
il y a aussi cette façon de faire pour qu'une plage qui évolue soit prise en compte

With Worksheets("Infos")
UserForm1.ComboBox3.List = 
      .Range("B4:B" &.Range("B4").End(xlDown).Row).Value 
'[COLOR=Green]si tu as des valeurs en dessous (B38) on passe par dessus, _
            il ne faut pas qu'il y ai de lignes vides dans ta liste[/COLOR]
End With

Bonne fin de Soirée

 

[ccpapy]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

bonjour à tous,
jean-marie
si je laisse ma méthode pour le cb1 (rowsource)
je n'arrive pas à appliquer ton code =erreur de compilation reference incorrecte?😕
d'autre part si je la supprime
je ne comprends pas comment tu fais pour passer au dessus de la ligne 38

 

[ChTi160]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Salut Dominique
Bonjour ccpapy
Bonjour le Forum

arff
effectivement les deux méthodes ne peuvent s'utiliser en même temps(Rowsource ,List etc) ,c'est l'une ou l'autre( la méthode RowSource n'étant pas la plus pratique )
pour ce qui est de passer au dessus de la ligne 38 ,je ne comprends pas ????

dans mon code je détecte la derniere ligne de la liste en partant du Haut B4 (.Range("B4").End(xlDown).Row )et ainsi le fait que des lignes soient occupées en dessous de la ligne 38 ne pose pas de problème

Bonne journée
Bon Week End

 

[WDAndCo]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Salut Man
Bonjour ccpapy
Bonjour le Forum

Ton code Jean-Marie marche trés bien, pour celui de ccpapy il est vrai que par moment il moins pratique. Mais car il y a toujours un mais Jean-Marie pourras tu mettre ton code qui enleve le secteur qui est deja dans la boite ?
As tu recu le dernier fichier ?

Allez bon dimanche a tous !

WD

 

[ccpapy]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

re,
je viens de relire les post et je comprends mieux maintenant
mon premier code =
Secteur = .Range(Noms, .Range("A65536").End(xlUp))
je voulais mettre B65536 et voilà pourquoi Dominique me demander de ne pas copier en dessous de la ligne 38 😛
bon dimanche

 

[ChTi160]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

re
pour ccpapy
j'avais remarqué cette erreur ,mais j'ai oublié de te le signaler arffff mais moi j'avais rectifié merci pour ce que tu nous apportes

pour Dominique
je vais voir si je peux adapter cette méthode avec l'alimentation des combobox
tu ne m'as pas mis le fichier sans le Calendar ,car j'ai excel qui explose si j'y touche Lol
à très bientôt

Bonne fin de Journée

 

[WDAndCo]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Bonsoir Le Forum
et 5 ans de plus ! ! !

Pour le calendrier regarde Lien supprimé
je crois que tu vas trouver ton bonheur !

Aller a plus

WD

 

[ChTi160]

Re : UserForm1.ComboBox3.List = Worksheets("Infos").Range("B4:B38").Value

Salut Dominique
bonjour le Forum

Arfffff comme tu dis Lol
mais bon ,il nous reste les heures sup Lol, ça va mettre du beurre dans nos épinards ,mais je sais pas si elles vont compter pour la retraite

pour ce qui est de ton fichier ,j'ai téléchargé le fichier mais comme je te l'ai dit mon excel n'aime pas ce Calendar Lol ,donc si tu le veux bien (pour que je puisse toucher au fichier envoye le moi sans ce calendrier )
Merci D'avance
Bonne journée