[VBA Excel] Commentaire

Version imprimable

07/02/2007, 14h15
cedric59dk

[VBA Excel] Commentaire

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..
07/02/2007, 14h22
ouskel'n'or

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

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

voici mon code :

Code:

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!!

07/02/2007, 15h18
ouskel'n'or

Pour le comment, essaie en ajoutant

Code:

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

A+

Ce n'est pas vbcrlf mais vblf ;)

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:

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 ?!!?

07/02/2007, 16h03
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é :(
07/02/2007, 16h20
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:

Application.DisplayCommentIndicator = xlCommentAndIndicator

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

Code:

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:

1 2 3 For Each LeBlaBla In ActiveSheet.Comments LeBlaBla.Delete Next
A+
07/02/2007, 16h41
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 !!
07/02/2007, 16h46
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 :(
09/02/2007, 09h51
cedric59dk

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

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

Code:

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 !