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

jacq56 · 20 Novembre 2016

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 · 20 Novembre 2016

Bonjour,

Teste comme ceci

Code:

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 · 20 Novembre 2016

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 · 20 Novembre 2016

Re,
Teste ceci alors

Code:

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 · 20 Novembre 2016

Re,

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

Cordialement jacq56

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

jacq56

XLDnaute Junior

Pièces jointes

M12

XLDnaute Accro

jacq56

XLDnaute Junior

M12

XLDnaute Accro

jacq56

XLDnaute Junior

Discussions similaires