Discussion :

[Zebulon777]

Bonjour à tous,

je cherche à créer dynamiquement des bulles d'aides (de type commentaires) sur des cellules à partir d'informations situées dans une autre feuille.

Code Excel :

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
Sub TestValeurs(P_ClasseurSource, P_Feuille, P_Cellule)
    WFeuilleMIN = "LIMITES MIN"
    WFeuilleMAX = "LIMITES MAX"
    WVal = Workbooks(P_ClasseurSource).Sheets(P_Feuille).Range(P_Cellule).Value
    WMin = Workbooks(P_ClasseurSource).Sheets(WFeuilleMIN).Range(P_Cellule).Value
    WMax = Workbooks(P_ClasseurSource).Sheets(WFeuilleMAX).Range(P_Cellule).Value
    If WVal < WMin Or WVal > WMax Then
        Range(P_Cellule).Select
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        End With
    End If
    WTexteBulle = "MIN : " & WMin & vbCrLf & "MAX : " & WMax
    Range(P_Cellule).Comment.Text = P_Texte

Et bien sur, ça ne fonctionne pas, je dois merdouiller quelque part.

Merci d'avance pour votre aide.

[Zebulon777]

Bon, j'ai posé ma question trop vite

J'ai trouvé la solution, si ça peut aider des gens :

Code Excel :

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

1
2
3
4
5
6
7
 
Sub InfoBulle(P_Cellule, P_Texte)
    With Range(P_Cellule)
        .AddComment
        .Comment.Text P_Texte
    End With
End Sub