Macro de suppression

K

kjin

XLDnaute Barbatruc

• 7 Février 2008

• #2

Re : Macro de suppression

Réponse erronée
A+
kjin

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Février 2008

• #3

Re : Macro de suppression

Bonsoir

Code:

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

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Février 2008

• #4

Re : Macro de suppression

re,
Réponse erronée
A+
kjin

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Février 2008

• #5

Re : Macro de suppression

Re


Une variante

Code:

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

 

Vote positif 0 Vote négatif

S

sev

Guest

• 7 Février 2008

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Février 2008

• #7

Re : Macro de suppression

Bonsoir Sev, Staple, Kjin

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

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif