Aide pour listbox

[morantinp]

Bonjour à tous

Dans le fichier joint ma question - je ne sais pas comment faire
Merci de votre aide


[file name=fichierexemple_20060601144151.zip size=8450]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichierexemple_20060601144151.zip[/file] 😉

 

[pierrejean]

bonjour morantinp

je ne suis pas sur d'avoir tout compris

vois si cela te convient [file name=fichierexemple_20060601153709.zip size=9304]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichierexemple_20060601153709.zip[/file]

 

[Hervé]

Bonjour morantinp, salut pierrejean

on avais pas déjà fait un truc similaire morantip ?

en tout cas, j'ai toujours pas compris cette phrase :'Une fois ma sélection un bouton pour afficher ma sélection.'

pièce jointe une autre approche.

salut [file name=fichierexemple_20060601160816.zip size=14379]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichierexemple_20060601160816.zip[/file]

 

[Hervé]

re

pierrejean 🙂

je me permet de te proposer une autre apporche pour le remplissage d'une collection à travers une boucle :

Private Sub UserForm_Initialize()
Dim data As New Collection
Dim colonne, el
Dim i As Byte, x As Byte


For Each colonne In Array(2, 3, 5)
        For i = 2 To Cells(65536, colonne).End(xlUp).Row
                On Error Resume Next
                data.Add Cells(i, colonne), CStr(Cells(i, colonne))
                On Error GoTo 0
        Next i
       
        x = x + 1
       
        For Each el In data
                Controls('listbox' & x).AddItem el
        Next el
       
        Set data = Nothing
Next colonne

End Sub

salut

 

[pierrejean]

bonsoir tous

@ Hervé

merci pour ton approche qui va me permettre de faire connaissance avec

Array

et la formulation

Dim colonne, el

qui sont pour moi d'illustres inconnus

de ce pas, je titille F1 et je ne desespere toujours pas de t'arriver à la cheville d'ici quelques siecles

 

[morantinp]

Désolé du retard et merci de votre réponse, je m'excuse si je n'est pas été clair dans mon explication mais pour l'Userform c'est OK mais en plus j'aimerais que sur le tableau m'apparaise que la sélection pour l'imprimer
D'avance merci