Discussion :

[Lordvoldman]

Bonjour tout le monde,


J'aimerai pouvoir supprimer des lignes ou une cellule contient autre chose que ce que j'ai dans une liste, dans une autre feuille.


Dans l'exemple, la macro irait voir ma liste cellule par cellule pour voir si j'ai quelque chose que j'ai dans ma liste de référence, si je l'ai je garde si je ne l'ai pas je supprime. ( En réalité les deux collonnes sont dans deux feuilles différentes)

J'ai essayé le vlookup mais ça ne marche pas : si je fais "Faux" je ne trouve rien car ça ne match pas exactement, il y a des petites différences des mots en plus ou en mois. Si je fais "Vrai" j'ai tout et n'importe quoi.

Merci de votre aide!

[marot_r]

Bonjour.

Pour déterminer si une ligne doit être supprimée ou pas, tu peux peut-être utiliser un comptage à la place du RechercheV.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI.ENS(C:C;A1 & "*")<>0;"À garder";"À Supprimer")

Va compter tous les textes de ta liste de référence (C:C) qui commencent par le contenu de A1.
Ceci fonctionne si :

1. Le texte de la liste de référence sont égaux ou plus long que ceux cherchés.
2. Tu n'as pas d'ambiguïté sur les critères.
   Ex : Pas dans ta liste de référence "Peugeot 205", "Peugeot 404" et dans tes données "Peugeot" tout court car Excel va en trouver 2 alors qu'il ne devrait pas trouver de correspondance.

A+

[Lordvoldman]

Merci de votre réponse!
J'avais essayé cette solution mais ça ne marche pas .. Je vous mets un exemple concret de ce que ça me donne :

ça me donne toujours le même résultat alors que pour "British airways" par exemple, je devrai avoir supprimer et pour "LUFTHANSA TECHNIQUE AG" je devrais avoir à garder..

J'ai aussi essayé de coder en VBA mais ça me semble infaisable.. la liste de référence fait en réalité 1000 lignes et je ne pourrais pas mettre tout ces critères dans un IF, si c'était faisable..

[marot_r]

Bonjour.

En effet cela ne peut pas marcher comme je l'avais indiqué :

Le texte de la liste de référence sont égaux ou plus long que ceux cherchés.

Pour le faire en VBA on va inverser le critère du comptage. Je te reviens dans un nouveau post.



A+

[marot_r]

Re-bonjour.

À mettre dans un module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
public Function ASupprimer(prmCelluleDonnees as range, prmListeRef as range)
    'Retourne True si la prmCeluleDonnees contient un des textes de la liste de référence
   dim result as boolean:result=false
 
   dim cellule as range
 
   for each cellule in prmListeRef.cells
 
       if trim(cellule.value)="" then
           exit for 'Sort si on a trouvé une cellule vide
       end if
 
       if ucase(prmCelluleDonnees.value) like "*" & ucase(cellule.value) & "*" then
            result=true 'On a trouvé quelque chose qui ressemble à ce qu'on cherche.
            exit for
       end if
 
   next cellulle
 
   ASupprimer=result
end function

Pour valider que cela fonctionne comme prévu avant de s'en servir en vrai.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
private sub Test_ASupprimer()
    Debug.print ASupprimer(activesheet.range("C1"), activesheet.columns("A"))
end sub

Si tu obtiens bien ce que tu veux après, cela s'utilise comme une formule Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ASupprimer(C1; A$:A$)

Note si tu veux seulement que cela commence par ce qui est dans A1 (pas que cela contienne A1 quelle que soit la position), il faut mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ucase(prmCelluleDonnees.value) like ucase(cellule.value) & "*" then

A+

[halaster08]

Bonjour,

Une proposition via filtre avancé:
Filtrer les lignes indésirables puis les supprimer puis défiltrer
exemple:


Note que pour être sûr que la suppression de ligne ne modifie pas la liste il vaut mieux la mettre sur une autre feuille

Si besoin le tuto sur les filtres avancés: https://philippetulliez.developpez.c...dvancedfilter/

Ce que je te propose peut se faire simplement avec ou sans vba