declenchement macro par clic sur cellule

  • Initiateur de la discussion Initiateur de la discussion cromate
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

cromate

Guest
bonsoir,
je souhaiterais que ma macro tri s'execute lorsque je clique sur B2 (noms).
Je sais le faire avec un bouton mais j'aimerais comprendre avec vba (debutant)
merci d'avance
 

Pièces jointes

Re : declenchement macro par clic sur cellule

Bonsoir,

avec ce code, si tu cliques sur A1 ou B1, tu tries en fonction de la période, ou du nom

Clic droit sur le nom de l'onglet, Visualiser le code et colle ce code :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
    Range("A1:B" & [A65000].End(xlUp).Row).Sort Key1:=Target.Offset(1, 0), _
        Order1:=xlAscending, Header:=xlGuess
End If
End Sub
 
Re : declenchement macro par clic sur cellule

Bonsoir Cromate, Claudy

essaye avec l'événement double click, code ci-dessous à placer dans le module de la feuille concernée :

Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
    Range("A1:B16").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes
    Cancel = True
End If
End Sub

bonne soirée
@+

Edition : bonsoir bhbh, désolé je n'avais pas raffraichi, bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
199
  • Question Question
Microsoft 365 Suivi charge/capa
Réponses
10
Affichages
360
Réponses
43
Affichages
837
Réponses
2
Affichages
107
Retour