VBA Supprimer des lignes avec condition sur cellules

[hoyuelo]

Bonjour à tous !


Je sèche vraiment sur un thème et je permets de vous solliciter :

J'aimerais supprimer des lignes entières lorsqu'une cellule contient le mot "OUI".

Dans la colonne A, j'ai pour certaines lignes (de façon aléatoire) le mot "OUI". Chaque fois que ce mot est présent, j'ai besoin de supprimer la ligne correspondante en entier.

Autrement dit, à la fin il ne doit rester que les lignes dont autre chose que "OUI" est dans la colonne A.

Il ne me manque que cette partie dans la macro et je galère !


Merci d'avance de votre aide

 

[ivan27]

Re : VBA Supprimer des lignes avec condition sur cellules

Bonjour hoyuelo,

Regarde si l'exemple joint te convient.

@+

Ivan

 

[hoyuelo]

Re : VBA Supprimer des lignes avec condition sur cellules

Merci beaucoup ivan 27 !

Exactement ce que je voulais faire

 

[moutchec]

Re : VBA Supprimer des lignes avec condition sur cellules

Bonjour hoyuelo,

Regarde si l'exemple joint te convient.

@+

Ivan

Bonsoir @yvan,
comment modifier ton code pour supprimer les lignes (entre 1 et 15000) dont la cellule en colonne G est vide?
Merci d'avance.
Moutchec

 

[Bnj]

bonjour à tous,

j'ai essayé d'adapter cette macro à mon tableau mais cela n fonctionne pas

Sub SupLigneOui()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 65), 4) = "OUI" Then Rows(i).Delete
Next i
End Sub

mon tableau contient un nombre important de ligne et n'est pas une plage.
Vous constaterez que mon critère "OUI" se situe dans la 65ème colonne (colonne BM)

Mais lorsque je clique sur le bouton associé à cette commande, rien ne se passe.

Auriez-vous l'extrême sympathie de m'aider tout en m'expliquant le pourquoi du comment afin que je progresse dans la macro (je pars du néant... mdr)

 

[job75]

Bonjour Bnj,

mon tableau contient un nombre important de ligne et n'est pas une plage.

Si ce n'est pas une plage pourquoi supprimer des lignes dans la feuille de calcul ?

Et combien y a-t-il de lignes ?

Allégez votre fichier et déposez-le ici.

PS : pas compris pourquoi ivan27 utilise Left(Cells(i, 65), 4) alors que "OUI" a 3 lettres...

De toute façon ce fil n'est vraiment pas bon, sur un grand tableau on n'utilisera pas cette méthode, beaucoup trop lente.

Nombreux exemples sur le forum avec utilisation de tableaux VBA.

A+

 

[Bnj]

Bonjour .

Je n'ai pas répondu car j'ai mal saisi ce que vous vouliez dire (de toute façon ce fil est mal parti )
J'ai donc rouvert un post ou la solution a été apportée . Désolé
Pour répondre à vos question:
Environ 9000 lignes et supprimer des lignes car j'ai des lignes que je crée temporairement qui n'ont plus lieu d exister lorque j'execute ma macro

 

[job75]

Bonsoir Bnj,

J'ai donc rouvert un post ou la solution a été apportée . Désolé

Je ne pense pas qu'à 13:52 vous aviez obtenu une bonne solution :

https://www.excel-downloads.com/thr...-ligne-sous-condition.20024391/#post-20183396

A+