If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???
If Target.Count = 1 Then
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.
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???
If Target.Count = 1 Then
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.
If (Target.Row > 7 And Target.Row < 202) And Target.Column = 9 <Then
ou ?And???
If Target.Count = 1 Then
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.
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.
lStephBonsoir,
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,
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,
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.
lStephBonsoir,
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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
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" a écrit dans le message de news:
%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.
lStephBonsoir,
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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
...fonctionne comme prévu selon les cas de target
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
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" a écrit dans le message de news:
uZL6$...fonctionne comme prévu selon les cas de target
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
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.
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" a écrit dans le message de news:
uZL6$...fonctionne comme prévu selon les cas de target
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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" a écrit dans le message de news:
uZL6$...fonctionne comme prévu selon les cas de target
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.
;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" a écrit dans le message de news:
uZL6$...fonctionne comme prévu selon les cas de target
lStephOups ! 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" a écrit dans le message de news:... 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
@+
lStephBonsoir 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" a écrit dans le message de news:
%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.
lStephBonsoir,
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.