P
Pierrot
Guest
Bonjour tous le monde
J'ai un probleme de rafraichissement d'une de mes listbox.
En effet a chaque fois que j'exécute une macro le rafraichissement ne se fait pas et j'ai des informations des autres onglets qui 's'incruste' dans ma listbox.
Voila mon code pour le remplissage de la listbox:
Merci d'avance
Pierrot
J'ai un probleme de rafraichissement d'une de mes listbox.
En effet a chaque fois que j'exécute une macro le rafraichissement ne se fait pas et j'ai des informations des autres onglets qui 's'incruste' dans ma listbox.
Voila mon code pour le remplissage de la listbox:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address(0, 0) = 'F16' Then
ListBox1.Clear
With Sheets('base de donnée fusionnée')
For Each c In .Range('j2:j' & .Range('j65536').End(xlUp).Row)
If c = Target Then ListBox1.AddItem c.Offset(0, -9)
Next c
End With
'Coche automatiquement toutes les cases quand on choisi un nom
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
CommandButton1.Caption = 'Décocher toutes les cases'
End If
Range('G18') = ListBox1.ListCount
End Sub
Merci d'avance
Pierrot