[Excel] - Résultat dans un commentaire excel Résolu/Fermé

Question

Bonjour,

Bonjour,
J'ai un total (fournitures et déchets) en A1
J'ai le nombre de "déchets" de ce total en B1

Est il possible d'afficher le pourcentage de "déchets" liés a ce total dans le commentaire de cette même cellule (B1) ?

Merci didier

artamys · Answer

oui, il faut passer par une macro VBA mais cela impique de la programmation.
il faudra définir la proprieté value du commentaire de la cellule concerné.

eriiic · Answer

Bonjour,

coller le code vba suivant dans le code de la feuille concernée et adapter aux besoin :
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c1 As Range, c2 As Range
    ' actif sur la plage A2:B10
    If Intersect(Target, Range("A2:B10")) Is Nothing Then Exit Sub
    Set c1 = Cells(Target.Row, 1) '1 => colonne A
    Set c2 = Cells(Target.Row, 2) '2 => colonne B
    c2.ClearComments
    If IsEmpty(c1) Or IsEmpty(c2) Or c1.Value = 0 Then
        Exit Sub
    Else
        c2.AddComment
        c2.Comment.Text Text:=Format(c2 / c1, "0.0%") 'format pourcentage
        c2.Comment.Visible = True
        c2.Comment.Shape.Select True
        Selection.ShapeRange.Width = 40 'largeur
        Selection.ShapeRange.Height = 12 'hauteur
        c2.Comment.Visible = False
    End If
End Sub

et un exemple : http://www.cijoint.fr/cjlink.php?file=cj200808/cijEcB5dd1.xls

eric

gbinforme · Answer

bonjour

Dans ta feuille concernée, après avoir créé ton commentaire, tu places cette macro (mode d'emploi)
Private Sub Worksheet_Calculate()
    Range("B1").Comment.Text Text:=Int([B1].Value / [A1].Value * 100) & " % de déchets"
End Sub

Chaque fois que ta feuille changera de valeur ton pourcentage sera mis à jour.

Si tes cellules se situent ailleurs, ce qui est vraisemblable, tu adaptes.

PS : Salut eric, j'arrive en retard et à minima : il n'y a plus qu'à choisir...