Aide pour userform avec liste

[davidp]

Bonjour le forum ,

en attendant d'avoir un niveau suffisant

j'ai besoin à nouveau de vos services pour réaliser la chose suivante:

Sur une feuille de calcul ,j'ai une liste de 3 colonnes :

Mode d'exploitation,normes,frais de salaires.


j'aimerai créer un userform comportant une liste déroulante avec la colonne'mode d'exploitation à l'intérieur'

En sélectionnant 'exemple sans cuisson' le résultat normes et frais de salaires s'afficherait dans 2 'textbox' et si possible aussi les 3 résultats sur la feuille de calcul en F10,G10,H10.

1- Est ce réalisable?

et surtout qu'elle est la méthode pour réaliser la liste déroulante dans l'userform. J'analyserai les éléments fournit
Merci d'avance et bonne journée ( [file name=svp.zip size=7661]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/svp.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour davivp

1- Est-ce possible

Bah peut-être que oui :whistle:

Bonne fin de dimanche à toutes & à tous [file name=SvP.zip size=12692]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SvP.zip[/file]

 

[davidp]

je te remercie ERIC pour ton


Vers 23 h , je vais étudier le code pour pour pouvoir ensuite l'adapter à d'autre projet.

je risque éventuellement de te poser une précision (en cas de doute)


Merci encore

Bonne fin de journée

davidp

 

[Eric C]

Re le forum
Re bonjour davidp

Oups, je n'ai pas mis de code pour la fermeture de l'Userform

Private Sub CommandButton1_Click()
Unload Me
End Sub

Sinon à 23H00, je ne serais plus devant le PC mais d'autres contributeurs veillent (suivez mes regards.....arf....)

Bye bye

 

[davidp]

encore merci ERIC ,

tous fonctionne à merveille.
Juste une question dans le code:
Que signifie le 3 dans :.ColumnCount = 3 ????
-Peux t on changer la valeur?

Private Sub UserForm_Initialize()
Dim L As Integer

'trouve dernière ligne remplie
L = Sheets('Feuil1').Range('a65536').End(xlUp).Row
'mise des données dans les combo...
With Me
With .ComboBox1
.ColumnCount = 3 'il y a 5 colonne de A à F sur la feuille
.ColumnWidths = '120;0;0' 'Astuce, je mets la largeur à zéro pour cacher les autres colonnes
.RowSource = 'Feuil1!a15:c' & L 'Je mets toute la plage
.MatchEntry = fmMatchEntryFirstLetter 'Ici c'est pour faciliter la recherche...
End With
End With
End Sub Bonne soirée à tous

 

[Eric C]

Bonjour le forum
Bonjour davidp

Ceci est tiré d'une démo de Thierry (je m'aperçois que ne l'ai pas salué, donc je rectifie le tir, Thierry si tu me lis : bonjour) et comme j'étais occupé à autre chose je n'ai pas fait la mise à jour.
Donc

ColumnCount = 3

signifie que tu travailles avec 3 colonnes A-B & C mais seule la colonne est visible avec l'astuce de Thierry

ColumnWidths = '120;0;0'

qui met à zéro la largeur des colonnes B & C dans le ComboBox - Oki ?