declenchement macro par clic sur cellule

Claudy

XLDnaute Accro

• 17 Octobre 2008

• #2

Re : declenchement macro par clic sur cellule

Hello,
un truc que j'utilise : je place sur la cellule un rectangle transparent sans ligne auquel j'affecte une macro..
A+
Claudy

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 17 Octobre 2008

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Octobre 2008

• #4

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

 

Vote positif 0 Vote négatif

C

cromate

XLDnaute Nouveau

• 17 Octobre 2008

• #5

Re : declenchement macro par clic sur cellule

merci à toi BHBH, c'est plus que j'espérais

 

Vote positif 0 Vote négatif

C

cromate

XLDnaute Nouveau

• 17 Octobre 2008

• #6

Re : declenchement macro par clic sur cellule

merci à toi aussi Pierrot, je suis bien "servi".
bonne soirée

 

Vote positif 0 Vote négatif