Sur passage d'une cellule affichage d'information

tinet

XLDnaute Impliqué

• 25 Février 2011

• #2

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

bonsoir le forum,

J'ai trouver sa sur le forum

Mais comment modifier mon fichier


a+

 

Pièces jointes

• CommentaireBD2.xls

  45 KB · Affichages: 61

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Février 2011

• #3

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: 25 Février 2011

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 26 Février 2011

• #4

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

Bonsoir jgcl le forum,

Merci, mais il y a un probléme quand on change d'année sa ne mache plus.

Je pense que le fichier trouver pause problème sur les fonctions.

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 26 Février 2011

• #6

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

Bonjour JCGL le forum,

Merci JCGL, ta formule est mieux.
j'avais trouver la solution suivante

Cells.Select
Selection.ClearComments

A+

 

Vote positif 0 Vote négatif