Problème de listbox

Résolu

Sophie Grml Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 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 !

Afficher la suite

A voir également:

Problème de listbox
Vba listbox ✓ - Forum VB / VBA
Trié un listBox ✓ - Forum Programmation
Rafraichir une listbox c# - Forum C#
Bonjour. Comment manipuler les listBox ? - Forum Programmation
Listbox a choix multiples - Forum VB / VBA

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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

Creer et remplir un ListBox en VB6 pr un nul

ListBox a 2 colonnes

Utilisation de listbox

[VB 6] Changer l'index d'une ListBox

Votre réponse

Discussions similaires