probleme sur code listbox

  • Initiateur de la discussion david
  • Date de début
D

david

Guest
Bonjour tous le monde

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 Sub
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é
 

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33