Supprimer des lignes contenant des chaines de caractères

  • Initiateur de la discussion Initiateur de la discussion josanche
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

josanche

XLDnaute Occasionnel
Coucou à tous

J'aurais besoin de votre aide pour un problème à résoudre. En pièce jointe, dans la feuille 1 à la colonne C, il y a des noms de lois qui se repète souvent. et dans la feuille bills to delete, il y a les noms de lois que je veux supprimer dans la feuille 1. Ma demande est la suivante: J'aimerais que toutes les lignes contenant un nom de loi qui se trouve dans la feuille "Bills to delete" soient supprimé.

Y a t'il un macro pour faire cette suppression ?

Je vous remercie dors et déjà.

Cliquez sur le lien pour télécharger le fichier http://db.tt/hJDpZ85P
Bisous 🙂


Jorgeou
 
Re : Supprimer des lignes contenant des chaines de caractères

Bonsoir josanche,

Voici ton fichier avec une macro de suppression des données inscrites sur la feuille "Bills to delete".

Cette macro est déclenchée par un clic sur le bouton Suppression de la feuille 1.

Pour permettre l'envoi sur ce fil, j'ai supprimé une grande partie des données sur la feuille 1. Tu pourras y recopier les données de ton fichier d'origine pour vérifier le bon fonctionnement de la macro.

Espérant avoir répondu.

Cordialement.
 

Pièces jointes

Re : Supprimer des lignes contenant des chaines de caractères

Bonjour à tous,

Pas vraiment testé :

VB:
Option Explicit

Sub Del_Lois()
Dim X%
Dim Y%
Dim DerLS%
Dim DerLC%

DerLS = Feuil3.Range("A65536").End(xlUp).Row
DerLC = Feuil1.Range("C65536").End(xlUp).Row


For X = 2 To DerLS
For Y = 2 To DerLC
If Feuil1.Cells(X, 3) = Feuil3.Cells(X, 1) Then Feuil1.Cells(X, 3).Delete
Next Y
Next X
End Sub

A + à tous

Edition : Salut Papou-Net... A l'aube du grand saut dans la Barbatrucie... Félicitations...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
272
Réponses
7
Affichages
799
Retour