Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et
je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il
me trie par ordre décroissant sur cette colonne.
Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour
chacune des colonnes que j'associe avec un bouton "invisible" mais c'est
vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il
faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de
100 colonnes
J'espère que j'ai été clair dans mes explications.
merci pour votre aide
bs
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
Poulpor
Bonjour,
Ce code est à mettre dans le code ta feuille.
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row, Target.Column).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il me trie par ordre décroissant sur cette colonne. Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour chacune des colonnes que j'associe avec un bouton "invisible" mais c'est vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de 100 colonnes J'espère que j'ai été clair dans mes explications. merci pour votre aide bs
Bonjour,
Ce code est à mettre dans le code ta feuille.
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Row = 1 Then
Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row,
Target.Column).Address), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et
je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il
me trie par ordre décroissant sur cette colonne.
Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour
chacune des colonnes que j'associe avec un bouton "invisible" mais c'est
vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il
faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de
100 colonnes
J'espère que j'ai été clair dans mes explications.
merci pour votre aide
bs
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row, Target.Column).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il me trie par ordre décroissant sur cette colonne. Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour chacune des colonnes que j'associe avec un bouton "invisible" mais c'est vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de 100 colonnes J'espère que j'ai été clair dans mes explications. merci pour votre aide bs
BSH77
Bonjour,
Merci pour ta solution proposée, je vais l'adapter à ma sauce mais c'est exactement ce qu'il me fallait.
Merci beaucoup et à bientot
bs
Bonjour,
Ce code est à mettre dans le code ta feuille.
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row, Target.Column).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il me trie par ordre décroissant sur cette colonne. Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour chacune des colonnes que j'associe avec un bouton "invisible" mais c'est vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de 100 colonnes J'espère que j'ai été clair dans mes explications. merci pour votre aide bs
Bonjour,
Merci pour ta solution proposée, je vais l'adapter à ma sauce mais c'est
exactement ce qu'il me fallait.
Merci beaucoup et à bientot
bs
Bonjour,
Ce code est à mettre dans le code ta feuille.
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Row = 1 Then
Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row,
Target.Column).Address), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et
je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il
me trie par ordre décroissant sur cette colonne.
Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour
chacune des colonnes que j'associe avec un bouton "invisible" mais c'est
vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il
faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de
100 colonnes
J'espère que j'ai été clair dans mes explications.
merci pour votre aide
bs
Merci pour ta solution proposée, je vais l'adapter à ma sauce mais c'est exactement ce qu'il me fallait.
Merci beaucoup et à bientot
bs
Bonjour,
Ce code est à mettre dans le code ta feuille.
Evidemment, tu dois modifier "A:C" pour adapter à la dimension de ta feuille.
Bon courage,
Poulpor
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Columns("A:C").Sort Key1:=Range(ActiveSheet.Cells(Target.Row, Target.Column).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal End If
Cancel = True
End Sub
Bonjour à toutes et à tous
Merci d'avance de consacrer un peu de votre temps à mon probleme :
Voilà, j'ai un tableau avec beaucoup de colonnes contenant des chiffres et je voudrais en double-cliquant sur n'importe quelle entete de colonne qu'il me trie par ordre décroissant sur cette colonne. Jusqu'à présent j'arrive à m'en sortir en créant une macro de tri pour chacune des colonnes que j'associe avec un bouton "invisible" mais c'est vraiment galère quand j'ai une nouvelle colonne insérée dans le tableau ; il faut tout réorganiser les boutons, de plus imaginez que j'ai un tableau de 100 colonnes J'espère que j'ai été clair dans mes explications. merci pour votre aide bs
