Code effacer ligne

Bonjour à tous,

J'ai trouvé un bout de code de supprimer une ligne mais non pas d'effacer le contenu de la ligne.

Voici le code :

Dim LigneSelectionnée As Integer
      'Cherche la ligne selectionnée
       LigneSelectionnée = Me.ListBox1.ListIndex + 1
         If Me.ListBox1.ListCount >= 0 And LigneSelectionnée > 0 Then
           'Supprime la ligne
           Feuil1.Rows(LigneSelectionnée).Delete
         End If

quelqu'un pourrait-il m'apporter la solution pour supprimer une ligne de ma listbox

Je vous remercie d'avance

Amicalement

Noel

Salut cfn3cfn,

si je comprends bien, tu veux une ListBox qui zappe certains items sur condition?

Dans quelles circonstances? Qui, que quoi?

Ta demande exige quelques explications!

A+

Bonjour Curulis57,

Je te donne mes explications avec mes mots.

J'ai une feuille dans laquelle j'ai un certains nombres de lignes remplie.

Bien entendu ma ListBox reprend ces lignes à ma demande.

Dans cette lisBox, je sélectionne la ligne que je voudrai supprimer. Mais du même coup il doit bien entendu me supprimer la ligne correspondante dans ma feuille à l’occurrence ma feuille se nomme "Données"

Maintenant j'ai fourni un bout de code mais il faut savoir que ma ListBox peut ne pas posséder de code

Dons initialize la listBox reprend les données en RowSource de "a9:c25".

S'il te faut des informations complémentaires, je me tiens à ta disposition.

Merci d'avance

Amicalement

Noel

Salut cfn3cfn,

ce n'est pas très clair!

Le code fourni efface bien la ligne dans la feuille.

Tu veux actualiser ta ListBox après cet effacement, peut-être?

A+

Re,

Il me semble normal que la listBox se réactualise.

Mais ce que je veux c'est que j'ai une 2ème feuille dans laquelle je cumule toutes les saisies de la feuille "Données" car à chaque fois après avoir terminé la saisie, j'efface les saisies de la feuille "Données" puisque le cumul se fait dans la feuille CUMUL.

Ce que je veux quand j'efface une ligne dans lasaie en cpours dans la feuille "Données" efface la même ligne dans la feuille Cumul c'est là que ça vien compliqué.

Amicalement

Noel

Bonsoir,

Il te faut certainement opérer à peu près ainsi :

Private Sub ListBox1_Change()
    Dim ln%
    ln = ListBox1.ListIndex + 1
    If ln > 0 Then
        ListBox1.RowSource = ""
        With Feuil1
            .Rows(ln).Delete
            ln = .Cells(.Rows.Count, 1).End(xlUp).Row
        End With
        ListBox1.RowSource = "A9:C" & ln
    End If
End Sub

Je t'ai déjà signalé l'inconvénient de RowSource dans ce cas de figure... Tu simplifierais les choses en utilisant List.

Tu simplifierais également avec une plage nommée dynamique (en veillant à ce que la référence de base du nom soit sur une ligne non supprimable...)

Cordialement.

Bonjour MFerrand,

Pourquoi tu commence à vider la listBox? si ta variable est plus grand que 0.

Je vais essayer car il faut que je l'adapte à mon projet.

Quand je suis en pleine saisie un client veut changes quelque chose qu'il a commandé par autre chose alors que cette ligne de commande a déjà été enregistrée. C'est souvent la dernière ligne que le client demande à changer une commande ou avant de régler sinon après règlement la ListBox comme la feuille de "Données" se vident.

Si ça fonctionne je serai heureux de pouvoir le rajouter à mon projet

Merci de ton aide.

amicalement

Noel

Salut cfn3cfn,

Ce sera plus facile!

A+

Salut Cyrulis57,

Je vais t'envoyer le .Frm et le .Frx que tu pourras mettre dans un nouveau projet. Mais je ne pourrai pas t'envoyer les images. car le répertoire est volumineux.

Pour MFerrand, j'ai essayé ton code cela vide la ListBox mais pas les lignes car les lignes à vider commence à A10 qui plus est il me supprime les lignes de la feuille mais au dessus de la ligne 10

Je joins les 2 fichiers concernés.

Re,

Je vais essayer de contourner pour l'expédition.

Tu devras à la réception avnt de le mettre dans un classeur vierge de retirer le".xls sur chaque fichier

Essayes et tiens moi au courant

Amicalement

Noel

Re,

Je pense que le fichier .Frm qui est passé. Je vais essayer d'envoyer seul le fichier .Frx

Le fichier .Frx ne passe pas

Désolé je vais voir si je peux trouver une autre solution.

Merci

Amicalement

Noel

Re,

J'ai compressé le fichier.

N'essaye pas d'utiliser le fichier .Frm

Les gestionnaires du Forum devraient pouvoir nous donner la possibilité de pouvoir expédier les" .Frm et le.Frx" cela soulagerai fortement le poids des fichiers.

Bonne réception, et faites en bon usage.

Amicalement

Noel

Salut cfn3cfn,

je ne sais rien faire avec ça ici!

Et en passant par le site CJOINT.COM?

A+