ComboBox.list

[JC de Lorient]

Bonsoir le forum
sur les conseils d'Hervé sur ce post : Lien supprimé

j'essaye en vain de modifier mon programme en évitant Rowsource

j'ai ce code :

Private Sub UserForm_Initialize()
TBoxdate = Format(Date, 'dd/mm/yyyy')
TBoxdate.SelStart = 0
TBoxdate.SelLength = Len(TBoxdate)
OB1.GroupName = 'Type'
OB2.GroupName = 'Type'
OB3.GroupName = 'Type'
OB4.GroupName = 'Opération'
OB5.GroupName = 'Opération'
OB6.GroupName = 'Opération'
'CBoxproduit.List = Sheets('Liste').Range('B2:' & Range('B65536').End(xlUp).Row).Value
End Sub

Lorsque je rajoute la ligne avec l'apostrophe ma macro plante
J'ai une erreur 1004 lorsque je lance la macro par un bouton et mon TBoxdate ne se remplit plus automatiquement
Le code est il a la bonne place? je ne sé pas

Merci de vos conseils

JC

 

[mutzik]

Salut JC

il faut modifier la ligne comme suit :
CBoxproduit.List = Sheets('Liste').Range('B2:B' & Range('B65536').End(xlUp).Row)

Range('B65536').End(xlUp).Row te renvoie uniquement un numéro de ligne

 

[JC de Lorient]

re tout le monde

j'ai modifié suivant tes conseils et j'ai toujours la même erreur
ceci dit je peux rester avec Rowsource mé j'aimerais bien savoir pourquoi ça plante comme ça

merci de tes conseils

JC

 

[myDearFriend!]

Bonsoir JC de Lorient, mutzik, le Forum,

Pour compléter la réponse de mutzik, tu peux essayer comme ça :

CBoxproduit.List = Sheets('Liste').Range('B2:B' & Range('B65536').End(xlUp).Row).Value

Cordialement,

 

[JC de Lorient]

bonsoir MDF, le forum

mille pardon d'avoir oublier le B !!!! on voit pas les erreurs FLAGRANTES !!
mais mais mais !!
j'ai maintenant un problème de liste !
je m'esplique :
ma liste se trouve sur feuille 'Liste'
B1 = au titre de ma colonne
B2:B22 = mes données

dans mon comboBox il n'y a que le titre de ma liste et la 1ère donnée !!! il me manque les 19 autres !!!
y'a surement une explication mais introuvable pour ma part
merci pour l'aide

 

[myDearFriend!]

Re le fil,

Comme ça, je ne m'explique pas le problème non plus...

Je pense que tu connais le refrain... le fichier zippé et joint de moins de 50 Ko, épuré à l'essentiel du problème, sans données confidentielles, etc... (le résumé Lien supprimé)

Cordialement,

Message édité par: myDearFriend!, à: 09/01/2006 21:54

 

[JC de Lorient]

re et merci de traiter mon souci

ci joint fichier épuré au maximum !

il s'agit du UserForm UFSaisie

mrerci encore et bonne soirée


JC [file name=ProductionV2_20060109230434.zip size=49036]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ProductionV2_20060109230434.zip[/file]

 

[ChTi160]

Salut JC
bonjour le fil(Salut Didier)
bonjour le Forum
je vais pour le Fun clore ce post lol
je mettrais donc

With Sheets('Liste')
CBoxproduit.List() = .Range('B2:B' & .Range('B65536').End(xlUp).Row).Value
End With

et je pense que l'équipe aura remplie son contrat lol
Bonne journée

 

[JC de Lorient]

bonjour le Forum!
trop de la balle
enfin ça marche !!
mille merci a tous
et bonne journée
ChTi : je confirme le post va etre clos !
Kénavo !!

JC

 

[ChTi160]

re JC
comment ça trou de Balle Lol
content pour toi
Bonne Journée