Macro trier

[breeze]

Bonjour à tous,
Je suis a chercher une méthode pour rendre ma macro variable.
Je m'explique: J'utilise cette macro

'
Range("D8😀27").Select
Selection.Sort Key1:=Range("D8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Cependant la plage ,dans ce cas (d8:d27), n'est pas tourjours la même
Elle peut être aussi (d1:d7) ou encore (d28:d33) etc ça dépend des fois


Peut on faire une macro ou je pourrais sélectionner ma plage avec la souris et ensuite cliquer sur ma macro.
La macro se trouverait à commencer à "Selection.sort Key1:=..."

Je ne sais pas si vous comprenez.

J'attend de vos nouvelles.

Merci!!!

 

[kllmoon]

Re : Macro trier

Enleve la premiere ligne tout simplement, sinon tu peux aussi utiliser des inputbox pour écrire le range toi-même. Je te suggère un userform pour rendre le tout plus facil d'utilisation.

 

[kllmoon]

Re : Macro trier

Salut, j'ai profité de ma pause au travail pour te pondre cette solution :

dans un module :

Option Explicit
Public glue As String 'déclare ta variable publique pour qu'elle soit applicable partout

Sub allo()
glue = "faux" 'remet ta variable à faux
End Sub

dans ta feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If glue = "vrai" Then
Selection.Sort Key1:=Range("D8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else
Exit sub
End If
End Sub 'quand glue est vrai, la macro s'exécute à tout changement de sélection. Sinon rien.

Dans ton bouton ou ton userform :

Private Sub CommandButton1_Click()
glue = "vrai"
Application.OnTime Now + TimeValue("00:00:05"), "allo" 'dans 5 secondes, allo s'exécute et remet glue à faux, change le pour ce que tu veux comme délais
End Sub

Tu déclares donc la variable glue publique pour qu'elle soit applicable partout. Lorsque tu clique le bouton, cette variable est vrai puis se met à faux 5 secondes plus tard (tu peux changer le 5 pour ce que tu veux). Lorsque cette variable est vrai, si tu fais un changement de sélection sur ta feuille, trier s'exécute. Voilà, amuse toi 😉

 

[Fo_rum]

Re : Macro trier

Salut

un exemple avec le contrôle "RefEdit" dans un USF (Boîte à outils, Contrôles supplémentaires ...) qui permet de choisir la plage avec la souris.

 

[breeze]

Re : Macro trier

Je te remercie pour ta réponse mais ça ne marche pas. Il faut dire que je suis pas un pro, mais ta premiere idée d'enlever la premiere ligne me donne un message d'erreur et la deuxieme idee ne fait rien
Merci quand meme!!

 

[kllmoon]

Re : Macro trier

utilise la solution de fo_rum, elle marche a merveille.

 

[ROGER2327]

Re : Macro trier

Bonjour à tous

[COLOR="DarkSlateGray"][B]Sub trier_la_sélection_selon_la_colonne_active()
   On Error Resume Next
   Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
   On Error GoTo 0
End Sub[/B][/COLOR]

permet de trier un plage quelconque de cellules contigües avec la colonne active comme clé.
On n'est donc pas obligé de trier sur la première colonne.
La gestion d'erreur n'est là que pour éviter une erreur si l'on a sélectionné un plage réduite à une seule cellule vide, ou une plage discontinue.​

ROGER2327
#2161

 

[breeze]

Re : Macro trier

Merci Roger 2327, C'est exactement ce dont j'avais besoin.
Merci aussi a Kllmoon de m'avoir accordé du temps. Vous êtes géniaux
A la prochaine et encore merci!!!