Listbox et mise à jour de l'onglet

Bonjour tout le monde,

J'utilise un listbox en multisélection pour filtrer les données dans une feuille, je sélectionne des lignes puis je les supprimes.

J'utilise la fonction ListBox1.ListCount pour savoir combien de ligne sont encore présentes dans ma listbox. Jusqu'ici tout va bien.

Ma question est : y a t'il un moyen pour que le nombre de lignes restantes dans ma listbox (la valeur de ListBox1.ListCount ) se mette dans mon tableau dans une colonne à côté des données presentes dans celle-ci ?

Merci d'avance

Cordialement

Bonjour le forum, Bonjour Civo

Dim y as interger

y = List.ListCount

worksheeets("Feuil1").range("A2") = y

Essayes comme ça peut être. en l'affectant à un bouton

Cordialement.

Bonjour, merci pour le tuyau ça me servira pour plus tard (:

Pour mon problème j'arrive à un très petit résultat avec ce code ( ne vous moquez pas ) :

Indice = Me.ListBox1.ListIndex
If j > 0 Then
j = Me.ListBox1.List(Indice, 9)
Cells(j, 6) = ListBox1.ListCount
End If

Où J est le numéro des lignes, ces numéros sont présents dans ma listbox et avec ce code, il met met systématiquement le nombre de lignes présentes dans ma listbox sur la première ligne de mon tableau ): .

Un petit coup de pouce serait le bienvenu .

Merci

Voilà j'y suis arrivé en utilisant ce code

Dim maliste As New Collection

Dim j
For j = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(j) = False Then
    maliste.Add (ListBox1.List(j, 9)) ' correspond au numéro de ligne présent dans la listbox 
    End If
Next
For Each j In maliste

    Cells(j, 6) = ListBox1.ListCount ' colonne ou doit se trouver le nombre d'enregistrement de la listbox
Next

et en faisant une réinitialisation de listbox en fin de macro

Cordialement

Bonjour

Je n'avais pas bien cerné le pb

Tant mieux Civo que tu aies trouvé ta solution

On s'en servira également. on apprend avec les autres.

Crdt