Afficher une valeur spécifique lorsque l'on survole une cellule

Bonjour;

Pour mieux comprendre ma demande je vous joins la base de mon fichier;

Petite précision: sur la cartographie chaque cellule représente un emplacement.

Je souhaiterais que sur la feuille cartographie lorsque je survole les cellules un commentaire s'affiche en indiquant le code article correspondant à l'emplacement (une sorte de RECHERCHEV mais sur un commentaire)

Je voudrais savoir si cela vous semble possible et si oui comment?

En espérant recevoir de l'aide !

Bonsoir Romain,

A moins de créer une usine à gaz avec une forme transparente et en calculant chaque point pour chaque cellule.
ou un hook du déplacement de la souris

Il n'existe aucun évènement pour le survole de la souris sur une cellule.

Salut Romain,
Salut Bruno,

à mon sens, il faut créer un commentaire pour chaque cellule si un petit triangle rouge dans chaque cellule ne te hérisse pas le poil!

A+

Salut Romain,
Salut Bruno,

une solution rapide (pour moi ) serait de nommer chaque rack, bloc par bloc (les 2H, par ex...).
Ici, je n'ai renommé que le 2H01-02 en [BT24:CQ25] en "RACK_1".
Lors d'un clic quelconque sur la feuille, la macro détermine s'il s'agit d'un Rack nommé, calcule l'emplacement en décortiquant la formule de la cellule cliquée (si elle en contient une) et crée un commentaire qui s'affiche immédiatement avec le n° d'article.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim nListe As Name, sListe$, sRack$, sMsg$
'
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
'
Cells.ClearComments
On Error Resume Next
For Each nListe In ThisWorkbook.Names
    If Not Intersect(Target, Range(nListe.Name)) Is Nothing Then
        If Err.Number = 0 Then _
            sListe = nListe.Name: _
            Exit For
        Err.Clear
    End If
Next
If InStr(sListe, "RACK") > 0 Then
    If Target.HasFormula = True Then
        sRack = Split(Split(Target.Formula, """")(1), """")(0)
        sMsg = Worksheets("RACKS").Columns(1).Find(what:=sRack, lookat:=xlWhole, LookIn:=xlValues).Offset(0, 1).Value
        If sMsg <> "" Then
            Target.AddComment
            With Target.Comment
                .Shape.AutoShapeType = msoShapeRoundedRectangle
                .Shape.TextFrame.Characters.Font.Name = "Times New Roman"
                .Shape.TextFrame.Characters.Font.Size = 12
                .Shape.TextFrame.Characters.Font.ColorIndex = 1
                .Shape.Line.ForeColor.RGB = RGB(0, 0, 0)
                .Shape.Fill.ForeColor.RGB = RGB(215, 215, 215)
                .Text sMsg
                .Shape.TextFrame.AutoSize = True
            End With
        End If
    End If
End If
On Error GoTo 0
'
Application.ScreenUpdating = True
'
End Sub

Comme tu cherches certainement à être rationnel dans ton boulot, j'ose espérer que cette solution te suffira.
Il ne te reste qu'à nommer tous tes racks!! Pas grand'chose, finalement!

A+

Bonjour Curulis57.

Je me permet par l'intermediaire de ce post de te contacter car j'ai apercu que tu ne voulais pas etre contacter par message privé.

je sollicite ton aide car il ya 2 ans tu m'a aider a creer un script qui a totalement changer mon quotidein au boulot et aujourd'hui je rencontre un problem que je n'arrive pas a resoudre alors si tu pouvais m'aider ce serai super . mon fichier contient des donnees confidentiels et ne souhaite pas partager.

Je te remerci d'avance

Bonjour @Kamellias

Vous n'avez pas à venir "polluer" ce fil pour une demande perso.
Merci de créer un post à vous avec votre demande, un extrait de fichier sans donnée personnelle peut suffire

Merci de votre compréhension

Merci Curulius57, il est vrai que cette solution semble la plus pertinente je vais essayer ca !

Salut Romain,
Salut Bruno,

ma macro efface tous les commentaires de la feuille à chaque clic.
Si ces petits triangles ne t'ennuient pas, on peut faire autrement, c-à-d, laisser ces commentaires dès lors qu'ils ont été créés : plus besoin de cliquer pour que le commentaire s'affiche lors d'un survol de la cellule mais sans mise à jour, évidemment.

Je peux imaginer un système où cette mise à jour se ferait sur un nouveau clic voir un double-clic pour mettre tout le rack à jour.
Par contre, une mise à jour depuis un changement de valeur dans la feuille 'RACKS' serait un peu plus compliquée, ton système de numérotation (1-2-3 ou 3-2-1) devant alors être bien expliqué. De plus, les racks devraient être nommés ligne par ligne et non plus par bloc.

À toi de voir ce qui est le plus intéressant ou utile pour ton boulot.

A+