Rechercher trouver et supprimer

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Moniato
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 11 février 2019
Version d'Excel : 2016

Message par Moniato » 22 février 2019, 22:55

Bonsoir à tous,

J'aimerais dans mon exemple de fichier avoir un code VBA pour pouvoir faire une "recherchev" ou autre fonction dans la colonne B de mon tableau Feuille 2 et lorsque les noms en rouge de cette colonne ont été repérés comme étant de trop, entre les deux colonnes des tableaux alors supprimer la ligne complète correspondante dans mon tableau Feuille 2.

Je pense que cela est possible mais je n'arrive pas à trouver la combinaison des deux fonctions jumelées sur le net.

Si quelqu'un pouvait m'aider cela m'aiderai beaucoup pour compléter mon projet.

Merci. :)
Rechercher et si trouver supprimer.xlsx
(14.23 Kio) Téléchargé 9 fois
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'634
Appréciations reçues : 105
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 23 février 2019, 00:02

Bonjour toutes et touq
Un début, @ tester dans ta feuil2
Sub CouleurRouge()
' Déclaration variables
Dim MyRange As Range
Dim L As Long
On error resume next
With Sheets("Feuil2")
For L = [B65000].End(xlUp).Row To 1 Step -1
If Cells(L, 2).Font.Color = 255 Then Rows(L).Delete
Next
End With
End Sub
crdlt,
André
Rechercher et si trouver supprimer.xlsm
(25.84 Kio) Téléchargé 3 fois
M
Moniato
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 11 février 2019
Version d'Excel : 2016

Message par Moniato » 23 février 2019, 00:38

Bonsoir Andre13,

Tout d'abord merci pour ton retour rapide à mon problème.
Alors ton code fonctionne très bien, par contre ce n'est pas vraiment ce que je souhaite faire, car en effet le code que tu m'as fourni ne supprime que les noms en rouge.

En fait je les avaient mis en rouge pour bien les distinguer des autres.

Je me suis peut être mal expliqué, mais ma demande serait en fait que le code exécute une recherche dans les deux colonnes et trouve les noms qui sont en trop dans le tableau Feuille 2.
Et donc une fois trouvés supprimer le mot et sa ligne.

Voilà j'espère avoir été un peu plus clair dans mes explications.

Je garde tout de même sous le coude ton code car il peut aussi m'être utile.

Je continue à chercher de mon côté.

Merci.
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'634
Appréciations reçues : 105
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 23 février 2019, 10:56

Bonjour toutes et tous
re, j'ai un peu réussi en effectuant une comparaison de tes 2 onglets, la feuille2 va rapatrier les mots manquants de ta feuil1 vers feuil2 pour que la colonne A puisse comparer et mets en couleur rouge sur la colonne B

1/il ne reste plus qu'à trouver pour les filtres pour désactiver et activer une fois que le(s)macro(s) font leurs job
2/le problème si l'on clic sur le message de confirmation afin d'effacer les textes colorisés de la colonne B de ta feuil2 cela me remonte le tableau (à voir aussi ce petit problème minime mais embêtant)
ci-joint un aperçu (j'ai mis en copie feuille 1 et 2 pour mes tests)
@ tester remodeler, test à effectuer sur la Feuil2
mon niveau est encore trop faible hélas :oops:
zsupprtimered.png
zsupprtimered.png (27.72 Kio) Vu 80 fois
Rechercher et si trouver supprimer__test002.xlsm
(43.13 Kio) Téléchargé 3 fois
M
Moniato
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 11 février 2019
Version d'Excel : 2016

Message par Moniato » 23 février 2019, 11:30

Bonjour Andre13,

Ok très bien cool c'est déjà une avancée, merci de ta contribution, je testerai ça plus tard.
Bonne journée à toi.
:wink:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message