Effacer plage cellule si une collone contient un mot

[reve24]

Bonjour
Je bute sur un problème
je désire effacer Si dans la colonne B commence par ESS alors effacement cellule A:E

Ci joint fichier pour etre plus clair

Merci à vous

mon actuelle macro n efface que la cellule colonne B

 

[Dull]

Re : Effacer plage cellule si une collone contient un mot

Salut reve24, le Forum

dans un Module Standard

Option Explicit

Sub EssAi()
Dim i As Long, DerLig As Long
DerLig = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
For i = DerLig To 2 Step -1
    If Cells(i, 2) Like "ESS*" Then Rows(i).EntireRow.ClearContents
Next i
End Sub

Bonne Journée

 

[ERIC S]

Re : Effacer plage cellule si une collone contient un mot

Bonjour reve et dull

une variante :

Sub e()
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derligne
    If LCase(Left(Range("B" & i), 3)) = "ess" Then
        Range("A" & i & ":E" & i).ClearContents
    End If
Next
End Sub

juste à noter que dans le cas de l'effacement la boucle peut s'exécuter indifféremment en montant ou en descendant, contrairement à la suppression pour laquelle il est beaucoup plus simple de remonter (step -1)

 

[Dull]

Re : Effacer plage cellule si une collone contient un mot

Re le Fil, Salut Eric🙂,


Effectivement avec ta méthode que ce soit de haut en bas ou vice versa cela fonctionne.
Cela vient d'un vieux traumatisme 🙁 ou j'essayais, avec cette méthode, de Supprimer les lignes😱.

Bonne Journée

 

[reve24]

Re : Effacer plage cellule si une collone contient un mot

Ton code doit posseder erreur
derligne = est en jaune

 

[ERIC S]

Re : Effacer plage cellule si une collone contient un mot

Re

on est lundi, donc je ne suis peut-être pas réveillé, mais je n edécèle pas d'erreur, ni sur le code de Dull ni sur le mien

sauf que si tu as testé mon code sur le fichier de Dull, Option explicit t'oblige à déclarer tes variables et dans ce cas derligne est inconnu

un petit

dim derligne as long

 

[Dull]

Re : Effacer plage cellule si une collone contient un mot

Re le Fil

...MêmeRéponse... 🙂

Bonne Journée