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
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]
Pour diviser tu peux faire Partie1,Partie2,Partie3,Partie4,Partie5 et une sub qui appelle ces parties ...
_______________________________________________________________________
VB.NETis good ...VB6is better
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.
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
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é.
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)
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 !
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