Discussion :

[caloumaya]

Je bidouille un peu vba mais là je sèche complètement.

Je voudrais afficher une info bulle (pas un commentaire) dans laquelle se trouverait la légende de la feuille de calcul.

exemple
je pointe sur une cellule en rouge l'info bulle m'indique "dossier en retard"
je pointe sur une cellule en jaune l'info bulle m'indique "dossier réglé"

un petit coup de main serait le bienvenu

[ouskel'n'or]

Quand tu dis "je pointe", qu'entends-tu par là ? Si c'est passer avec la souris sans sélection, c'est rapé, il n'existe pas d'événement mousemove pour une feuille de calculs (V.2003, après je ne sais pas)
Pour les infobulles, c'est de toutes façons rapé pour les cellules mais il y a d'autre solutions impliquant la "sélection" (clic !) de la cellule...
Précise ta demande
A+

[SilkyRoad]

bonjour

Cette procédure affiche une info-bulle lors de la sélection d'une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cible As String
 
    Target.Validation.Delete
 
    Select Case Target.Interior.ColorIndex
        Case 6: Cible = "dossier réglé"
        Case 3: Cible = "dossier en retard"
        Case Else: Cible = "Hors zone"
    End Select
 
    With Target.Validation
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputMessage = Cible
        .ShowInput = True
        .ShowError = True
    End With
End Sub

michel

[caloumaya]

merci beaucoup c'est parfait et ça marche (me rest plus à trouver les index des couleurs mais je sais où chercher).

Bonne journée à tous