Problème de listbox

Résolu/Fermé

Sophie Grml Messages postés 11 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 10 juillet 2014 - 19 nov. 2013 à 05:13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 19 nov. 2013 à 07:25

Bonjour,

J'ai besoin de copier certaines colonnes située dans mon worksheet "CAC" vers le worksheet "stocks". L'utilisateur pourra choisir le titre des colonnes dans une listbox lstYears (correspond à des noms d'actions de bourse) et il pourra en choisir jusque 5.
Cependant je souhaite que les colonnes choisies soient copiés sur les colonnes B, C, D, E et F, en fonction du nombre d'actions choisies et de leur ordre d'apparition dans la listbox, et non pas à la même colonne que leur colonne d'origine. Je ne vois pas comment coder la destination pour y parvenir

For i = 0 To 25

If lstYears.Selected(i) = True Then
wbkData.Worksheets("CAC").Cells(2, i + 2).Resize(period, 1).Copy Destination:=wbkModel.Worksheets("Stocks").[B2]
End If

Next i

merci pour votre aide !

A voir également:

Problème de listbox
Vba listbox additem plusieurs colonnes - Forum VB / VBA
Listbox recherche ✓ - Forum Programmation
ListBox avec CheckBox ✓ - Forum VB / VBA
Remplir listbox vba ✓ - Forum VB / VBA
Remplir listbox depuis control combobox ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
19 nov. 2013 à 07:25

Bonjour,
Une piste..

Dim i As Integer, A As Integer
    A = 1
    For i = 0 To lstYears.ListCount - 1
        If lstYears.Selected(i) Then
            wbkData.Worksheets("CAC").Columns(i + 1).Copy wbkModel.Worksheets("Stocks").Columns(A)
            A = A + 1
        End If
    Next i

A+

Discussions similaires

additem listbox en multicolonnes

[VBA] remplir une listBox

Recuperer valeur d'une listbox multiple sélection

Comprendre l'utilisation d'une listbox excel vba

ListBox a 2 colonnes

Discussions similaires

Newsletters