VBA & Filtres
marie
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je dois faire le tri a l'ouverture d'un fichier sur une colonne
Le tri doit se faire a partir de la ligne 3 .Actuellement il fait bien le tri croissant de la colonne 3 mais place tout sur la ligne 2, alors que ligne1 & 2 sont des titres.
Ce doit être tout con mais je ne trouve pas et je ne sais pas ce qu'il faut que je change sur mes codes ci dessous.
Si quelqu'un peu m'aider , ce serait trop super!
Sheets("BD").Select
Dim mdp As String
Application.ScreenUpdating = False
ActiveSheet.Unprotect "lilop16"
On Error Resume Next
Columns("A:BL").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect "lilop16", UserInterfaceOnly:=True
Application.ScreenUpdating = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
Sheets("Nouveau").Select
Range("D5").Select
End Sub</code>
Je dois faire le tri a l'ouverture d'un fichier sur une colonne
Le tri doit se faire a partir de la ligne 3 .Actuellement il fait bien le tri croissant de la colonne 3 mais place tout sur la ligne 2, alors que ligne1 & 2 sont des titres.
Ce doit être tout con mais je ne trouve pas et je ne sais pas ce qu'il faut que je change sur mes codes ci dessous.
Si quelqu'un peu m'aider , ce serait trop super!
<code>Private Sub Workbook_Open()
Sheets("BD").Select
Dim mdp As String
Application.ScreenUpdating = False
ActiveSheet.Unprotect "lilop16"
On Error Resume Next
Columns("A:BL").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect "lilop16", UserInterfaceOnly:=True
Application.ScreenUpdating = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
Sheets("Nouveau").Select
Range("D5").Select
End Sub</code>
A voir également:
- VBA & Filtres
- Filtres whatsapp - Accueil - Messagerie instantanée
- Photos filtres gratuit - Télécharger - Retouche d'image
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
1 réponse
Bonjour,
Suggestion :
En fait, je crois que la ligne [Columns("A:BL").Select] est de trop!
À valider :-)
Cdt
Lupin
Suggestion :
Option Explicit
Public Const MDP = "lilop16"
'
Sub Test()
Dim Limite As Long
On Error Resume Next
Application.ScreenUpdating = False
Sheets("BD").Select
ActiveSheet.Unprotect MDP
Limite = ActiveSheet.Range("B65536").End(xlUp).Row
Range("B3:B" & Limite).Select
Selection.Sort Key1:=Range("B3:B" & Limite), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Columns("A:BL").Select
Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect MDP, UserInterfaceOnly:=True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
Sheets("Nouveau").Select
Range("D5").Select
Application.ScreenUpdating = True
End Sub
'
En fait, je crois que la ligne [Columns("A:BL").Select] est de trop!
À valider :-)
Cdt
Lupin
