Discussion :

[CRH_roch]

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

[Antoun]

pour nettoyer un peu, on est d'accord sur le fait que la condition complète est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If init.Range("NumClient") = Mafeuille.Range("C:C").Cells(cmpt).Value Then

Après tests, il semblerait que ça marche, du moment que ta procédure trouve effectivement quelque chose...

[Antoun]

En suite à ton problème...

Avec Mafeuille.Range("C:C").Rows.Count, tu forces Excel à tester jusqu'à la ligne 65535, ce qui n'est évidemment pas idéal. Pour optimiser, je te conseillerais d'utiliser la propriété CurrentRegion pour détecter le nombre de lignes de ton tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim NbLig as Integer
NbLig = Mafeuille.Range("C3").CurrentRegion.Rows.Count
blabla...
For cmpt = 3 To 2 + NbLig

Si tu veux voir à quoi correspond CurrentRegion, tu vas sur la cellule C3 de ta feuille et tu fais un Ctrl + étoile.