Discussion :

[cedric59dk]

Bonjour tout le monde!
J'aimerai savoir s'il est possible de commander l'affichage d'un commentaire dans une cellule excel par une macro?
En somme je souhaite avoir un commentaire en cellule A2 a condition que la cellule A1 soit rempli et cela jusqu'a ce que A2 soit remplis!
Par avance merci beaucoup!!
Salutations..

[ouskel'n'or]

Regarde là, je donne une solution
Tu dis
A+

[cedric59dk]

Merci beaucoup mais j'ai un petit probléme !!

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Worksheets("Données").Cells(Target.Row, 7).Value <> "" Then
        With Worksheets("Données").Cells(Target.Row, 9).Comments
            .Text Text:=Cells(4, 1) & " -> " & Cells(4, 3)
            .Text Text:=Cells(5, 1) & " -> " & Cells(5, 3)
            .Text Text:=Cells(6, 1) & " -> " & Cells(6, 3)
            .Text Text:=Cells(7, 1) & " -> " & Cells(7, 3)
            .Text Text:=Cells(8, 1) & " -> " & Cells(8, 3)
            .Text Text:=Cells(9, 1) & " -> " & Cells(9, 3)
            .Visible = True
        End With
    End If
End Sub

En faite je souhaite écrire sur plusieurs lignes

merci de ton votre aide!!

[ouskel'n'or]

Pour le comment, essaie en ajoutant

Code :

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

... text:="Première Ligne" & vbcrlf & "nouvelle ligne"

A+

Ce n'est pas vbcrlf mais vblf

[cedric59dk]

c'est relativement génant dans le sens ou je souhaite supprimer le commentaire lorsque l'utilisateur à écrit quelquechose dans la cellule ou est situé le commentaire.
Mon code actuel est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    If Worksheets("Données").Cells(Target.Row, 7).Value <> "" Then
        If Worksheets("Données").Cells(Target.Row, 9) <> "" Then
            Else
            With Worksheets("Données").Cells(Target.Row, 9).AddComment
                .Text Text:=Cells(4, 1) & " -> " & Cells(4, 3) & vbLf & Cells(5, 1) & " -> " & Cells(5, 3) _
                    & vbLf & Cells(6, 1) & " -> " & Cells(6, 3) & vbLf & Cells(7, 1) & " -> " & Cells(7, 3) _
                    & vbLf & Cells(8, 1) & " -> " & Cells(8, 3) & vbLf & Cells(9, 1) & " -> " & Cells(9, 3) _
                    & vbLf & Cells(10, 1) & " -> " & Cells(10, 3)
                .Visible = True
            End With
        End If
    End If

Comment je peux contourné ceci ?!!?

[ouskel'n'or]

J'ai regardé mais il y a un pb. Apparemment, la gestion d'erreur ne fonctionne pas dans Worksheet_change() à moins qu'elle ne s'applique pas pour les commentaires. J'explique.
Si Comment n'existe pas et que l'on supprime ce qu'il y a dans A1 et A2, et donc qu'on tente de supprimer le commentaire, cela provoque une erreur non gérée par On error ...

Je n'ai pas la réponse à ta dernière question et d'ailleurs, à cause de ça mon code ne vaut rien. L'ai l'effacé

[ouskel'n'or]

Une idée, j'ai vu que tu mettais Visible = True
Les commentaires peuvent être visibles ou non, la cellule posséder un indicateur de commentaire ou non.
Place tes commentaires à l'ouverture de ta feuille dans un module standard, mets sur la ligne suivante

Code :

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

        Application.DisplayCommentIndicator = xlCommentAndIndicator

et rends-les insibles quand les conditions sont remplies (dans Worksheet_Change)

Code :

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

        Application.DisplayCommentIndicator = xlNoIndicator

Ainsi, pas de bug et commentaires existant mais non visibles
Rien ne t'empêche de tout effacer à l'enregistrement de ton fichier

Code :

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

1
2
3
For Each LeBlaBla In ActiveSheet.Comments
     LeBlaBla.Delete
Next

A+

[cedric59dk]

Ok c'est cool !!
Ca fonctionne mais je souhaite maintenant que ca s'affiche uniquement a la ligne sur laquelle je travaille et non a toute la feuille.
Encore merci de ton aide !!

[ouskel'n'or]

Je "crois" savoir (je fais gaffe à ce que je dis maintenant...) que l'affichage des commentaires dépend de la feuille de calculs, non des cellules.
Désolé mais là j'ai bien peur d'être sec

[cedric59dk]

Ok ben je te remercie ken même de ton aide !

[cedric59dk]

Si ca peut aider quelqu'un plus tard, j'ai trouver comment contournet un peut le probleme....

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
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    If Worksheets("Données").Cells(Target.Row, 7).Value <> "" Then
        If Target.Row <> Enrligne Then
            Worksheets("Données").Cells(Target.Row, 9).AddComment
            Worksheets("Données").Cells(Target.Row, 9).Comment.Text _
                    Text:=Cells(4, 1) & " -> " & Cells(4, 3) & vbLf & Cells(5, 1) & " -> " & Cells(5, 3) _
                    & vbLf & Cells(6, 1) & " -> " & Cells(6, 3) & vbLf & Cells(7, 1) & " -> " & Cells(7, 3) _
                    & vbLf & Cells(8, 1) & " -> " & Cells(8, 3) & vbLf & Cells(9, 1) & " -> " & Cells(9, 3)
            Worksheets("Données").Cells(Target.Row, 9).Comment.Visible = True
            Enrligne = Target.Row
        End If
     End If
    If Worksheets("Données").Cells(Target.Row, 9).Value <> "" Then
        If Target.Row <> Enrlignebis Then
            Worksheets("Données").Cells(Target.Row, 9).Comment.Visible = False
            Enrlignebis = Target.Row
        End If
 
End Sub

Merci de votre aide !