Suppression de ligne en fonction d'une cellule d'une autre feuille

amertin Messages postés 15 Statut Membre -  
lolomusic667 Messages postés 2527 Statut Membre -
Hello,

Je souhaite, entre autre, supprimer la ligne dans une base de donnée dont la référence en colonne A correspond à la valeur indiquée dans ma cellule de l'onglet recherche (variable en A1 par exemple). Je n'arrive pas à faire la bonne syntaxe, étant débutant sur VBA.

En gros, j'ai une fiche client que je veux pouvoir actualiser. Pour ça, j'ai créé le code qui me permettra d'ajouter la nouvelle ligne, mais je n'arrive pas à faire celui qui me permet de supprimer la ligne correspondante existante avant...

Merci pour votre aide !

1 réponse

  1. lolomusic667 Messages postés 2527 Statut Membre 11
     
    Bonjour,

    Essaye menu Données, supprimer les doublons.

    Est-ce que cela répond à votre besoin et si cela fonctionne ?
    -1
    1. amertin Messages postés 15 Statut Membre
       
      Non, en fait il s'agit d'un "tout" avec d'autres fonctions en VBA. J'ai donc besoin du code VBA qui va me permettre de supprimer la ligne correspondante. Merci quand même !
      0
      1. lolomusic667 Messages postés 2527 Statut Membre 11 > amertin Messages postés 15 Statut Membre
         
        ll faut commencer par le bas dans la boucle

        Sub Supprimer ligne()
        dim i%
        For i=200 to 5 step -1
        If cells(i,5).Value <> "RSHOP" Then Rows(i).EntireRow.Delete
        next i
        End Sub

        Est-ce que cela fonctionne ?
        0
    2. amertin Messages postés 15 Statut Membre
       
      Peux-tu me dire comment je dois intégrer mes variables dans le code, notamment la cellule ou se trouve le numéro de référence? Je ne comprend pas pourquoi il y a "for i=200" ? Merci pour les explications...!
      0
      1. lolomusic667 Messages postés 2527 Statut Membre 11 > amertin Messages postés 15 Statut Membre
         
        C'est de l'anglais. For signifie pour en anglais. En résumé, pour chaque cellule. Le reste, c'est le code VBA.
        0