Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  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 :
    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é
    Homme Profil pro Hervé Silve
    Inscrit en
    août 2010
    Messages
    1 648
    Détails du profil
    Informations personnelles :
    Nom : Homme Hervé Silve
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 1 648
    Points : 3 985
    Points
    3 985

    Par défaut

    Bonjour,

    Je te poste malgré tout le code que je viens de pondre ;o)) :
    Code :
    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •