Discussion :

[zielite]

Bonjour,

Je souhaite ajouter des commentaires sur les cellules d'une ligne Excel le résultat d'un calcul variable.

Je m'explique:

Je souhaite ajouter un commentaire pour chaque cellule du champ F9:Q9 le calcul suivant:
Pour la cellule F9, le calcul serait F11/F9, le commentaire afficherai le résultat uniquement
Pour la cellule G9, le calcul serait G11/G9, etc...

J'ai 150 lignes à commenter et je cherche une macro qui peut me faire économiser un peu de temps....

Est-ce que quelqu'un a déjà utilisé ce type de macro?

Par avance merci pour votre aide...

[unparia]

Bonjour

Quel est l'intérêt d'insérer en commentaire d'une cellule le contenu (bien visible) de la cellule concernée ?
Peux-tu nous l'indiquer, s'il te plait ?
(A moins que j'aie mal compris ta demande).

[zielite]

Bonjour

Quel est l'intérêt d'insérer en commentaire d'une cellule le contenu (bien visible) de la cellule concernée ?
Peux-tu nous l'indiquer, s'il te plait ?
(A moins que j'aie mal compris ta demande).

C'est un résultat de calcul que je veux afficher pas la valeur de la cellule.

[unparia]

Excuse-moi, mais je ne comprends toujours pas.
Ce qu'affiche une cellule contenant une formule EST précisément le résultat du calcul fait par la formule.

[unparia]

Je commence à me demander si (sait-on jamais ?) tu ne chercherais pas à utiliser dans ton code ce résultat en te servant erronément de la propriété formula ou formulalocal.
C'est de la propriété Value de la cellule concernée, qu'il te faudrait te servir, dans ce cas, bien évidemment.

[zielite]

Je commence à me demander si (sait-on jamais ?) tu ne chercherais pas à utiliser dans ton code ce résultat en te servant erronément de la propriété formula ou formulalocal.
C'est de la propriété Value de la cellule concernée, qu'il te faudrait te servir, dans ce cas, bien évidemment.

Tu comprendras mieux avec le code que je suis en train de faire:

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
21
22
23
24
25
26
27
28
Sub ajout_comment()
 
Dim i As Variable
Dim j As Variable
Dim Commentaire As String
 
    For i = 11 To 17 Step 6
    For j = 6 To 7
    If Cells(i - 2, j) = 0 Then
    Commentaires = 0
 
    Else
    Commentaire = Cells(i, j) / Cells(i - 2, j)
    End If
    MsgBox (Commentaire)
 
With Cells(i, j)
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:="" & Commentaire
End With
 
    Next i
    Next j
 
 
 
End Sub