VBA

Bonjour

Dans le visual basic j'ai 2 modules. les codes fonctionnent bien ils permettent de supprimer des lignes qui comportent differents mots en colonnes D.

j'ai 2 modules car dans le module 1 je suis limité par le nombre de lignes mais( je ne sais pas pourquoi) j'ai donc créer un 2ème module

pour la suite du code. ya til une solution pour n'avoir qu une seul macro.

Cdt

chtimili

Bonjour,

une orientation de recherche :

Créez un tableau "VBA" avec les différents intitulés à chercher :

Dim Tablo(20) as string
Tablo(0) = "CIR-Circulation"
Tablo(1) = "AMP-Amphitheatre"
etc...

ensuite vous faites une double boucle, la première comme la votre :

For I = [D65000].End(xlUp).Row To 1 Step -1

puis une seconde pour le test des intitulés :

For J=0 to 19
     If Not Cells(I, 4).Find(Tablo(J)) Is Nothing then
         Rows(I).Delete
         Exit For
     EndIf
Next J

Ou un truc dans ce genre...

Pas tester...

@ bientôt

LouReeD

Bonjour à tous

Une autre proposition :

Bye !

un grand merci a vous

gmb ca fonctionne super

pourrai je rajouter des mots si besoin?

chtimili a écrit :

pourrai je rajouter des mots si besoin?

Bye !

hello @ vous tous !

Évidemment, gmb "est plus propre" et sans erreur ! Qu'est-ce que j'ai été mettre un "Exit For" ?!

Bref, bravo @ vous et merci de vos remerciements !

@ bientôt

LouReed

Bonjour,

à tester, avec la liste des exclus dans une autre feuille et donc modifiable

P.

LouReeD a écrit :

Évidemment, gmb "est plus propre" et sans erreur !

Bye !

Je sais, je sais...

@ bientôt

LouReeD