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:B500
8
500: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 !