userform multiselection et import de données de a feuille
1 réponse
Dominique
Bonjour,
j'ai créer cette userform multiselection avec le code d initialisation
suivant :
Private Sub UserForm_Initialize()
'multiselection
Me.LB_listecommune.MultiSelect = fmMultiSelectMulti
Set f = Sheets("BD")
'choix de liste
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("j2", f.[J65000].End(xlUp))
'sans doublon
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.LB_listecommune.List = mondico.items
'tri par orde alphabetique comunne
With LB_listecommune
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If UCase(.List(i)) < UCase(.List(j)) Then
temp = .List(j)
.List(j) = .List(i)
.List(i) = temp
End If
Next j
Next i
End With
End Sub
quand plusieurs communes sont selectionnées je desirerai qu'il m'importe
les donnée [g:V] de la BD dont la cellule J contient le nom de la
selection et me les importe vers la sheets(BD)vers la sheets (lievre)en
A15 dernière ligne vide. je vous joins un petit fichier explicative
merci pour votre aide
http://www.cijoint.fr/cjlink.php?file=cj200908/cijsP0VXgg.xlsm
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Poster une version Zippée du fichier.
JB
le fichier On 14 août, 14:31, Dominique wrote:
Bonjour, j'ai créer cette userform multiselection avec le code d initialisation suivant : Private Sub UserForm_Initialize() 'multiselection Me.LB_listecommune.MultiSelect = fmMultiSelectMulti Set f = Sheets("BD") 'choix de liste Set mondico = CreateObject("Scripting.Dictionary") For Each c In f.Range("j2", f.[J65000].End(xlUp)) 'sans doublon If Not mondico.Exists(c.Value) Then mondico.Add c. Value, c.Value Next c
Me.LB_listecommune.List = mondico.items 'tri par orde alphabetique comunne With LB_listecommune For i = 0 To .ListCount - 1 For j = 0 To .ListCount - 1 If UCase(.List(i)) < UCase(.List(j)) Then temp = .List(j) .List(j) = .List(i) .List(i) = temp End If Next j Next i End With
End Sub quand plusieurs communes sont selectionnées je desirerai qu'il m'import e les donnée [g:V] de la BD dont la cellule J contient le nom de la selection et me les importe vers la sheets(BD)vers la sheets (lievre)en A15 dernière ligne vide. je vous joins un petit fichier explicative merci pour votre aidehttp://www.cijoint.fr/cjlink.php?file=cj200908/cij sP0VXgg.xlsm
Bonjour,
Poster une version Zippée du fichier.
JB
le fichier On 14 août, 14:31, Dominique <dobi...@orange.fr> wrote:
Bonjour,
j'ai créer cette userform multiselection avec le code d initialisation
suivant :
Private Sub UserForm_Initialize()
'multiselection
Me.LB_listecommune.MultiSelect = fmMultiSelectMulti
Set f = Sheets("BD")
'choix de liste
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("j2", f.[J65000].End(xlUp))
'sans doublon
If Not mondico.Exists(c.Value) Then mondico.Add c. Value, c.Value
Next c
Me.LB_listecommune.List = mondico.items
'tri par orde alphabetique comunne
With LB_listecommune
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If UCase(.List(i)) < UCase(.List(j)) Then
temp = .List(j)
.List(j) = .List(i)
.List(i) = temp
End If
Next j
Next i
End With
End Sub
quand plusieurs communes sont selectionnées je desirerai qu'il m'import e
les donnée [g:V] de la BD dont la cellule J contient le nom de la
selection et me les importe vers la sheets(BD)vers la sheets (lievre)en
A15 dernière ligne vide. je vous joins un petit fichier explicative
merci pour votre aidehttp://www.cijoint.fr/cjlink.php?file=cj200908/cij sP0VXgg.xlsm
Bonjour, j'ai créer cette userform multiselection avec le code d initialisation suivant : Private Sub UserForm_Initialize() 'multiselection Me.LB_listecommune.MultiSelect = fmMultiSelectMulti Set f = Sheets("BD") 'choix de liste Set mondico = CreateObject("Scripting.Dictionary") For Each c In f.Range("j2", f.[J65000].End(xlUp)) 'sans doublon If Not mondico.Exists(c.Value) Then mondico.Add c. Value, c.Value Next c
Me.LB_listecommune.List = mondico.items 'tri par orde alphabetique comunne With LB_listecommune For i = 0 To .ListCount - 1 For j = 0 To .ListCount - 1 If UCase(.List(i)) < UCase(.List(j)) Then temp = .List(j) .List(j) = .List(i) .List(i) = temp End If Next j Next i End With
End Sub quand plusieurs communes sont selectionnées je desirerai qu'il m'import e les donnée [g:V] de la BD dont la cellule J contient le nom de la selection et me les importe vers la sheets(BD)vers la sheets (lievre)en A15 dernière ligne vide. je vous joins un petit fichier explicative merci pour votre aidehttp://www.cijoint.fr/cjlink.php?file=cj200908/cij sP0VXgg.xlsm