Sujet Précédent Sujet Suivant

Message d'erreur : procédure trop grande

Résolu
cs_Tonete Messages postés 12 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 26 novembre 2010 - 21 juil. 2008 à 21:13
cs_Tonete Messages postés 12 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 26 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

10 réponses

Réponse 1 / 10
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
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]

Renfield
Admin CodeS-SourceS- MVP Visual Basic
3
Réponse 2 / 10
cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
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
0
Réponse 3 / 10
cs_Tonete Messages postés 12 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 26 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.
0
Réponse 4 / 10
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
21 juil. 2008 à 22:52
Salut

Je ne connais pas la programmation excel mais il y a possibilité de factoriser il me semble

avec l'utilisation d'une collection qui stocke toute la partie variable de ta function

Dim collectionCellule As New Collection

Private Sub initCollection()
collectionCellule.Add ([A1])
    collectionCellule.Add ([D14])
    collectionCellule.Add ([D15])
End Sub

Private Sub Worksheet_Activate()
    Call initCollection
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    For Each r In collectionCellule
       
        If Not Intersect(r, Target) Is Nothing And Target.Count = 1 Then
            MsgBox ("ok")
        End If
    Next
   
   
End Sub

Attention il se peut que ce code ne fonctionne pas correctement

Apres pour gagner en visibilité peut etre initilialisation peut etre faite avec une ligne et un splilt par exemple

Mais j'ai pas la fonction qui transforme un string en range.

Bon coding
 
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 15
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

A+
0
Réponse 6 / 10
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
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é.
0
Réponse 7 / 10
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
22 juil. 2008 à 08:38
sans succès ?

elle fonctionne bien chez moi, pourtant...
tu as bien réactivé :
'If EstOuvertUF("F_calendar") Then
' Unload FormCal
'End If
'F_calendar.Show

pour le coté dynamique, faudrais voir la grille, savoir les critères...
0
Réponse 8 / 10
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
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)
0
Réponse 9 / 10
cs_Tonete Messages postés 12 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 26 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 !
0
Réponse 10 / 10
cs_Tonete Messages postés 12 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 26 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
0

Discussions similaires

Erreur d’exécution 424 : objet requis
luciol8 -
Marion8316 -

7 réponses
erreur d'execution 9
cs_getrare -
getrare -

7 réponses
erreur d'execution '9'
cs_tracto -
tracto -

10 réponses
Erreur d'exécution '9' : l'indice n'appartient pas à la sélection
ptitemeuh -
ptitemeuh -

4 réponses
Erreur d'exécution 9
rednor -
rednor -

5 réponses
Rejoignez-nous