Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sans la selectionner la feuille

Sans la selectionner la feuille

2 réponses
Avatar
Didier Novarin
Bonjour
Est-il possible d'avoir cette procédure sans sélectionner la feuille ?
Je vous remercie
Didier

Sub Tri_par_nom()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A2:P500").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
*Bonjour Didier Novarin*,


Bonjour
Est-il possible d'avoir cette procédure sans sélectionner la feuille ?
Je vous remercie
Didier
Bien sur :


Sub Tri_par_nom()
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
.Range("A2:P500").Sort Key1:=.Range("A3"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Didier Novarin
Bonjour JLuc
Je te remercie beaucoup, c'est parfait !
Bonne journée
Didier

"JLuc" a écrit dans le message de news:

*Bonjour Didier Novarin*,


Bonjour
Est-il possible d'avoir cette procédure sans sélectionner la feuille ?
Je vous remercie
Didier
Bien sur :


Sub Tri_par_nom()
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
.Range("A2:P500").Sort Key1:=.Range("A3"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O