formules dans commentaires

[poipoi]

Bonjour à vous..
voilà voilà.. est-il possible avec EXCEL de faire que: en survolant une cellule s'affiche sous forme de commentaire le résultat d'une opération ??
je m'explique: je veux pouvoir juste en survolant une cellule (dans laquelle figure une somme) voir apparaitre sous forme de commentaire la valeur de cette formule en pourcentage ... je vous joins un p'tit fichier au cas où...
c'est peut être impossible, mais qui sait..
inutile de vous dire quels services cela me rendrait et combien je vous en serai reconnaissant!!
alors d'avance, merci merci merci..

 

[Mouti]

Re : formules dans commentaires

Poipoi;

tu as oublié de joindre le fichier

 

[poipoi]

Re : formules dans commentaires

heu j'ai oublié le fichier..

 

[Mouti]

Re : formules dans commentaires

Tout en étant sur B6, faire un clic droit et choisir "Insérer commentaires"

 

[poipoi]

Re : formules dans commentaires

non,ça je sais faire... j
e veux qu' automatiquement le commentaire calcule la valeur de la cellule et que cela apparaisse au survol de celle-ci..
mais est-ce possible??

 

[bqtr]

Re : formules dans commentaires

Bonsoir poipoi, Mouti

En survolant la cellule, je connais pas, mais en la sélectionnant tu obtiens ce que tu veux.

Solution par macro.

Bonne soirée

P.O

 

[poipoi]

Re : formules dans commentaires

bonsoir Mouti, BQTR
merci beaucoup à vous , c'est déjà un très bon début pour ce que je recherche..
mais je ne désespère pas de trouver un jour le survol..qui sait, hein?
bonne soirée à vous tous

 

[ODVJ]

Re : formules dans commentaires

Bonsoir à tous,

une solution en reprenant le code de bqtr :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
If Not Application.Intersect(Target, Range("B3:B10")) Is Nothing Then
    For Each Cell In Range("B3:B10")
        Cell.ClearComments
        Cell.AddComment
        Cell.Comment.Text Text:=Format(CStr(Cell.Value / Cells(11, 2)) * 100, "  #,##0.00") & " %"
        Cell.Comment.Visible = False
    Next
End If
End Sub

cordialement

 

[poipoi]

Re : formules dans commentaires

heu.. avec toutes mes excuses mais rien ne se passe
je dois mal m'y prendre..
j'ai remplacé le code mais je n'ai rien dans les cellules...
une idée?

 

[ODVJ]

Re : formules dans commentaires

Bonsoir,

tu as bien pris le code de PRIVATE jusqu'à SUB et tu as effacé l'ancien ?

sinon, il faut "amorcer" la pompe : tu double-cliques sur une cellule de la zone et tu valides.

ça devrait le faire.

A+

 

[poipoi]

Re : formules dans commentaires

C'est génial.. je n'avais pas amorcé la pompe..!!
au fait, sais-tu s'il est possible de supprimer le marqueur rouge qui indique la présence d'un commentaire?

un très grand merci
bonne journée à toi..

 

[GIBI]

Re : formules dans commentaires

Voici un code basique : à chaque saisi les commentaires se réactualisent. Dans mon exemple je me base sur le total que j'ai nommé de façon trés original "Total" ===> c'est tout automatique

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col, Lig As Long

' si modif de la colonne % on recalcule les commentaires

If Target.Column <> Range("Total").Column Then ' <> colonne %
Exit Sub
End If

Col = Range("Total").Column
LigFin = Range("Total").Row

For Lig = 1 To LigFin

If IsNumeric(Cells(Lig, Col)) And Cells(Lig, Col) <> "" Then
With Cells(Lig, Col)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:="% du Total = " & Format(Cells(Lig, Col).Value / Range("Total").Value, " 0.00%")
End With

End If
Next
End Sub

 

[poipoi]

Re : formules dans commentaires

c'est vraiment super
pour vous remercier: un crumbble aux pommes et fruits rouges??
heu..
merci à vous