Suppression de lignes par segment de contenu dans une case.

Hello world :)

Petit appel à l'aide, s'il vous plait...

Car a chaque jour une nouvelle question !
Toujours sur un projet d'automatisation, je me retrouves avec une nouvelle question.

Dans une macro, je souhaites supprimer des lignes en fonction du contenu d'une colonne.

Explication par l'exemple.

Si le contenu est "texte_exemple_A 01.01.1900" Alors la ligne est supprimée.
Si le contenu est "texte_exemple_A 01.01.1900 / texte_exemple_B", alors la ligne doit être conservée.

Il s'avère que la date est variable. Ce qui est important est que toute case contenant un "/ Texte_exemple_B" soit supprimée.
Je pensais donc faire ça par Autofilter, mais je me heurte au problème de la date qui change et le "Texte_exemple_B" aussi d'ailleurs.
Le "texte_exemple_A" a une 30aine de valeurs différentes possibles, et le "texte_exemple_B" une 20aine de valeurs différentes possibles aussi, donc je me vois mal faire une macro avec tous les exemples possibles.

Peut-être faire une macro avec une recherche sur le " / " et dans ce cas supprimer la ligne s'il est présent ?

En sachant que dans cette même macro, je dois aussi faire des recherches sur d'autres contenu de la colonne concernée et supprimer les lignes d'une dizaines d'autres genre de valeurs différentes...

SI sur la case (X, Y) le "texte_exemple_A" ou "texte_exemple_B" ou "etc"... is TRUE then deletelign. retester la ligne, si texte absent, Ligne+1.

Ce serait quelque chose comme ça ?

Merci d'avance ! :)

Bonjour,

concernant le critère "contient /" (contenu en colonne A dans l'exemple)

Code:

---

1 2 3 4 5

Dim i As Long   For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If InStr(Range("A" & i).Value, "/") > 0 Then Rows(i).Delete Next i

---

A toi d'adapter pour les autres critères

NB : attention, pas de retour arrière possible. Faire une sauvegarde de ton fichier avant de lancer

Merci beaucoup pour la réponse!
Je m'en vais décortiquer et tester ceci de ce pas. :ccool:


Et je repasse pour cliquer "résolu" dès que ...

PS : No worries, Je travailles sur des fichiers de test, mais merci, ça peut toujours sauver une vie :mrgreen:

8O
Rapide et efficace... J'adore.

Merci beaucoup pour ton aide précieuse..

A plus tard :aie:

Bon la question initiale est résolue, mais comme la question qui suit ressemble à 99% à la première ... je me permets de poser à la suite.

Concernant le bout de code qui m'a été donné :

Comment peut-il être modifié pour supprimer les lignes qui ne contiennent pas "/" justement ? Faire l'inverse de ce que fais le code actuel :

Par exemple :
Conserver les "texte_exemple_A 01.01.1900 / texte_exemple_B"
Et supprimer les "texte_exemple_A 01.01.1900" ... :)

En fait, mettre une exclusion sur le "/"

Par avance, merci ! :)

Code:

---

InStr(Range("A" & i).Value, "/")

---

La ligne code ci dessus retourne l'emplacement du caractère "/" dans la cellule passée en premier paramètre.
en faisant :f1: sur InStr tu devrais faire la déduction de ce qu'il faut modifier

ok, je pense avoir saisi, merci bien pour l'indice ! :ccool:

Anto