effacer ligne tableau par bouton "resolu"

[jacq56]

Bonjour le forum,

J’essaye par une macro avec un bouton d’effacer certaines lignes de mon tableau

Je m’explique par ex :

Si dans la cellule B15 la valeur est « PA » alors j’aimerais que la ligne de B15 a H 15 s’efface mais ne soit pas supprimé quand je clic sur le bouton

Même chose sur la ligne B27 a H27

J’ai trouvé 2 macros qui s’approche de ce que je voudrais, avec les 2 j’ai essayé d’en faire une mais cela ne fonctionne pas et comme je ne connais pas trop les macros je coince

En espérant de l’aide

Cordialement jacq56

 

[Hieu]

Salut,

En gros, tu voudrais masquer la ligne ??
si oui :

Sub mlkmd()
For Each r In Range("b11:b200")
If r = "PA" Then r.Rows.Hidden = True
Next r
End Sub

 

[jacq56]

Bonjour Hieu, le forum,

Non je ne veux pas masquer la ligne ni supprimer mais effacer les valeurs qui ce trouve dans les cellules de B15, C15.. Jusque H15 et pas au delà de H15

Par ex dans la cellule B15 j’ai « PA » une fois que j’ai cliqué sur le bouton la cellule est vide idem pour C15 etc

Car j’ai bien trouvé une macro qui efface les données mais sur toute la ligne mais moi j’ai une formule en G15 et je ne veux pas l’effacer

Cordialement jacq56

 

[Hieu]

Nouvel essai ?

Sub mlkmd()
For Each r In Range("b11:b200")
If r = "PA" Then Range(r, r.Offset(0, 6)).ClearContents
Next r
End Sub

 

[DoubleZero]

Bonjour, jacq56, Hieu, le Forum,

Une autre suggestion :

Option Explicit
Sub Valeur_supprimer()
    Dim i As Long
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        For i = .Cells(Rows.Count, "b").End(xlUp).Row To 11 Step -1
            If .Range("b" & i) = "PA" Then .Range("b" & i).Resize(, 7).Value = ""
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[jacq56]

RE bonjour DoubleZero, Hieu, le forum

Merci à tous les deux, vos solutions me conviennent parfaitement

Cordialement jacq56