Target ...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun effet
avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun effet
avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun
effet avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

Oups ! Moi qui ne voulais faire court ;-(

Tout est là (et je commence à deviner que le début "parasite" peut-être la
suite ...) :

----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

ActiveSheet.Unprotect Password:="travail" 'ajouté le 16/03/07

If (Target.Row > 7 And Target.Row < 202) And Target.Column < 14 Then
If Target.Column = 11 Then 'correspond à la colonne "K" (CLEAR)
Target.Offset(0, 0).ClearContents
'target.Offset(0, 0).ClearComments
Target.Offset(0, -1).ClearContents
Target.Offset(0, -1).ClearComments
Target.Offset(0, -1).Hyperlinks.Delete
Target.Offset(0, -1).Font.Name = "Arial"
Target.Offset(0, -1).Font.Size = 9
Target.Offset(0, -1).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -1).Font.ColorIndex = xlAutomatic

Target.Offset(0, -2).ClearContents
Target.Offset(0, -2).ClearComments
Target.Offset(0, -2).Hyperlinks.Delete
Target.Offset(0, -2).Font.Name = "Arial"
Target.Offset(0, -2).Font.Size = 13
Target.Offset(0, -2).Font.Italic = False
Target.Offset(0, -2).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -2).Font.ColorIndex = xlAutomatic
Target.Offset(0, -2).Interior.ColorIndex = xlNone

Target.Offset(0, -3).ClearContents
'target.Offset(0, -3).ClearComments

Target.Offset(0, -4).ClearContents
Target.Offset(0, -4).ClearComments

Target.Offset(0, -7).Value = ""

Target.Offset(0, -8).Value = ""
Target.Offset(0, -8).Font.Italic = False
Target.Offset(0, -8).Interior.ColorIndex = xlNone
End If
End If
Cancel = True

'---------- ajout -------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub
------------------------------------------------------------------

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OAaE04NaHHA.4888@TK2MSFTNGP06.phx.gbl...

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun effet
avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

...fonctionne comme prévu selon les cas de target

lSteph

Oups ! Moi qui ne voulais faire court ;-(

Tout est là (et je commence à deviner que le début "parasite" peut-être
la suite ...) :

----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

ActiveSheet.Unprotect Password:="travail" 'ajouté le 16/03/07

If (Target.Row > 7 And Target.Row < 202) And Target.Column < 14 Then
If Target.Column = 11 Then 'correspond à la colonne "K" (CLEAR)
Target.Offset(0, 0).ClearContents
'target.Offset(0, 0).ClearComments
Target.Offset(0, -1).ClearContents
Target.Offset(0, -1).ClearComments
Target.Offset(0, -1).Hyperlinks.Delete
Target.Offset(0, -1).Font.Name = "Arial"
Target.Offset(0, -1).Font.Size = 9
Target.Offset(0, -1).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -1).Font.ColorIndex = xlAutomatic

Target.Offset(0, -2).ClearContents
Target.Offset(0, -2).ClearComments
Target.Offset(0, -2).Hyperlinks.Delete
Target.Offset(0, -2).Font.Name = "Arial"
Target.Offset(0, -2).Font.Size = 13
Target.Offset(0, -2).Font.Italic = False
Target.Offset(0, -2).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -2).Font.ColorIndex = xlAutomatic
Target.Offset(0, -2).Interior.ColorIndex = xlNone

Target.Offset(0, -3).ClearContents
'target.Offset(0, -3).ClearComments

Target.Offset(0, -4).ClearContents
Target.Offset(0, -4).ClearComments

Target.Offset(0, -7).Value = ""

Target.Offset(0, -8).Value = ""
Target.Offset(0, -8).Font.Italic = False
Target.Offset(0, -8).Interior.ColorIndex = xlNone
End If
End If
Cancel = True

'---------- ajout -------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub
------------------------------------------------------------------

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OAaE04NaHHA.4888@TK2MSFTNGP06.phx.gbl...

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun
effet avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

A quoi sert alors le : "... And Target.Column = 9" ?

Pour moi, toute la condition :
"If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then ..."
sert à limiter la portée du double-clic !
Ce que je souhaite c'est que le clique ne crée un commentaire que s'il est
effectué sur la colonne "I" (de la ligne 8 à 201).
Dans le présent code (procédure précédente à celle du commentaire), il
serait dangereux que le double clic puisse être effectué sur des lignes qui
comportent des formules et ainsi les effacer par inadvertance).

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZL6$LOaHHA.1400@TK2MSFTNGP06.phx.gbl...

...fonctionne comme prévu selon les cas de target

lSteph

Oups ! Moi qui ne voulais faire court ;-(

Tout est là (et je commence à deviner que le début "parasite" peut-être
la suite ...) :

----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

ActiveSheet.Unprotect Password:="travail" 'ajouté le 16/03/07

If (Target.Row > 7 And Target.Row < 202) And Target.Column < 14 Then
If Target.Column = 11 Then 'correspond à la colonne "K" (CLEAR)
Target.Offset(0, 0).ClearContents
'target.Offset(0, 0).ClearComments
Target.Offset(0, -1).ClearContents
Target.Offset(0, -1).ClearComments
Target.Offset(0, -1).Hyperlinks.Delete
Target.Offset(0, -1).Font.Name = "Arial"
Target.Offset(0, -1).Font.Size = 9
Target.Offset(0, -1).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -1).Font.ColorIndex = xlAutomatic

Target.Offset(0, -2).ClearContents
Target.Offset(0, -2).ClearComments
Target.Offset(0, -2).Hyperlinks.Delete
Target.Offset(0, -2).Font.Name = "Arial"
Target.Offset(0, -2).Font.Size = 13
Target.Offset(0, -2).Font.Italic = False
Target.Offset(0, -2).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -2).Font.ColorIndex = xlAutomatic
Target.Offset(0, -2).Interior.ColorIndex = xlNone

Target.Offset(0, -3).ClearContents
'target.Offset(0, -3).ClearComments

Target.Offset(0, -4).ClearContents
Target.Offset(0, -4).ClearComments

Target.Offset(0, -7).Value = ""

Target.Offset(0, -8).Value = ""
Target.Offset(0, -8).Font.Italic = False
Target.Offset(0, -8).Interior.ColorIndex = xlNone
End If
End If
Cancel = True

'---------- ajout -------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub
------------------------------------------------------------------

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OAaE04NaHHA.4888@TK2MSFTNGP06.phx.gbl...

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun
effet avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

;o) alors je confirme à nouveau:
Lorsque j'execute ton code c'est bien ce qui se produit.

Ce que je souhaite c'est que le clique ne crée un commentaire que s'il
est effectué sur la colonne "I" (de la ligne 8 à 201).

A quoi sert alors le : "... And Target.Column = 9" ?

Pour moi, toute la condition :
"If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then
..." sert à limiter la portée du double-clic !
Ce que je souhaite c'est que le clique ne crée un commentaire que s'il
est effectué sur la colonne "I" (de la ligne 8 à 201).
Dans le présent code (procédure précédente à celle du commentaire), il
serait dangereux que le double clic puisse être effectué sur des lignes
qui comportent des formules et ainsi les effacer par inadvertance).

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZL6$LOaHHA.1400@TK2MSFTNGP06.phx.gbl...

...fonctionne comme prévu selon les cas de target

lSteph

Oups ! Moi qui ne voulais faire court ;-(

Tout est là (et je commence à deviner que le début "parasite"
peut-être la suite ...) :

----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)

ActiveSheet.Unprotect Password:="travail" 'ajouté le 16/03/07

If (Target.Row > 7 And Target.Row < 202) And Target.Column < 14 Then
If Target.Column = 11 Then 'correspond à la colonne "K" (CLEAR)
Target.Offset(0, 0).ClearContents
'target.Offset(0, 0).ClearComments
Target.Offset(0, -1).ClearContents
Target.Offset(0, -1).ClearComments
Target.Offset(0, -1).Hyperlinks.Delete
Target.Offset(0, -1).Font.Name = "Arial"
Target.Offset(0, -1).Font.Size = 9
Target.Offset(0, -1).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -1).Font.ColorIndex = xlAutomatic

Target.Offset(0, -2).ClearContents
Target.Offset(0, -2).ClearComments
Target.Offset(0, -2).Hyperlinks.Delete
Target.Offset(0, -2).Font.Name = "Arial"
Target.Offset(0, -2).Font.Size = 13
Target.Offset(0, -2).Font.Italic = False
Target.Offset(0, -2).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -2).Font.ColorIndex = xlAutomatic
Target.Offset(0, -2).Interior.ColorIndex = xlNone

Target.Offset(0, -3).ClearContents
'target.Offset(0, -3).ClearComments

Target.Offset(0, -4).ClearContents
Target.Offset(0, -4).ClearComments

Target.Offset(0, -7).Value = ""

Target.Offset(0, -8).Value = ""
Target.Offset(0, -8).Font.Italic = False
Target.Offset(0, -8).Interior.ColorIndex = xlNone
End If
End If
Cancel = True

'---------- ajout -------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub
------------------------------------------------------------------

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OAaE04NaHHA.4888@TK2MSFTNGP06.phx.gbl...

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9
<Then

ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun
effet avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.

Bonjour,
Sur le coup, je pensais que tu blaguais ... puis je refait l'expérience et
il se trouve que tu avais (toujours) raison ! J'ai donc cru un moment que
j'avais perdu la boule !! Et je viens de me rendre compte, qu'en fait, si la
cellule active se trouve dans la colonne "I" (là où peuvent être écrit les
commentaires), et qu'on fait un double-clic sur une zone progégée (cellules
verrouillées) et bien une fenêtre s'ouvre pour proposer le commentaire ! Je
n'avais donc pas (complétement) rêvé ;-). C'est étonnant que le double-clic
sur une cellule verrouillée réponde !

Entre temps, je viens de peaufiner mon appli et ça commence à ressembler à
qqch (au vu de mes modestes ambitions ;-) ). J'ai protégé le double-clic de
l'effacement accidentel avec un msgbox, etc, etc. Reste à mettre tout ça
dans des mains "innocentes" pour tester la chose !!

Merci encore pour ton aide précieuse.

Peut-être à très bientôt,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%238SKueOaHHA.4552@TK2MSFTNGP05.phx.gbl...

;o) alors je confirme à nouveau:
Lorsque j'execute ton code c'est bien ce qui se produit.

Ce que je souhaite c'est que le clique ne crée un commentaire que s'il
est effectué sur la colonne "I" (de la ligne 8 à 201).

A quoi sert alors le : "... And Target.Column = 9" ?

Pour moi, toute la condition :
"If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then ..."
sert à limiter la portée du double-clic !
Ce que je souhaite c'est que le clique ne crée un commentaire que s'il
est effectué sur la colonne "I" (de la ligne 8 à 201).
Dans le présent code (procédure précédente à celle du commentaire), il
serait dangereux que le double clic puisse être effectué sur des lignes
qui comportent des formules et ainsi les effacer par inadvertance).

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZL6$LOaHHA.1400@TK2MSFTNGP06.phx.gbl...

...fonctionne comme prévu selon les cas de target

lSteph

Oups ! Moi qui ne voulais faire court ;-(

Tout est là (et je commence à deviner que le début "parasite" peut-être
la suite ...) :

----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)

ActiveSheet.Unprotect Password:="travail" 'ajouté le 16/03/07

If (Target.Row > 7 And Target.Row < 202) And Target.Column < 14 Then
If Target.Column = 11 Then 'correspond à la colonne "K"
(CLEAR)
Target.Offset(0, 0).ClearContents
'target.Offset(0, 0).ClearComments
Target.Offset(0, -1).ClearContents
Target.Offset(0, -1).ClearComments
Target.Offset(0, -1).Hyperlinks.Delete
Target.Offset(0, -1).Font.Name = "Arial"
Target.Offset(0, -1).Font.Size = 9
Target.Offset(0, -1).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -1).Font.ColorIndex = xlAutomatic

Target.Offset(0, -2).ClearContents
Target.Offset(0, -2).ClearComments
Target.Offset(0, -2).Hyperlinks.Delete
Target.Offset(0, -2).Font.Name = "Arial"
Target.Offset(0, -2).Font.Size = 13
Target.Offset(0, -2).Font.Italic = False
Target.Offset(0, -2).Font.Underline = xlUnderlineStyleNone
Target.Offset(0, -2).Font.ColorIndex = xlAutomatic
Target.Offset(0, -2).Interior.ColorIndex = xlNone

Target.Offset(0, -3).ClearContents
'target.Offset(0, -3).ClearComments

Target.Offset(0, -4).ClearContents
Target.Offset(0, -4).ClearComments

Target.Offset(0, -7).Value = ""

Target.Offset(0, -8).Value = ""
Target.Offset(0, -8).Font.Italic = False
Target.Offset(0, -8).Interior.ColorIndex = xlNone
End If
End If
Cancel = True

'---------- ajout -------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub
------------------------------------------------------------------

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OAaE04NaHHA.4888@TK2MSFTNGP06.phx.gbl...

... toujours pas complet :?
(peut être interaction avec autre chose)
sinon
le début serait donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

chez moi ton code ne se déclanche effectivement que si
target est en i et ligne entre 7 et 202

@+

lSteph

Bonsoir LSteph,

Voici le code complet ;-) :

--------------------------
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 Then

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 = 10
.FontStyle = "Normal"
.ColorIndex = 5 'bleu
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
Selection.Interior.ColorIndex = 34 '(jaune)
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
End If
Cancel = True

ActiveSheet.Protect Password:="travail", DrawingObjects:=True,
Contents:=True 'ajouté le 16/03/07 à ajuster
'--------- fin ajout ------------
End Sub

----------------------------------------------

Bien à toi,

JP

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23BCGsYNaHHA.808@TK2MSFTNGP04.phx.gbl...

Bonsoir,
Ce code est incomplet, même si on y peut entrevoir déjà un souci
cela
n'est pas suffisant.

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9
<Then

ou ?And???

If Target.Count = 1 Then

Cordialement.

lSteph

Bonsoir,

Pour moi, tout clic hors de la colonne "I" ne devrait avoir aucun
effet avec le code suivant :

If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9

<<<<Then ? And???

If Target.Count = 1 Then
With Target
If .NoteText = "" Then (etc.)

Pourtant, qq soit la colonne cliquée, j'obtiens un commentaire !
(même si je ne garde que "If Target.Column = 9")

Merci d'avance pour votre aide.