Bonjour à tous,
J'aimerais afficher sur une Nouvelle feuille, ce que contient un ListBox1 obtenu par ce code:
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
Private Sub ListBox1_Change()
  Dim I As Integer
  I = ListBox1.ListIndex
 'Initialize la listBox2
    ListBox2.Clear
' Affichage des infos correspondant à ListBox1.ListIndex dans la ListBox2
        If ListBox1.Value <> 0 Then
        ListBox2.AddItem Cells(I + 1, 8)
        ListBox2.AddItem Cells(I + 1, 4)
        ListBox2.AddItem Cells(I + 1, 5)
        ListBox2.AddItem Cells(I + 1, 2)
        ListBox2.AddItem Cells(I + 1, 3)
        ListBox2.AddItem Cells(I + 1, 10)
        End If
 
 
End Sub
J'ai déjà dans le 1ère cellule la valeur de ListBox1, et j'aimerai qu'il m'affiche à la suite en décallant à droite.......
Est-ce possible d'utiliser offset, range. etc.......
Merci de vos réponses