XL 2013 (RESOLU)Afficher les Jours de la Semaine en Infobulle

chaelie2015 à dit:

FORUM Bonsoir
J'ai une plage A (cellules fusionnées) A17:B47, contenant des chiffres de 1 à 31 dans l'ordre chronologique en fonction des jours du mois. Parallèlement, dans la plage AO17:AO47, j'ai mis en place une formule pour afficher le jour de la semaine (lundi, mardi, mercredi, jeudi, vendredi, samedi et dimanche). Mon objectif est que lorsque je survole une cellule de la plage A, une info-bulle s'affiche, montrant le jour de la semaine correspondant de la colonne AO.
Merci par avance

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @chaelie2015

Gloups j'ai tout vu .....

Cliquez pour agrandir...

Phil69970 à dit:

Re

C'est simple j'ai pas vu ton fichier au départ, donc je t'ai mis un message et quelques secondes après j'ai rafraichi la page et j'ai vu ton fichier et j'ai supprimé mon message pensant que j'avais mal vu c'est tout .... d'ou mon dernier message....

Cliquez pour agrandir...

Mon objectif est que lorsque je survole une cellule de la plage A, une info-bulle s'affiche,

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour à tous

Juste un mot la solution retenue ne correspond pas avec la demande initial car à chaque modification colonne AO il faut recliquer sur le bouton "Action" .....

Regarde la pièce jointe 1178664

Car la difficulté était bien là ne pas à avoir à raffraichier la liste des commentaires.

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,

Une proposition :

VB:

Sub test()
'
    For i = 17 To 47
        With Cells(i, 1)
            If Not .Comment Is Nothing Then .ClearComments
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=Cells(i, 41).Value
        End With
    Next i

End Sub

Ou, en pièce jointe, avec une mise en forme du commentaire.

Cliquez pour agrandir...

chaelie2015 à dit:

@ TooFatBoy.:J'ai une erreur d'exécution :1004 Erreur définie par l'application ou par objet.
(AddComment ' On ajoute un commentaire) quand je protège la feuille ?

Cliquez pour agrandir...

TooFatBoy à dit:

C'est normal : il faut commencer par déprotéger la feuille, et terminer par reprotéger.

Cliquez pour agrandir...

Sub MEF_Commentaire(MaCellule As Range)
ActiveSheet.Unprotect "123456"
    Application.ScreenUpdating = False

    With MaCellule
        If Not .Comment Is Nothing Then .ClearComments  ' Si un commentaire existe, on le supprime
        .AddComment                                     ' On ajoute un commentaire
        .Comment.Visible = False                        ' On masque le commentaire
        .Comment.Text Text:=.Offset(0, 39).Value        ' On affecte un texte au commentaire
    End With

    MaCellule.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 255, 200)             ' Fond jaune clair

    With MaCellule.Comment.Shape.TextFrame.Characters.Font
        .Color = RGB(0, 0, 255)                         ' Texte bleu
        .Size = 12                                      ' Texte en taille 10
        .Bold = True                                    ' Texte gras
        .Italic = False                                 ' Texte non italique
    End With

    With MaCellule.Comment.Shape
        .Width = .Width * 2
        .Line.Style = msoLineSingle                     ' Type de trait         (ex. : msoLineSingle)
        .Line.DashStyle = msoLineSolid                  ' Type de pointillés    (ex. : msoLineSolid)
        .Line.Weight = 1                                ' Épaisseur             (ex. : 2)
        .Line.ForeColor.RGB = RGB(255, 0, 0)            ' Couleur               (ex. : RGB(255, 255, 217))
    End With

    MaCellule.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle            ' Rectangle à coins arrondis
    MaCellule.Comment.Shape.TextFrame.AutoSize = True                           ' Taille automatique
    MaCellule.Comment.Shape.TextFrame.AutoSize = False                          ' Taille non automatique
    MaCellule.Comment.Shape.Width = MaCellule.Comment.Shape.Width + 10          ' Augmentation de la largeur de 10
    MaCellule.Comment.Shape.TextFrame.HorizontalAlignment = xlHAlignCenter      ' Alignement central du texte
ActiveSheet.Unprotect
End Sub