effacer ligne tableau par bouton "resolu"

H

Hieu

XLDnaute Impliqué

• 1 Novembre 2016

• #2

Salut,

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

VB:

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

 

Vote positif 0 Vote négatif

J

jacq56

XLDnaute Junior

• 1 Novembre 2016

• #3

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

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 1 Novembre 2016

• #4

Nouvel essai ?

VB:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 1 Novembre 2016

• #5

Bonjour, jacq56, Hieu, le Forum,

Une autre suggestion :

VB:

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 🙂

 

Vote positif 0 Vote négatif

J

jacq56

XLDnaute Junior

• 1 Novembre 2016

• #6

RE bonjour DoubleZero, Hieu, le forum

Merci à tous les deux, vos solutions me conviennent parfaitement

Cordialement jacq56

 

Vote positif 0 Vote négatif