Sur passage d'une cellule affichage d'information

tinet

XLDnaute Impliqué
Bonjour le forum,


Il y a t'il une solution sur le passage d'une cellule de faire apparaitre
Dans un calendrier perpétuel les jours fériés.
 

Pièces jointes

  • Planning Perpétuel V007.zip
    28.7 KB · Affichages: 36
  • Planning Perpétuel V007.zip
    28.7 KB · Affichages: 35
  • Planning Perpétuel V007.zip
    28.7 KB · Affichages: 35

JCGL

XLDnaute Barbatruc
Re : Sur passage d'une cellule affichage d'information

Bonjour à tous,

Mise en place du code JB (Boisgontier) sur ton fichier

A+ à tous

Édition : Modification du fichier pour tenir compte des fériés sur deux années
 

Pièces jointes

  • Planning Perpétuel V008_01.xls
    194.5 KB · Affichages: 56
Dernière édition:

JCGL

XLDnaute Barbatruc
Re : Sur passage d'une cellule affichage d'information

Bonjour à tous,

Il est quasiment impossible qu'un code déposé par JB ne fonctionne pas : c'est mon "adaptation" qui fait défaut...

J'ai rajouté "Cel.ClearComments"

Remplace la Sub MaJ() par celle-ci :

VB:
Sub MaJ()
    With Sheets("Planning")
        For Each Cel In [B5:AJ35]
            Cel.ClearComments
            p = Application.Match(Cel, Application.Index([TabloFer], , 1), 0)
            If Not IsError(p) Then
                Temp = Sheets("planning").Range("TabloFer").Cells(p, 2)
                If Cel.Comment Is Nothing Then Cel.AddComment
                Cel.Comment.Text Text:=Temp
                Cel.Comment.Shape.TextFrame.AutoSize = True
            End If
        Next Cel
    End With
End Sub

A+ à tous
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo