VBA: Supprimer ligne si contient XY col A

Résolu
Lolo -  
 Lolo -
Hello,

Auriez vous une manière simple de faire une macro sous excel qui supprime toutes les lignes qui contiennent "xy" en colonne A ?

Merci beaucoup

1 réponse

  1.
    Stringman621 Messages postés 1726 Date d'inscription   Statut Membre Dernière intervention   340
     
    Bonjour,

    Quels sont tes recherches, tes pistes ?
    J'ai bien une solution à te proposer, mais j'aimerais savoir si tu as cherché un peu avant...

    @+
    0
    1. Lolo
       
      J'ai fait ça:

      Sub Supprime_xy()
      Dim Rng As Range
      MotCh = InputBox("xy")
      Set Rng = Feuil1.Cells.Find(MotCh)
      If Rng Is Nothing Then Exit Sub
      Rng.EntireRow.Delete
      End Sub


      Mais ça fonctionne pas :(
      0
    2. Stringman621 Messages postés 1726 Date d'inscription   Statut Membre Dernière intervention   340
       
      Ok essaie avec ça : 
      Dim i As Integer

i = 1

Do While Cells(i, 1).Value <> ""
                
    If Cells(i, 1).Value = "xy" Then
        Cells(i, 1).Value = ""
    End If
                
    i = i + 1
    
Loop


      En fait la boucle parcours toute les valeurs de la colone A jusqu'a ce qu'un champs soit vide.
      Si ta colonne A est rempli à la suite sans vide ça devrait fonctionner
      0
    3. Stringman621 Messages postés 1726 Date d'inscription   Statut Membre Dernière intervention   340
       
      Ou alors : 

      Dim i As Integer

i = 1

Max = InputBox("Jusqu'a quel ligne faut-il aller ?", "Question")

For i = 1 To Max

    If Cells(i, 1).Value = "xy" Then
        Cells(i, 1).Value = ""
    End If
                
    i = i + 1
    
Next i
      0
    4. Lolo
       
      la première me vide juste la cellule ou elle trouve xy (je souhaite que ça supprime la ligne.

      La seconde me met une erreur de compilation sur
      toto = InputBox("Jusqu'a quel ligne faut-il aller ?", "forum Access")


      Merci beaucoup !
      0
    5. Lolo
       
      Merci j'ai réussi !!

      Bonne journée !
      0

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses