D
david
Guest
Bonjour tous le monde
J'ai récupéré le code suivant sur le forum (merci hervé ):
Le probleme est que lorsque je veux modifié une cellule de l'onglet, cela m'efface automatiquement le contenu de ma listbox.
Est ce qu'une ame charitable pourrait m'aider merci.
Pour info voici le lien de mon ancien message:
Lien supprimé
J'ai récupéré le code suivant sur le forum (merci hervé ):
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
ListBox1.Clear
If Target.Address(0, 0) = 'F16' Then
With Sheets('Feuil1')
For Each c In .Range('k2:k' & .Range('k65536').End(xlUp).Row)
If c = Target Then ListBox1.AddItem c.Offset(0, -9)
Next c
End With
End If
End SubEst ce qu'une ame charitable pourrait m'aider merci.
Pour info voici le lien de mon ancien message:
Lien supprimé