Problème de listbox Résolu

Question

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 !

lermite222 · Answer

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+

Problème de listbox

1 réponse

Discussions similaires

Newsletters