Discussion :

[Nicoriez]

Bonjour,
Je débute en Macro et je vous contacte car je souhaiterais dans une feuille Excel comprenant 6 onglets faire une macro afin de supprimer automatiquement toutes les lignes contenant le mot "GED" dans la colonne "AP" (42)?
Ce mot est placé dans la même colonne dans les six onglets.

pourriez vous m'aider?

D'avance merci

Nicolas

[riaolle]

Bonjour,
Intéresse-toi aux filtres automatiques et à la fonction SpecialCells(xlCellTypeVisible)

1. Tu créés des filtres automatiques : https://support.office.com/fr-fr/art...6-27B932E186E0
2. Dans la colonne voulue, tu filtres sur le mot à effacer
3. Tu utilises SpecialCells(xlCellTypeVisible) pour supprimer les lignes visibles. Un exemple :
   

   Code :

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

   Range("A1:B10").SpecialCells(xlCellTypeVisible).Delete

   
   D'après ce qui est dit plus bas, pas besoin de SpecialCells :
   

   Code :

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

   Range("A1:B10").Delete

4. Enlever le filtre

Pour connaître le code correspondant aux filtres automatiques : utilise l'enregistreur de macro.
Essaie déjà avec cela, puis reviens vers nous avec un (début) de code.

[Al__22]

L'autre solution consisterait à utiliser la fonction Find dans chacune des feuilles

[riaolle]

Comment est-ce que tu comptes utiliser la fonction Find dans ce cas là ?

[Al__22]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub try()
 
For Each Feuil In ThisWorkbook.Sheets
    With Feuil.Range("AP:AP")
        Set Trouv = .Find("GED", LookIn:=xlValues, lookat:=xlWhole)
        Do Until Trouv Is Nothing
            Feuil.Rows(Trouv.Row).Delete
            Set Trouv = .Find("GED", LookIn:=xlValues, lookat:=xlWhole)
        Loop
    End With
Next Feuil
 
End Sub

Tout le plaisir est pour moi

[Marc-L]

Bonjour,

juste pour rappeler l'inutilité de la méthode SpecialCells, la méthode Delete se préoccupant uniquement du visible !

Et en espérant qu'il n'y a pas beaucoup de lignes indépendantes à supprimer
car utiliser une boucle comme la méthode Delete est de loin le moins rapide !

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[riaolle]

Oki Doki
D'un point de vue rapidité d'exécution, je ne sais pas du tout si c'est efficace de faire une boucle comme cela... C'est pour ça que je préfère passer par des filtres. A tester

[riaolle]

Bonjour,
juste pour rappeler l'inutilité de la méthode SpecialCells, la méthode Delete se préoccupant uniquement du visible !

Ooh, je ne savais pas pour la méthode Delete. Très intéressant à savoir !

[Marc-L]

Pourtant ce n'est pas la première fois que j'en parle !

Et j'ai édité mon précédent post quant à la rapidité car là aussi je le signale régulièrement …

[Al__22]

Je n'ai jamais dit que c'était rapide j'ai juste dit que cela pouvait être une solution

[Marc-L]

Oui effectivement !

Pour la rapidité tout dépendant déjà du volume à traiter …

[Al__22]

D'ailleurs est ce que ici l'utilisation d'un tableau ne serait pas plus efficace ?
Ou même le recherche tout du Ctrl + F

EDIT :
Après plusieurs essais cela reste l'autofiltre le plus efficace (entendons rapide) et le doublon si on reste sur du VBA pure
Sinon mon histoire de tableau est pas très loin (1 secondes de plus dans mes tests avec 100 000 données sur chacune des 3 feuilles)

[Nicoriez]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub try()
 
For Each Feuil In ThisWorkbook.Sheets
    With Feuil.Range("AP:AP")
        Set Trouv = .Find("GED", LookIn:=xlValues, lookat:=xlWhole)
        Do Until Trouv Is Nothing
            Feuil.Rows(Trouv.Row).Delete
            Set Trouv = .Find("GED", LookIn:=xlValues, lookat:=xlWhole)
        Loop
    End With
Next Feuil
 
End Sub

Tout le plaisir est pour moi

Merci AL__22, cette Macro fonctionne parfaitement juste une petite demande supplémentaire si toute fois cela est possible pouvons nous faire la même chose mais en cherchant GED au milieu d'autre mots?

merci par avance pour votre aide

[Al__22]

Il est vrai qu'elle fonctionne bien
Pour trouver le GED au milieu d'autre mots il suffit d'utiliser une recherche avec les caractères spéciaux "*" :
Find("*GED*" ...)

Mais si tu as beaucoup de donnée je te conseil fortement d'utiliser un autre moyen

[Marc-L]

Ou encore en utilisant xlPart au lieu de xlWhole …

[Al__22]

Chez moi cela ne marche jamais
Du coup il est vrai que je ne me sers pas du xlPart