Discussion :

[AgriPhilou]

Bonjour à tous,

Dans ma feuille qui est protégée je voudrai trier à l'aide de deux boutons de commandes les lignes en croissant et en décroissant.

Comme ma feuille est verrouillée il faut passer par VBA pour déverrouiller avant de trier.

Colonne A = les numéros de mes animaux
Colonne B = leurs noms
Colonne C = calcul de l'âge "colonne bloquée"
Colonne D = le parc ou ils se trouvent

Donc pouvoir trier Sur le parc Colonne D ou sur la colonne A par numéros.
soit en croissant soit en décroissant.

C'est possible de faire ça ?

Merci d'avance.

[QuestVba]

Bonjour,

Tu peux essayer ceci. Pour trier la colonne A (peremt d'avoir accès au bouton même avec ta feuille verrouillée)

1. j'ai mis un commandbutton avec ce code dans la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
    CommandButton1.Locked = True
 
End Sub

2. j'ai lié le code tri avec le bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
ActiveSheet.Unprotect ("")
 
Range("A1:D9").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
 
ActiveSheet.Protect (""), DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFiltering:=True
 
End Sub

[AgriPhilou]

Bonsoir et merci pour la réponse,

Le premier code je dois le mettre sur la feuille ou le trie doit ce réaliser ?
Le deuxième dans un module ?

Je ne connais pas suffisamment VBA.

Encore merci.

[AgriPhilou]

J'ai presque trouvé, mais pour trier dans l'autre sens je dois changer quoi dans le code du trie ?

Merci