cs_Tonete
Messages postés12Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention26 novembre 2010
-
21 juil. 2008 à 21:13
cs_Tonete
Messages postés12Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention26 novembre 2010
-
22 juil. 2008 à 21:39
Bonjour à tous,
J'ai une procédure trop grande et je ne sais pas comment la diviser en plusieurs sous macro pour quelle fonctionne. J'aurais bien aimé la diviser en 10 sous macro. Je me permets de vous l'envoyer et si quelqu'un pouvait m'aider cela serait drôlement sympa. Merci d'avance !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([D946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([L975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([X946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AF975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AR946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([AZ975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BL946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([BT975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CF946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CN975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([CZ946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DH975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([DT946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EB975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN456], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV485], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN505], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV534], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN554], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV583], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN603], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV632], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN652], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV681], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN701], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV730], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN750], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV779], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN799], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV828], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN848], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV877], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN897], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV926], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EN946], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([EV975], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH14], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP43], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH63], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP92], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH113], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP142], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH162], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP191], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH211], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP240], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH260], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP289], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH309], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP338], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH358], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP387], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FH407], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not Intersect([FP436], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload FormCal
F_calendar.Show
End If
If Not
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 22 juil. 2008 à 06:44
j'ai factorisé les 400 ranges :
Private mxsRanges() As String
Private Function ShowCalendar(ByRef Target As Range) As Boolean
Dim i As Long
If Target.Count = 1 Then
i = -1
On Local Error Resume Next
i = UBound(mxsRanges)
On Local Error GoTo 0
If i = -1 Then
mxsRanges = Split( _
"AF142;AF191;AF240;AF289;AF338;AF387;AF436;AF43;AF485;AF534;AF583;AF632;AF681;AF730;AF779;AF828;AF877;AF926;AF92;AF975;AR113;AR14;AR162;AR211;AR260;" & _
"AR309;AR358;AR407;AR456;AR505;AR554;AR603;AR63;AR652;AR701;AR750;AR799;AR848;AR897;AR946;AZ142;AZ191;AZ240;AZ289;AZ338;AZ387;AZ436;AZ43;AZ485;AZ534;" & _
"AZ583;AZ632;AZ681;AZ730;AZ779;AZ828;AZ877;AZ926;AZ92;AZ975;BL113;BL14;BL162;BL211;BL260;BL309;BL358;BL407;BL456;BL505;BL554;BL603;BL63;BL652;BL701;" & _
"BL750;BL799;BL848;BL897;BL946;BT142;BT191;BT240;BT289;BT338;BT387;BT436;BT43;BT485;BT534;BT583;BT632;BT681;BT730;BT779;BT828;BT877;BT926;BT92;BT975;" & _
"CF113;CF14;CF162;CF211;CF260;CF309;CF358;CF407;CF456;CF505;CF554;CF603;CF63;CF652;CF701;CF750;CF799;CF848;CF897;CF946;CN142;CN191;CN240;CN289;CN338;" & _
"CN387;CN436;CN43;CN485;CN534;CN583;CN632;CN681;CN730;CN779;CN828;CN877;CN926;CN92;CN975;CZ113;CZ14;CZ162;CZ211;CZ260;CZ309;CZ358;CZ407;CZ456;CZ505;" & _
"CZ554;CZ603;CZ63;CZ652;CZ701;CZ750;CZ799;CZ848;CZ897;CZ946;D113;D14;D162;D211;D260;D309;D358;D407;D456;D505;D554;D603;D63;D652;D701;D750;D799;D848;" & _
"D897;D946;DH142;DH191;DH240;DH289;DH338;DH387;DH436;DH43;DH485;DH534;DH583;DH632;DH681;DH730;DH779;DH828;DH877;DH926;DH92;DH975;DT113;DT14;DT162;" & _
"DT211;DT260;DT309;DT358;DT407;DT456;DT505;DT554;DT603;DT63;DT652;DT701;DT750;DT799;DT848;DT897;DT946;EB142;EB191;EB240;EB289;EB338;EB387;EB436;EB43;" & _
"EB485;EB534;EB583;EB632;EB681;EB730;EB779;EB828;EB877;EB926;EB92;EB975;EN113;EN14;EN162;EN211;EN260;EN309;EN358;EN407;EN456;EN505;EN554;EN603;EN63;" & _
"EN652;EN701;EN750;EN799;EN848;EN897;EN946;EV142;EV191;EV240;EV289;EV338;EV387;EV436;EV43;EV485;EV534;EV583;EV632;EV681;EV730;EV779;EV828;EV877;EV926;" & _
"EV92;EV975;FH113;FH14;FH162;FH211;FH260;FH309;FH358;FH407;FH456;FH505;FH554;FH603;FH63;FH652;FH701;FH750;FH799;FH848;FH897;FH946;FP142;FP191;FP240;" & _
"FP289;FP338;FP387;FP436;FP43;FP485;FP534;FP583;FP632;FP681;FP730;FP779;FP828;FP877;FP926;FP92;FP975;GB113;GB14;GB162;GB211;GB260;GB309;GB358;GB407;" & _
"GB456;GB505;GB554;GB603;GB63;GB652;GB701;GB750;GB799;GB848;GB897;GB946;GJ142;GJ191;GJ240;GJ289;GJ338;GJ387;GJ436;GJ43;GJ485;GJ534;GJ583;GJ632;GJ681;" & _
"GJ730;GJ779;GJ828;GJ877;GJ926;GJ92;GJ975;L142;L191;L240;L289;L338;L387;L436;L43;L485;L534;L583;L632;L681;L730;L779;L828;L877;L926;L92;L975;X113;X14;" & _
"X162;X211;X260;X309;X358;X407;X456;X505;X554;X603;X63;X652;X701;X750;X799;X848;X897;X946", _
";")
End If
For i = 0 To UBound(mxsRanges)
If Not Nothing Is Intersect(Range(mxsRanges(i)), Target) Then
'If EstOuvertUF("F_calendar") Then
' Unload FormCal
'End If
'F_calendar.Show
ShowCalendar = True
Exit For
End If
Next i
End If
End Function<hr />
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ShowCalendar Target
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 21 juil. 2008 à 21:32
Pour diviser tu peux faire Partie1,Partie2,Partie3,Partie4,Partie5 et une sub qui appelle ces parties ...
_______________________________________________________________________
VB.NETis good ...VB6is better
cs_Tonete
Messages postés12Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention26 novembre 2010 21 juil. 2008 à 21:44
Bonsoir ghuysmans99 !
Merci de ta réponse .
Mon problème c'est que je ne sais justement pas comment faire Partie1,Partie2,Partie3,Partie4,Partie5 et une sub qui appelle ces parties ............ et la mettre en forme pour que cela marche.
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201314 22 juil. 2008 à 00:35
Salut,
Tres bonne idee [auteur/NHERVAGAULT/84425.aspx nhervagault]! ta syntaxe est bonne et ton idee fonctionne bien. J'ajouterais juste qu'il est preferable de vider la collection quand on change de feuille ou de verifier que la collection a deja ete initialisee
A mettre dans ThisWorkBook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet1" Then Call initCollection 'ou sheet1 correpond au nom de la feuille qui contien MaCollectionCellules
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If MaCollectionCellules.count > 0 then Set MaCollectionCellules = Nothing
End Sub
ce qui suit a est mettre dans le code de la feuille concernee
Public MaCollectionCellules As New Collection
Private Sub initCollection()
MaCollectionCellules.Add ([A1])
MaCollectionCellules.Add ([D14])
MaCollectionCellules.Add ([D15])
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MaCellule As Range
For Each MaCellule In MaCollectionCellules
If Not Intersect(MaCellule, Target) Is Nothing And Target.Count = 1 Then
MsgBox "ok"
End If
Next
End Sub
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 22 juil. 2008 à 08:01
Il y a peut etre une solution pour rendre initialisation dynamique selon la répartition des cellules dans la feuille.
J'ai pas étudié cette solution.
NB pour vider la collection je m'en suis aperçu plus tard, en essayant de mettre en place la solution de [auteur/RENFIELD/2359.aspx Renfield]mais sans suscess de mon coté.
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 22 juil. 2008 à 09:05
Excuse Renfield,
C'est pas ce que j'ai voulu dire.
J'avais essayé d'aller plus loin hier soir pour obtenir ton code avec le split
et complété le post, je n'avais pas trouvé la solution (d'ou le sans success) j'avais des erreurs d'interprétation (des objets null).
C'est surement le fait d'utiliser la classe collection qui est un basé sur un algo de hash pour stocker les valeurs.
VB6 est un peu lointain et VBA je ne connais pas, donc j'avais pas réussi a mettre en place un code fonctionnel (ce qui est surement le cas pour le tient)
cs_Tonete
Messages postés12Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention26 novembre 2010 22 juil. 2008 à 18:05
Bonjour et merci à vous tous pour vos réponses ! Je n'ai malheureusement pas encore eu le temps de tester vos solutions mais dès que je peux je vais le faire et je vous tiens au courant.
Encore merci !
cs_Tonete
Messages postés12Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention26 novembre 2010 22 juil. 2008 à 21:39
Bonsoir,
Un tout tout tout grand merci à Renfield. En réactivant la fin de la fonction comme demandé cela fonctionne SUPER BIEN ! J'ai mis une copie de la fin de la fonction pour le cas où cela pourrait intéresser d'autres personnes.
Encore MERCI et à bientôt !
"X162;X211;X260;X309;X358;X407;X456;X505;X554;X603;X63;X652;X701;X750;X799;X848;X897;X946", _
";")
End If
For i = 0 To UBound(mxsRanges)
If Not Nothing Is Intersect(Range(mxsRanges(i)), Target) Then
If EstOuvertUF("F_calendar") Then
Unload FormCal
End If
F_calendar.Show
ShowCalendar = True
Exit For
End If
Next i
End If
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ShowCalendar Target
End Sub
Function EstOuvertUF(nom)
EstOuvertUF = False
For Each i In UserForms If UCase(i.Name) UCase(nom) Then EstOuvertUF True
Next i
End Function