[RÉSOLU] VBA : supprimer des lignes si telle valeur présente

[dionys0s]

Bonjour tout le monde


Je suis sur une macro de mise en forme

J'ai un tableau avec tout plein de lignes, et 8 colonnes, et je souhaiterais automatiser la suppression de toutes les lignes dont la colonne C n'est pas la valeur "VE", "VEN" ou "RE". Il peut n'y avoir aucune ligne comme il peut y en avoir 10 ça dépend de l'export concerné (dans mon tableau, les lignes 61, 62 et 63).

Any idea ?

 

[dionys0s]

Re : VBA : supprimer des lignes si telle valeur présente

Je me suis mal exprimé dans le titre :
Le titre serait plutôt
supprimer des lignes si telles valeurs absentes

 

[pierrejean]

Re : VBA : supprimer des lignes si telle valeur présente

bonjour dionys0s

Teste

Sub efface()
Application.ScreenUpdating = False
For n = Range("C65536").End(xlUp).Row To 1 Step -1
  If InStr(Range("C" & n), "VE") + InStr(Range("C" & n), "RE") = 0 Then Rows(n).Delete
Next n
Application.ScreenUpdating = True
End Sub

 

[dionys0s]

Re : VBA : supprimer des lignes si telle valeur présente

Ca marche...
*total respect*

Merci beaucoup !

 

[dionys0s]

Re : VBA : supprimer des lignes si telle valeur présente

Par contre en lisant je comprends pas pourquoi ça marche.
Je ne vois pas dans la macro que tu "autorises" la valeur "VEN"

Si tu peux m'éclairer sur cette subtilité j'en serais ravi !

 

[pierrejean]

Re : VBA : supprimer des lignes si telle valeur présente

Re

Parceque si InStr(Range("C" & n), "VEN") est <>0 InStr(Range("C" & n), "VE") le sera necessairement puisque VE est contenu dans VEN
Il n'est donc pas utile de controler InStr(Range("C" & n), "VEN")

 

[dionys0s]

Re : VBA : supprimer des lignes si telle valeur présente

Je vois.

Ca m'aide beaucoup à comprendre.
Encore merci pour ton aide !