créer commentaire par VBA

Bonsoir,

Essaie ceci :
Dans un module de feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$14" Then Commente
End Sub
Dans un module standard :
Sub Commente()
Set ici = ActiveSheet.Range("E5")
ici.ClearComments
With ici.AddComment
.Visible = False
.Text "Révisé le :" & Date
End With
End Sub

Serge

"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news: eyr%23UlC4GHA.5092@TK2MSFTNGP04.phx.gbl...

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Essaye ce genre de code :

'''''''''''''''''''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .NoteText <> "" Then .Comment.Delete
.AddComment "Commentaire"
End With
End Sub
'''''''''''''''''''

----------
Ange Ounis
----------

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le biais
d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le biais d'un
code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Merci JB ce code va également me servir mais je me suis mal exprimé :

Je souhaiterais pouvoir saisir le commentaire lorsque je sélectionne la
cellule (dans le cas présent, il est déjà déterminé) et si possible par un
double clic (dans le cas présent, le seul fait de sélectionner la cellule,
inscrit le commentaire).

Par ailleurs, est-il possible d'annuler le commentaire par un second
double-clic ?

A+ ?

JP





JB wrote:

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Merci.

Plutôt que d'avoir une cellule prédéfinie, je souhaiterais inscrire le
commentaire dans la cellule active, j'ai mis :

set ici = Range(ActiveCell(0, 0).Select

Ca ne marche pas !

A+ ?

JP

Bonsoir,

Essaie ceci :
Dans un module de feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$14" Then Commente
End Sub
Dans un module standard :
Sub Commente()
Set ici = ActiveSheet.Range("E5")
ici.ClearComments
With ici.AddComment
.Visible = False
.Text "Révisé le :" & Date
End With
End Sub

Serge

"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
eyr%23UlC4GHA.5092@TK2MSFTNGP04.phx.gbl...

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre : Private Sub Worksheet_SelectionChange(ByVal
Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Sur double-clic:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Merci JB ce code va également me servir mais je me suis mal exprimé :

Je souhaiterais pouvoir saisir le commentaire lorsque je sélectionne la
cellule (dans le cas présent, il est déjà déterminé) et si poss ible par un
double clic (dans le cas présent, le seul fait de sélectionner la cel lule,
inscrit le commentaire).

Par ailleurs, est-il possible d'annuler le commentaire par un second
double-clic ?

A+ ?

JP





JB wrote:

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Super ! Merci !

Je vais être exigeant, mais est-il possible lors du premier "double-clic",
d'avoir une inputbox qui s'ouvre pour y inscrire le commentaire (non
déterminé comme dans le cas présent) ?

A+ ?

JP

JB wrote:

Sur double-clic:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Merci JB ce code va également me servir mais je me suis mal exprimé :

Je souhaiterais pouvoir saisir le commentaire lorsque je sélectionne
la cellule (dans le cas présent, il est déjà déterminé) et si
possible par un double clic (dans le cas présent, le seul fait de
sélectionner la cellule, inscrit le commentaire).

Par ailleurs, est-il possible d'annuler le commentaire par un second
double-clic ?

A+ ?

JP





JB wrote:

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Si on ne fait pas de mise en forme sur le commentaire, il est peut
être + simple d'utiliser le clic/droit/Insérer un commentaire.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
reponse = InputBox("Commentaire?")
If reponse <> "" Then
.AddComment reponse & Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Super ! Merci !

Je vais être exigeant, mais est-il possible lors du premier "double-cli c",
d'avoir une inputbox qui s'ouvre pour y inscrire le commentaire (non
déterminé comme dans le cas présent) ?

A+ ?

JP

JB wrote:

Sur double-clic:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Merci JB ce code va également me servir mais je me suis mal exprim é :

Je souhaiterais pouvoir saisir le commentaire lorsque je sélectionne
la cellule (dans le cas présent, il est déjà déterminé) et si
possible par un double clic (dans le cas présent, le seul fait de
sélectionner la cellule, inscrit le commentaire).

Par ailleurs, est-il possible d'annuler le commentaire par un second
double-clic ?

A+ ?

JP





JB wrote:

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP

Bonjour JB,

C'est génial ! Merci beaucoup !

Je vais ajuster ton code à mes besoins et assurément cette méthode sera
infiniment plus aisée pour mes collaborateurs. Encore merci, c'est vraiment
parfait !

JP

wrote:

Si on ne fait pas de mise en forme sur le commentaire, il est peut
être + simple d'utiliser le clic/droit/Insérer un commentaire.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
reponse = InputBox("Commentaire?")
If reponse <> "" Then
.AddComment reponse & Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Super ! Merci !

Je vais être exigeant, mais est-il possible lors du premier
"double-clic", d'avoir une inputbox qui s'ouvre pour y inscrire le
commentaire (non déterminé comme dans le cas présent) ?

A+ ?

JP

JB wrote:

Sur double-clic:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub

JB

Merci JB ce code va également me servir mais je me suis mal
exprimé :

Je souhaiterais pouvoir saisir le commentaire lorsque je
sélectionne la cellule (dans le cas présent, il est déjà
déterminé) et si possible par un double clic (dans le cas présent,
le seul fait de sélectionner la cellule, inscrit le commentaire).

Par ailleurs, est-il possible d'annuler le commentaire par un
second double-clic ?

A+ ?

JP





JB wrote:

Bonjour,

Avec mise en forme du commentaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
With Target
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment "Crée le " & Now ' Création commentaire
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
End If
End Sub

JB

Bonjour,

Est-il possible de créer un "commentaire" dans une cellule par le
biais d'un code du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?

D'avance, merci pour vos réponses éventuelles.

JP