Problème de cohabitation.....

[SOPHIE]

Bonjour le forum !

Une petite question...

Je ne sais comment faire...
Comment faire cohabiter ces deux groupes de commandes ensembles au sein d'une meme feuille, issue de deux fichiers differents, afin qu'elles s'executent correctement sans me faire apparaitre un panneau d'erreur ?

Merci beaucoup et super journée à vous tous !

Sophie.


Voici la première commande :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, Range("B8:B5008500:E8:E500")) Is Nothing Then
With Calendrier
.TextBox1 = Target.Address
.Show
End With
End If
End Sub


Voici la deuxième commande :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [B1:B10]) Is Nothing Then HeureMinut.Show: Cancel = True
End Sub



Merci encore !

 

[@Christophe@]

Bonjour,

Ben tous simplement comme cela:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B8:B500,D8500,E8:E500")) Is Nothing Then
Cancel = True
With Calendrier
.TextBox1 = Target.Address
.Show
End With
End If
If Not Application.Intersect(Target, Range("A1:A5")) Is Nothing Then
Cancel = True
HeureMinut.Show
End If
End Sub


Bonne journée

@Christophe@

 

[SOPHIE]

Super ça marche !!!

Merci beaucoup Christophe et bonne journée à toi !

Sophie. ;-)