p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Nouveau Membre du Club
    Homme Profil pro
    Educateur Animateur
    Inscrit en
    février 2013
    Messages
    132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Educateur Animateur
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 132
    Points : 33
    Points
    33

    Par défaut Problème de suppression dans listbox

    Bonjour,

    J'ai le code suivant pour supprimer des lignes de ma feuille depuis une listbox... le souci est que ça supprime toutes les lignes contenant la même valeur pour "A"

    Quelqu'un aurait une idée s'il vous plaît !?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
            Do While Sheets("Retenues").Range("A" & i).Value <> ""
                If Sheets("Retenues").Range("A" & i).Value = ListBox1.Text Then
                Sheets("Retenues").Rows(i).Delete
                End If
     
            i = i + 1
            Loop

  2. #2
    Nouveau Membre du Club
    Homme Profil pro
    Educateur Animateur
    Inscrit en
    février 2013
    Messages
    132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Educateur Animateur
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 132
    Points : 33
    Points
    33

    Par défaut

    Ah ! euh ! on peut pas supprimer une discussion qu'on a lancé pour rien... !?

    En fait j'ai trouvé tout seul comme un grand...

    Merci quand même

  3. #3
    Expert Confirmé Sénior
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    2 008
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 2 008
    Points : 4 380
    Points
    4 380

    Par défaut

    Bonjour,

    Je te poste malgré tout le code que je viens de pondre ;o)) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
    Sub Supprimer()
     
        Dim DL As Long
        Dim I As Long
     
        With Worksheets("Retenues")
     
            DL = .Cells(.Rows.Count, 1).End(xlUp).Row
     
            'de Ax à A1 en partant du bas
            For I = DL To 1 Step -1
     
                If .Range("A" & I).Value = ListBox1.Text Then
     
                    .Rows(I).Delete
     
                End If
     
            Next I
     
        End With
     
    End Sub
    Hervé.

  4. #4
    Nouveau Membre du Club
    Homme Profil pro
    Educateur Animateur
    Inscrit en
    février 2013
    Messages
    132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Educateur Animateur
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 132
    Points : 33
    Points
    33

    Par défaut

    Merci... je vais quand même regarder...


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. problème d'affichage dans listbox
    Par azräel dans le forum VB.NET
    Réponses: 6
    Dernier message: 06/11/2008, 10h39
  2. Probléme de suppression dans la BDD
    Par knellle dans le forum Formulaires
    Réponses: 10
    Dernier message: 17/07/2008, 09h27
  3. Réponses: 6
    Dernier message: 23/04/2007, 15h42
  4. [Jtable] problème de suppression dans une Jtable
    Par gianni17 dans le forum Tables
    Réponses: 1
    Dernier message: 02/12/2005, 18h36
  5. Problème de suppression dans une table
    Par Splinter dans le forum Bases de données
    Réponses: 3
    Dernier message: 17/10/2005, 10h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo