Commentaires

En effet
Je ne sais pourquoi mais chez moi ca ne fonctionnait pas
je viens de modifier mon commentaire j'avais une phrase sur 2 lignes j'ai
intercalé une ligne blanche entre les 2 puis je l'ai effacé et je n'est plus
le pb.
Bref Grd Grd Merci
P.S Je viens de comprendre la <> entre If Target.Column = 9 et If
Target.Column = 3
La honte d'avoir posé une question pareil ca te montre mon petit niveau
Mais je suis assez fier du prog que je viens d'elaboré en grd partie grace a
toi par tes reponse de ces derniers jours

A bientot
--
IMER09


"JB" wrote:

Chez moi, j'obtiens bien la même taille de commentaire J'ai des saurs
de ligne

http://cjoint.com/?dCsLFfo0fz

JB

On 28 mar, 18:30, IMER09 <t...@discussions.microso.com> wrote:

Mon commentaire d'origine a une certaine grandeur(plutot vertical), et quand
je selec la cellule de destination le commentaire apparait ds une forme
beaucoup plus alonger horizontalement
La taille de la fenetre commentaire est bcp plus longue ds la cellule de
destination

Pourquoi avoir remplace: If Target.Column = 9 Then par If Target.Column = 3
Then
quand je remplace 9 par 3 ca ne fonctionne plus

Merci

--
IMER09



"JB" wrote:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex

Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

Pour la taille du commentaire aurais tu une piste ?
Je ne comprends pas

JB

On 28 mar, 17:35, IMER09 <t...@discussions.microso.com> wrote:

Merci une fois de plus

Pour la taille des mots:Font.Size
Pour la couleur :Font.Color
mais je perd en rapidité une fois cela ajouté et la couleur n'est pas la
même !! ?

Pour la taille du commentaire aurais tu une piste (en fait je n'en doute
pas, j'ai un peut honte d'abuser)

Merci

--
IMER09

"JB" wrote:

http://cjoint.com/?dCq7MnLrpL

Ici seuls le gras et l'italique sont récupérés.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 16:35, IMER09 <t...@discussions.microso.com> wrote:

Merci JB
J'ai modifier le code quelque peu, je prefere afficher le commentaire de la
cellule A1 plutot que son contenu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Target.Address & Chr(34)
End If

Mon commentaire a plusieur ligne avec un format particulier
le format du commentaire n'est pas conservé
Comment puis je le conserver?

Merci
--
IMER09

"JB" wrote:

Version un seul commentaire. L'ancien est détruit.

http://cjoint.com/?dCpVxdEFZq

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 15:32, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub

JBhttp://boisgontierjacques.free.fr
On 28 mar, 15:17, IMER09 <t...@discussions.microso.com> wrote:

Bonjour à tous

Est il possible d'afficher un commentaire definit d'avance ou present ds une
cellule A1 par exemple, quand on selectionne une cellule dans la colonne I
par exemple
Afin d'eviter de coller un commentaire dans chaque cellule

Merci
--
IMER09- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Vachement mieux et bcp plus rapide
J' etais oblige de deverouiller ma feuille et j'en ai plus besoin
Merci
--
IMER09


"JB" wrote:

J'ai commis une erreur grossière:

http://cjoint.com/?dCsRs06dJE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
Range("A1").Copy
Target.PasteSpecial Paste:=xlPasteComments
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB


On 28 mar, 18:37, JB <boisgont...@hotmail.com> wrote:

Chez moi, j'obtiens bien la même taille de commentaire J'ai des saurs
de ligne

http://cjoint.com/?dCsLFfo0fz

JB

On 28 mar, 18:30, IMER09 <t...@discussions.microso.com> wrote:

Mon commentaire d'origine a une certaine grandeur(plutot vertical), et quand
je selec la cellule de destination le commentaire apparait ds une forme
beaucoup plus alonger horizontalement
La taille de la fenetre commentaire est bcp plus longue ds la cellule de
destination

Pourquoi avoir remplace: If Target.Column = 9 Then par If Target.Column = 3
Then
quand je remplace 9 par 3 ca ne fonctionne plus

Merci

--
IMER09

"JB" wrote:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex

Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

Pour la taille du commentaire aurais tu une piste ?
Je ne comprends pas

JB

On 28 mar, 17:35, IMER09 <t...@discussions.microso.com> wrote:

Merci une fois de plus

Pour la taille des mots:Font.Size
Pour la couleur :Font.Color
mais je perd en rapidité une fois cela ajouté et la couleur n'est pas la
même !! ?

Pour la taille du commentaire aurais tu une piste (en fait je n'en doute
pas, j'ai un peut honte d'abuser)

Merci

--
IMER09

"JB" wrote:

http://cjoint.com/?dCq7MnLrpL

Ici seuls le gras et l'italique sont récupérés.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 16:35, IMER09 <t...@discussions.microso.com> wrote:

Merci JB
J'ai modifier le code quelque peu, je prefere afficher le commentaire de la
cellule A1 plutot que son contenu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Target.Address & Chr(34)
End If

Mon commentaire a plusieur ligne avec un format particulier
le format du commentaire n'est pas conservé
Comment puis je le conserver?

Merci
--
IMER09

"JB" wrote:

Version un seul commentaire. L'ancien est détruit.

http://cjoint.com/?dCpVxdEFZq

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 15:32, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub

JBhttp://boisgontierjacques.free.fr
On 28 mar, 15:17, IMER09 <t...@discussions.microso.com> wrote:

Bonjour à tous

Est il possible d'afficher un commentaire definit d'avance ou present ds une
cellule A1 par exemple, quand on selectionne une cellule dans la colonne I
par exemple
Afin d'eviter de coller un commentaire dans chaque cellule

Merci
--
IMER09- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Je me suis permis de rajouter à la fin de ton code
Application.CutCopyMode = False

Merci
--
IMER09


"JB" wrote:

J'ai commis une erreur grossière:

http://cjoint.com/?dCsRs06dJE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
Range("A1").Copy
Target.PasteSpecial Paste:=xlPasteComments
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB


On 28 mar, 18:37, JB <boisgont...@hotmail.com> wrote:

Chez moi, j'obtiens bien la même taille de commentaire J'ai des saurs
de ligne

http://cjoint.com/?dCsLFfo0fz

JB

On 28 mar, 18:30, IMER09 <t...@discussions.microso.com> wrote:

Mon commentaire d'origine a une certaine grandeur(plutot vertical), et quand
je selec la cellule de destination le commentaire apparait ds une forme
beaucoup plus alonger horizontalement
La taille de la fenetre commentaire est bcp plus longue ds la cellule de
destination

Pourquoi avoir remplace: If Target.Column = 9 Then par If Target.Column = 3
Then
quand je remplace 9 par 3 ca ne fonctionne plus

Merci

--
IMER09

"JB" wrote:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.ColorIndex

Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

Pour la taille du commentaire aurais tu une piste ?
Je ne comprends pas

JB

On 28 mar, 17:35, IMER09 <t...@discussions.microso.com> wrote:

Merci une fois de plus

Pour la taille des mots:Font.Size
Pour la couleur :Font.Color
mais je perd en rapidité une fois cela ajouté et la couleur n'est pas la
même !! ?

Pour la taille du commentaire aurais tu une piste (en fait je n'en doute
pas, j'ai un peut honte d'abuser)

Merci

--
IMER09

"JB" wrote:

http://cjoint.com/?dCq7MnLrpL

Ici seuls le gras et l'italique sont récupérés.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
For i = 1 To Len([A1].Comment.Text)
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Bold
Target.Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic = _
[A1].Comment.Shape.TextFrame.Characters(Start:=i,
Length:=1).Font.Italic
Next i
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 16:35, IMER09 <t...@discussions.microso.com> wrote:

Merci JB
J'ai modifier le code quelque peu, je prefere afficher le commentaire de la
cellule A1 plutot que son contenu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Comment.Text
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Target.Address & Chr(34)
End If

Mon commentaire a plusieur ligne avec un format particulier
le format du commentaire n'est pas conservé
Comment puis je le conserver?

Merci
--
IMER09

"JB" wrote:

Version un seul commentaire. L'ancien est détruit.

http://cjoint.com/?dCpVxdEFZq

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
On Error Resume Next
If [mémo] <> "" Then Range([mémo]).Comment.Delete
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Address & Chr(34)
End If
End Sub

JB

On 28 mar, 15:32, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=[A1].Value
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub

JBhttp://boisgontierjacques.free.fr
On 28 mar, 15:17, IMER09 <t...@discussions.microso.com> wrote:

Bonjour à tous

Est il possible d'afficher un commentaire definit d'avance ou present ds une
cellule A1 par exemple, quand on selectionne une cellule dans la colonne I
par exemple
Afin d'eviter de coller un commentaire dans chaque cellule

Merci
--
IMER09- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -