Target ...

Le
j-pascal
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
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.

--
Cordialement @+
JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4325651
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.



j-pascal
Le #4325611
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" %
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.





LSteph
Le #4325561
... 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" %
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.








j-pascal
Le #4325531
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"
... 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" %
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.










LSteph
Le #4325501
...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"
... 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" %
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.













j-pascal
Le #4325481
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" uZL6$
...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"
... 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" %
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.















LSteph
Le #4325461
;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" uZL6$
...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"
... 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" %
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.


















j-pascal
Le #4324931
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" %
;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" uZL6$
...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"
... 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" %
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.




















Publicité
Poster une réponse
Anonyme