Bonsoir,
J’aimerais mettre une protection et une déprotection sur cette macro.
J’aimerais aussi uniquement effacer de la colonne A à la colonne S
Pouvez vous m’aider à modifier cette macro.
Merci beaucoup
Sub Ellipse1_QuandClic()
UserForm1.Show
End Sub
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
J’aimerais mettre une protection et une déprotection sur cette macro.
J’aimerais aussi uniquement effacer de la colonne A à la colonne S
Pouvez vous m’aider à modifier cette macro.
Merci beaucoup
Sub Ellipse1_QuandClic()
UserForm1.Show
End Sub
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