1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
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
 71
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
3983
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
Modérateur
Dernière intervention
15 juillet 2011
 35
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
 12
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
Modérateur
Dernière intervention
15 juillet 2011
 35
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
 71
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
Modérateur
Dernière intervention
15 juillet 2011
 35
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