(résolu)Effacer ligne tableau en fonction résultat formule

[jacq56]

Bonjour le forum,

Il y a un petit moment j’avais demandé de l’aide pour une macro avec un bouton afin d’effacer certaines lignes de mon tableau

Je voulais que par ex : si dans la cellule B15 la valeur était « PA » alors la ligne de B15 a H 15 s’efface

J’ai un 2éme tableau presque similaire mais dans celui ci la valeur « PA » n’est pas dans mon tableau elle se trouve dans la colonne I10 :I206 et affiche « PA » grâce a une formule que je ne voudrais pas effacer.

J’avais eu 2 solutions pour mon 1er tableau que j’ai essayé d’adapter sur le 2éme mais je n’y arrive pas

En espérant à nouveau de l’aide

Cordialement jacq56

 

[M12]

Bonjour,

Teste comme ceci

Sub mlkmd()
For Each r In Range("I11:I200")
If r = "PA" Then Range(r, r.Offset(0, -7)).ClearContents
Next r
End Sub

 

[jacq56]

Bonjour,M12, le forum

J’ai essayé ta solution elle efface bien les lignes du tableau (A13 :g13) mais elle efface aussi la formule de la cellule qui se trouve en I13 que je souhaite garder

Cordialement jacq56

 

[M12]

Re,
Teste ceci alors

Sub mlkmd()
    For i = 11 To 200
        If Cells(i, 9) = "PA" Then Range(Cells(i, 1), Cells(i, 7)).ClearContents
    Next i
End Sub

 

[jacq56]

Re,

Merci beaucoup, M12 c’est exactement se que je cherchai

Cordialement jacq56