J'ai tas de questions.
Voici le code suivant:
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 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = Range("NumClient").Column And Target.Row = Range("NumClient").Row Then Dim Mafeuille As Worksheet, init As Worksheet, Adresse1 As String Set Mafeuille = ThisWorkbook.Worksheets("CONSOLIDATION") Set init = ThisWorkbook.Worksheets("INITIALISATION") Me.ListBox_Commande.Clear Me.ListBox_Commande.MultiSelect = fmMultiSelectMulti For cmpt = 3 To Mafeuille.Range("C:C").Rows.Count If init. = Mafeuille.Range("C:C").Cells(cmpt).Value Then Me.ListBox_Commande.AddItem Mafeuille.Range("F:F").Cells(cmpt).Value End If Next cmpt 'Me.ListBox_Commande.AddItem "bidules" End If End Sub
Je devrai mettre : if init.Range("NumClient"), mais ça ne marche pas.
Clément
Partager