Effacer

[candido57]

Bonjour,

J’ai une macro qui efface tout la feuille , mais je souhaite uniquement qu’elle efface les colonne de A à R.

Pouvez vous m’aider ?

Merci

Sub Filtrer()
Application.ScreenUpdating = False
Sheets("Recherche").Cells.Clear
If Selection.Row < 2 Or ActiveCell = "" Then
Exit Sub
Else
Cells(2, ActiveCell.Column).Copy Destination:=Sheets("Recherche").Range("g1")
Selection.Copy Destination:=Sheets("Recherche").Range("g2")
End If
Sheets("Recherche").Activate
Sheets("Base").[a2].CurrentRegion.Offset(1, 0).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("g1:g2"), CopyToRange:=Range("a5"), Unique:=False
Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

 

[gerard55]

Re : Effacer

Bonjour,
Remplace la ligne ci-dessous
Sheets("Recherche").Cells.Clear
Par celle-ci
Sheets("Recherche").Range("A:A,R:R").ClearContents
ça devrait fonctionner
A+
Gérard

 

[candido57]

Re : Effacer

Désolé mais ça bloque au niveau du rouge




Sub Filtrer()
Application.ScreenUpdating = False
Sheets("Recherche").Range("A:A,R:R").ClearContents
If Selection.Row < 2 Or ActiveCell = "" Then
Exit Sub
Else
Cells(2, ActiveCell.Column).Copy Destination:=Sheets("Recherche").Range("g1")
Selection.Copy Destination:=Sheets("Recherche").Range("g2")
End If
Sheets("Recherche").Activate
Sheets("Base").[a2].CurrentRegion.Offset(1, 0).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("g1:g2"), CopyToRange:=Range("a5"), Unique:=False
Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub