Friendly ghost
XLDnaute Nouveau
Bonjour,
Débutant sur la question forum Excel, je le suis également en VBA.
J'ai toujours réussi à me débrouiller en pompant à droite à gauche des morceaux de code, en les raboutant à d'autres petits bouts en essayant de déchifrer et comprendre, mais la je cale sur un petit souci, dont je suis sur sera vitre élucider par des cracks postant sur ce forumn que je visite assez régulièrement ;-)
Mon problème est que je souhaiterai avoir deux codes BeforeDoubleClick dans la meme feuille et bien sur avec des Targets différentes ; j'ai essayé ceci, ....... en vain !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B16:M16")) Is Nothing Then
If Target.Offset(0) > 0 Then
Cancel = True
Macro2_Vers_loyer
ElseIf Not Application.Intersect(Target, Range("B35:M35")) Is Nothing Then
If Target.Offset(0) > 0 Then
Cancel = True
Macro2_vers_travaux
End If
End If
End If
End Sub
La première application fonctionne très bien, mais pas la deuxième !
Pour précision, les cellules sont verrouillées et je souhaiterai que cela marche seulement lorsqu'il y a quelque chose dans les cellules.
Une âme charitable pourrait elle voler à mon secours please ?
Merci par avance.
@ toute.......
Débutant sur la question forum Excel, je le suis également en VBA.
J'ai toujours réussi à me débrouiller en pompant à droite à gauche des morceaux de code, en les raboutant à d'autres petits bouts en essayant de déchifrer et comprendre, mais la je cale sur un petit souci, dont je suis sur sera vitre élucider par des cracks postant sur ce forumn que je visite assez régulièrement ;-)
Mon problème est que je souhaiterai avoir deux codes BeforeDoubleClick dans la meme feuille et bien sur avec des Targets différentes ; j'ai essayé ceci, ....... en vain !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B16:M16")) Is Nothing Then
If Target.Offset(0) > 0 Then
Cancel = True
Macro2_Vers_loyer
ElseIf Not Application.Intersect(Target, Range("B35:M35")) Is Nothing Then
If Target.Offset(0) > 0 Then
Cancel = True
Macro2_vers_travaux
End If
End If
End If
End Sub
La première application fonctionne très bien, mais pas la deuxième !
Pour précision, les cellules sont verrouillées et je souhaiterai que cela marche seulement lorsqu'il y a quelque chose dans les cellules.
Une âme charitable pourrait elle voler à mon secours please ?
Merci par avance.
@ toute.......