plusieurs choix selon les cellules double clicquées
2 réponses
pellet15
Bonjour=20
La proc=E9dure suivante me permet que lorsque je double clic sur
les cellules C18:C37 la macros AAAA s'ex=E9cute.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Bo=
olean)
If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fin
Aig_Default_Filtre
fin:
End Sub
Comment modifier pour en plus :
double clic sur F15 la macros BBBB s'ex=E9cute et
que si je double clic sur H15 la macros CCCC s'ex=E9cute.
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
DanielCo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C18:C37")) Is Nothing Then Aig_Default_Filtre ElseIf Target.Address = "$F$15" Then BBBB ElseIf Target.Address = "$H$15" Then CCCC End If End Sub Daniel
Bonjour La procédure suivante me permet que lorsque je double clic sur les cellules C18:C37 la macros AAAA s'exécute.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fin Aig_Default_Filtre fin: End Sub
Comment modifier pour en plus : double clic sur F15 la macros BBBB s'exécute et que si je double clic sur H15 la macros CCCC s'exécute.
Merci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Target, Range("C18:C37")) Is Nothing Then
Aig_Default_Filtre
ElseIf Target.Address = "$F$15" Then
BBBB
ElseIf Target.Address = "$H$15" Then
CCCC
End If
End Sub
Daniel
Bonjour
La procédure suivante me permet que lorsque je double clic sur
les cellules C18:C37 la macros AAAA s'exécute.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fin
Aig_Default_Filtre
fin:
End Sub
Comment modifier pour en plus :
double clic sur F15 la macros BBBB s'exécute et
que si je double clic sur H15 la macros CCCC s'exécute.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C18:C37")) Is Nothing Then Aig_Default_Filtre ElseIf Target.Address = "$F$15" Then BBBB ElseIf Target.Address = "$H$15" Then CCCC End If End Sub Daniel
Bonjour La procédure suivante me permet que lorsque je double clic sur les cellules C18:C37 la macros AAAA s'exécute.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fin Aig_Default_Filtre fin: End Sub
Comment modifier pour en plus : double clic sur F15 la macros BBBB s'exécute et que si je double clic sur H15 la macros CCCC s'exécute.
Merci
pellet15
Merci cela fonction comme prévu
Le dimanche 22 avril 2012 13:17:36 UTC-4, DanielCo a écrit :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C18:C37")) Is Nothing Then Aig_Default_Filtre ElseIf Target.Address = "$F$15" Then BBBB ElseIf Target.Address = "$H$15" Then CCCC End If End Sub Daniel
> Bonjour > La procédure suivante me permet que lorsque je double clic sur > les cellules C18:C37 la macros AAAA s'exécute. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel A s > Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fi n > Aig_Default_Filtre > fin: > End Sub > > Comment modifier pour en plus : > double clic sur F15 la macros BBBB s'exécute et > que si je double clic sur H15 la macros CCCC s'exécute. > > Merci
Merci cela fonction comme prévu
Le dimanche 22 avril 2012 13:17:36 UTC-4, DanielCo a écrit :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Target, Range("C18:C37")) Is Nothing Then
Aig_Default_Filtre
ElseIf Target.Address = "$F$15" Then
BBBB
ElseIf Target.Address = "$H$15" Then
CCCC
End If
End Sub
Daniel
> Bonjour
> La procédure suivante me permet que lorsque je double clic sur
> les cellules C18:C37 la macros AAAA s'exécute.
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel A s
> Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fi n
> Aig_Default_Filtre
> fin:
> End Sub
>
> Comment modifier pour en plus :
> double clic sur F15 la macros BBBB s'exécute et
> que si je double clic sur H15 la macros CCCC s'exécute.
>
> Merci
Le dimanche 22 avril 2012 13:17:36 UTC-4, DanielCo a écrit :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C18:C37")) Is Nothing Then Aig_Default_Filtre ElseIf Target.Address = "$F$15" Then BBBB ElseIf Target.Address = "$H$15" Then CCCC End If End Sub Daniel
> Bonjour > La procédure suivante me permet que lorsque je double clic sur > les cellules C18:C37 la macros AAAA s'exécute. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel A s > Boolean) If Intersect(Target, Range("C18:C37")) Is Nothing Then GoTo fi n > Aig_Default_Filtre > fin: > End Sub > > Comment modifier pour en plus : > double clic sur F15 la macros BBBB s'exécute et > que si je double clic sur H15 la macros CCCC s'exécute. > > Merci
