Donnees Listbox vers feuil1

Version imprimable

Bonjour,

Etant debutant dans vb excel , j'aurai besoin de vos connaissances pour me depanner un peu sur les deux points suivants:

1. Dans ma listbox j'ai mis les donnees d'une feuille de fichier excel, feuil2, cellule B1:B200. J'aimerai faire apparaitre ces donnees dans la feuil1 dans la cellule A27 àA79 et de la cellule A113 a A157 , je voudrais que ces données se mettent les unes en dessous des autres après sélection dans ma listbox par la commande CommandButton1_Click()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
If UserForm1.Visible = True Then
End If
    Dim element_select As Boolean
    Dim nb_elements, i   As Integer
    element_select = False
    nb_elements = UserForm1.ListBox1.ListCount
'Vérifie si un élément est sélectionné
'le 1er item (élément) est indexé à zéro, raison pour laquelle la boucle for démarre à zéro
    For i = 0 To nb_elements - 1
        If UserForm1.ListBox1.Selected(i) = True Then
            element_select = True
            Exit For
       End If
    Next
'sélectionne la cellule devant recevoir la 1ère valeur
    Range("A27").Select
 
'Ecriture des valeurs sélectionnés dans la feuille Excel
    For i = 0 To nb_elements - 1
'affecte à la cellule active la valeur sélectionnée de la colonne un de la ListeBox
'l'index des colonnes commançant à zéro, on utilise la valeur 0
            ActiveCell.Value = ListBox1.List(i, 0)
'se déplace d'une cellule vers le bas
            ActiveCell.Offset(1, 0).Select
 
    Next i
End Sub

Bonjour and welcom ;)

Cela devrait ressembler à ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Dim nb_elements As Integer, i As Integer, x As Integer
 
'compte le nombre d'éléments sélectionnés
nb_elements = userform1.listbox1.ListCount
'si aucun élément sélectionné on quitte la procédure
If nb_elements = 0 Then Exit Sub
 
'le 1er item (élément) est indexé à zéro, raison pour laquelle la boucle for démarre à zéro
For i = 0 To nb_elements - 1
    If userform1.listbox1.Selected(i) = True Then
        Range("A" & 27 + x) = userform1.listbox1.List(i)
        Range("A" & 113 + x) = userform1.listbox1.List(i)
        x = x + 1
    End If
Next
 
End Sub

Voui ! Parfaitement ! (Hello Fring) Même qu'il faut toujours écouter cet excellent Fring... :mouarf:
On peut juste un peu simplifier...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim nb_elements As Integer, i As Integer, x As Integer
'le 1er item (élément) est indexé à zéro, raison pour laquelle la boucle for démarre à zéro
'Si ListBox1 est vide, Listcount = 0 => 0 - 1 = -1 => la boucle est ignorée
    For i = 0 To UserForm1.ListBox1.ListCount - 1
        If UserForm1.ListBox1.Selected(i) Then
            Range("A" & 27 + x) = UserForm1.ListBox1.List(i)
            Range("A" & 113 + x) = UserForm1.ListBox1.List(i)
            x = x + 1
        End If
    Next     
End Sub

Bonne journée ;)