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 : Sélectionner tout - Visualiser dans une fenêtre à part
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