Macro de suppression

[sev]

Bonsoir à tous,

Comment modifier cette macro pour que si je sélectionne une cellule en A les données de cette ligne de A:M,O se supprime ?



Sub Macro15()
Range("A93:M93,O93").Select
Range("O93").Activate
Selection.ClearContents
End Sub

Merci

 

[kjin]

Re : Macro de suppression

Réponse erronée
A+
kjin

 

[Staple1600]

Re : Macro de suppression

Bonsoir

Sub test()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 13)).ClearContents
Cells(ActiveCell.Row, 15).ClearContents
End Sub

 

[kjin]

Re : Macro de suppression

re,
Réponse erronée
A+
kjin

 

[Staple1600]

Re : Macro de suppression

Re


Une variante

Sub test_II()
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End Sub

 

[sev]

Re : Macro de suppression

Merci Stapple1600,celà fonctionne impec.

J'ai un autre soucis avec une macro de suppression de filtres :
Si je l'exécute sans que j'aie de colonne filtrée j'ai un BUG " erreur d'excution 1004"


Sheets("Saisie").Unprotect

ActiveSheet.ShowAllData

With Sheets("Saisie")
.EnableAutoFilter = True
.Protect AllowSorting:=True, AllowFiltering:=True
End With
end sub


Merci si vous pouviez me dépatouiller

 

[Pierrot93]

Re : Macro de suppression

Bonsoir Sev, Staple, Kjin

essaye peut être le code ci dessous, si j'ai bien compris...

With Sheets("Feuil1")
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With

bonne soirée
@+