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 empêcher toute forme de tri

empêcher toute forme de tri

9 réponses
Avatar
Misange
Bonjour/soir

Comment empêcher sur une feuille toute forme de tri ?
merci

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !=====
Signaler un problème avec ce contenu

9 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
Pierre CFI
bonjour
que tu ne veux pas protéger je suppose ? :o)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Misange" a écrit dans le message de news:
Bonjour/soir

Comment empêcher sur une feuille toute forme de tri ?
merci

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !==== >






Avatar
Daniel.j
B'soir,
On va attendre un peu.....
comme tu trouves les reponses à tes questions tout seule
:O))))))
Daniel

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

| Bonjour/soir
|
| Comment empêcher sur une feuille toute forme de tri ?
| merci
|
| --
| Misange migrateuse http://www.excelabo.net
| ==== Attention : Disciplus a déménagé !==== |
|
|
|
|
Avatar
Pierre CFI
.../...
c'est ce que je fais en posant des questions :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Daniel.j" a écrit dans le message de news:
B'soir,
On va attendre un peu.....
comme tu trouves les reponses à tes questions tout seule
:O))))))
Daniel

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

| Bonjour/soir
|
| Comment empêcher sur une feuille toute forme de tri ?
| merci
|
| --
| Misange migrateuse http://www.excelabo.net
| ==== Attention : Disciplus a déménagé !==== > |
|
|
|
|




Avatar
Misange
c'est malin ça :-)))
faut dire que le dimanche après midi t'as le temps de réfléchir, ça dégaine
moins vite qu'en semaine !

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"Daniel.j" a écrit dans le message de
news:
B'soir,
On va attendre un peu.....
comme tu trouves les reponses à tes questions tout seule
:O))))))
Daniel

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

| Bonjour/soir
|
| Comment empêcher sur une feuille toute forme de tri ?
| merci
|
| --
| Misange migrateuse http://www.excelabo.net
| ==== Attention : Disciplus a déménagé !==== > |
|
|
|
|




Avatar
Misange
ben no évidemment...
juste une macro evenementielle sur la feuille qui intercepterait le bouton
tri de la barre ET la commande trier du menu données.
C'est pour éviter de faire des bêtises...

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"Pierre CFI" a écrit dans le message de
news:
bonjour
que tu ne veux pas protéger je suppose ? :o)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Misange" a écrit dans le message de news:


Bonjour/soir

Comment empêcher sur une feuille toute forme de tri ?
merci

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !==== > >










Avatar
Denis Michon
Bonjour Misange,

Dans le Module feuille où le tri doit être défendu :

'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range

Set Rg = Range("A:G").Find("*", , , , xlRows, xlPrevious)
If Not Rg Is Nothing Then
If Not Intersect(Target, Range("A1:G" & Rg.Row)) Is Nothing Then
EmpêcherLeTriage
Else
PermettreLeTriage
End If
End If
Set Rg = Nothing
End Sub
'-----------------------

Private Sub Worksheet_Deactivate()

PermettreLeTriage

End Sub
'------------------------


Et dans un module standard :

'--------------------------
Sub EmpêcherLeTriage()

'barre des menus / données / trier
For Each C In Application.CommandBars.FindControls(ID:’8)
C.OnAction = "Message"
Next

'Tri croissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!0)
C.OnAction = "Message"
Next

'Tri décroissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!1)
C.OnAction = "Message"
Next

End Sub
'--------------------------
Sub Message()

MsgBox "Il est interdit d'appliquer un tri à cette plage de données."

End Sub
'--------------------------
Sub PermettreLeTriage()

'barre des menus / données / trier
For Each C In Application.CommandBars.FindControls(ID:’8)
C.OnAction = ""
Next

'Tri croissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!0)
C.OnAction = ""
Next

'Tri décroissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!1)
C.OnAction = ""
Next

End Sub
'--------------------------


Salutations!





"Misange" a écrit dans le message de news:
Bonjour/soir

Comment empêcher sur une feuille toute forme de tri ?
merci

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !=====
Avatar
ru-th
Salut

comme je me méfies de notre Déesse Démone ;-))
Application.CommandBars("data").FindControl(ID:’8).Enabled = False
Application.CommandBars("tools").FindControl(ID:y7).Enabled = False
Application.CommandBars("Standard").FindControl(ID:!1).Enabled = False
Application.CommandBars("Standard").FindControl(ID:!0).Enabled = False

dans l'évenement sheet activate
à remettre à true avec désactivate
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" a écrit dans le message de news:
Od#
c'est malin ça :-)))
faut dire que le dimanche après midi t'as le temps de réfléchir, ça
dégaine

moins vite qu'en semaine !

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !==== >



"Daniel.j" a écrit dans le message de
news:
B'soir,
On va attendre un peu.....
comme tu trouves les reponses à tes questions tout seule
:O))))))
Daniel

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

| Bonjour/soir
|
| Comment empêcher sur une feuille toute forme de tri ?
| merci
|
| --
| Misange migrateuse http://www.excelabo.net
| ==== Attention : Disciplus a déménagé !==== > > |
|
|
|
|








Avatar
Misange
Merci à vous deux (vous vous reconnaitrez :-))))

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"Denis Michon" a écrit dans le message de
news:n8Tmb.13078$
Bonjour Misange,

Dans le Module feuille où le tri doit être défendu :

'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range

Set Rg = Range("A:G").Find("*", , , , xlRows, xlPrevious)
If Not Rg Is Nothing Then
If Not Intersect(Target, Range("A1:G" & Rg.Row)) Is Nothing Then
EmpêcherLeTriage
Else
PermettreLeTriage
End If
End If
Set Rg = Nothing
End Sub
'-----------------------

Private Sub Worksheet_Deactivate()

PermettreLeTriage

End Sub
'------------------------


Et dans un module standard :

'--------------------------
Sub EmpêcherLeTriage()

'barre des menus / données / trier
For Each C In Application.CommandBars.FindControls(ID:’8)
C.OnAction = "Message"
Next

'Tri croissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!0)
C.OnAction = "Message"
Next

'Tri décroissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!1)
C.OnAction = "Message"
Next

End Sub
'--------------------------
Sub Message()

MsgBox "Il est interdit d'appliquer un tri à cette plage de données."

End Sub
'--------------------------
Sub PermettreLeTriage()

'barre des menus / données / trier
For Each C In Application.CommandBars.FindControls(ID:’8)
C.OnAction = ""
Next

'Tri croissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!0)
C.OnAction = ""
Next

'Tri décroissant - Barre outils standard
For Each C In Application.CommandBars.FindControls(ID:!1)
C.OnAction = ""
Next

End Sub
'--------------------------


Salutations!





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

Bonjour/soir

Comment empêcher sur une feuille toute forme de tri ?
merci

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !==== >







Avatar
popi
et une petite variante avec mdp ;-)

Sub protege()
For Each Ctrl In Application.CommandBars.FindControls(, 210)
Ctrl.OnAction = "verrou"
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(, 211)
Ctrl.OnAction = "verrou"
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(, 928)
Ctrl.OnAction = "verrou"
Next Ctrl
End Sub

Sub verrou()
If InputBox("mdp svp", "Protection contre les bêtises ;-)") = "popi"
Then raie_init
End Sub

Sub raie_init()
For Each Ctrl In Application.CommandBars.FindControls(, 210)
Ctrl.OnAction = ""
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(, 211)
Ctrl.OnAction = ""
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(, 928)
Ctrl.OnAction = ""
Next Ctrl
MsgBox "Les tris sont maintenant possibles"
End Sub

@+ popi