Discussion :

[Francis L]

Bonjour,

J'ai lu cette discussion.

Ben je viens de trouver une solution qui fonctionne à l'instant

Code vba :

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

1
2
3
4
5
6
Sub SupLign()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Not UCase(Cells(i, 2).Value) Like UCase("*ordinateur*") Then Rows(i).Delete
Next i
End Sub

Merci quand même zyhack

Effectivement cette macro fonctionne très bien.

J'aimerais savoir comment on peut l'appliquer sur toutes les feuilles d'un même fichier.

[cerede2000]

En parcourant simplement toutes les feuilles de ton classeur

Code :

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

1
2
3
4
5
6
Dim sheet As Worksheet
 
For Each sheet In Sheets
sheet.Activate
'Ici le code à faire.....
Next

[Francis L]

Super. Fonctionne très bien.

Je ne suis pas un expert en VBA. Si je voudrait y ajouter des mots, je m'y prend comment. Exemple: si je voudrais en plus du mot 'ordinateur' les mots 'clavier' et 'souris'. Je suppose que c'est simple, mais je suis débutant.

[cerede2000]

Il faudrait partir sur la gestion de ces mots dans un tableau par exemple pour les stocker et les modifier de manière simple.
Et dans le traitement parcourir ce tableau pour vérifier chaque mots.

[Francis L]

Malheureusement je dois inclure ces mots dans la macro, même si la gestion est un peu plus difficile. Le fichier est exporté d'un autre logiciel et cette liste de mots ne viens pas avec. Concrètement, j'exporte vers Excel une cédule d'ordonnancement de travaux à partir d'un logiciel de planification et par une macro je conserve les équipements qui demande une libération.

[cerede2000]

Quand je parle de tableau je ne parle pas de feuilles et de cellules mais bien d'un tableau en VBA.
Une Array quoi.

Qui te servira de paramètre dans ton code pour simplifier l'ajout ou la suppression de mots

Voir ici