VBA-E modification de cellule

Version imprimable

16/06/2008, 10h17
bernard38

Bjr;

avec ce code:

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

est-ce que je peux gérer la modif de la cellule quand j'ajoute un commentaire à la cellule ?

CDT

précisions:

je cherche à copier la cellule d'une colonne dés qu'on ajoute un commentaire à cette cellule.

Bjr,

Est-il possible de créer un évènement qui réagisse à l'ajout d'un commentaire à une cellule (s'il n'existe pas déjà) ?

Cdt

L'événement n'existe pas en tant que tel. Par contre tu peux utiliser l'événement SelectionChange de la feuille de calculs pour mémoriser d'abord, comparer ensuite, ce qui se trouve dans le commentaire de la cellule. Mais ce n'est qu'un bricolage.
Consiste à déclarer une variable en public dans la feuille de code de la feuille de calculs puis
dans l'événement SelectionChange,
- à vérifier l'adresse de la cellule
- à vérifier la présence d'un commentaire
Si le commentaire existe,
- à vérifier si la variable contient le même texte que précédemment.
- et si oui ou si non (c'est toi qui vois) faire ce que tu as à faire ;)
Un truc comme ça
Code:

1 2 3 4 5 6 7 8 9 10 Public msg as string Private Sub Worksheet_SelectionChange(ByVal Target As Range) if target.count > 1 then exit sub if msg <> range("B3").comment.text then 'ton code pour faire tes petites affaires msg = range("B3").comment.text msgbox msg 'pour tester end if End Sub
Bonne soirée

Bonsoir,

Tu peux éventuellement détourner le click sur les barres d'outils, dans le module ThisWorkbook:

Code:

1
2
3
4
5
6
7
8
9
Dim WithEvents WatchForComment As CommentEvent
 
Private Sub WatchForComment_CommentAdded(Target As Range)
    MsgBox "Nouveau commentaire dans la cellule:" & Target.Address
End Sub
 
Private Sub Workbook_Open()
    Set WatchForComment = New CommentEvent
End Sub

Dans un module de classe nommé CommentEvent:

Code:

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
29
30
31
32
33
34
35
Dim WithEvents AddButton1 As CommandBarButton
Dim WithEvents AddButton2 As CommandBarButton
 
Event CommentAdded(Target As Range)
 
Private Sub Class_Initialize()
    With Application.CommandBars
        Set AddButton1 = .FindControl(, 1589) 'Les barres d'outils
        Set AddButton2 = .FindControl(, 2031) 'Le menu contextuel
    End With
End Sub
 
Private Sub AddButton1_Click(ByVal Ctrl As Office.CommandBarButton, _
                                CancelDefault As Boolean)
    AddComment
    CancelDefault = True
End Sub
 
Private Sub AddButton2_Click(ByVal Ctrl As Office.CommandBarButton, _
                                CancelDefault As Boolean)
    AddComment
    CancelDefault = True
End Sub
 
Private Sub AddComment()
    Dim CommentText As String
    CommentText = InputBox("Insérer un commentaire")
    If Not CommentText = vbNullString Then
        With ActiveCell
            .AddComment
            .Comment.Text CommentText
        End With
        RaiseEvent CommentAdded(ActiveCell)
    End If
End Sub

Compatible avec Excel 2000 à 2003.

Cordialement,

Tirex28/

18/06/2008, 06h56
bernard38

Bjr,

Merci à tous les deux.Je vais tester.

Pour Tirex, mon but est de déclencher du code au moment du rajout commentaire cellule (comme un byval).
Cdt

Ousk, le if ne suffit pas il sort une erreur 91 s'il n'y a pas de commentaire au départ (ce qui peut arriver).Faut peut-etre rajouter on error ?
18/06/2008, 12h50
bernard38

Bjr,

J'ai testé mais ce n'est pas réellement ce que je cherche:
Je veux déclencher une action au moment ou j'ajoute un commentaire ou si j'en supprime un quel que soit son contenu.

Cdt