Savez vous s'il est possible d'afficher un commentaire à gauche de la
cellule ?
Lors de la création il est possible de le déplacer à gauche, mais dès
qu'il est validé, et lorsqu'on passe la souris sur la cellule, il
s'affiche de nouveau à droite.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour,
Un petit extrait de mes archives perso (2004) : "================================================" une solution de remplacement serait un faux commentaire (macro original de ChrisV)
Sub cloneCommentaire() Dim com As String Dim aSh As Worksheet Dim cloneC As Shape com = InputBox("Saisissez votre commentaire...", _ "Insérer un commentaire") If com <> "" Then On Error Resume Next With Selection.Validation .Add Type:=xlValidateInputOnly .InputTitle = "Faux commentaire :" .InputMessage = com End With Else: Exit Sub End If Application.ScreenUpdating = False Set aSh = ActiveSheet Set poZ = ActiveCell p1 = poZ.Top p2 = poZ.Left Set cloneC = aSh.Shapes.AddShape(msoShapeRightTriangle, _ p2, p1, 5#, 5#) With cloneC .IncrementRotation 90# .Fill.ForeColor.SchemeColor = 10 .Line.Visible = msoFalse End With End Sub 'ChrisV "==================================================" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "Bastan" a écrit dans le message de news:4bec4b4e$0$2989$
Bonjour,
Savez vous s'il est possible d'afficher un commentaire à gauche de la cellule ?
Lors de la création il est possible de le déplacer à gauche, mais dès qu'il est validé, et lorsqu'on passe la souris sur la cellule, il s'affiche de nouveau à droite.
Merci de votre aide :)
Bonjour,
Un petit extrait de mes archives perso (2004) :
"================================================"
une solution de remplacement serait un faux commentaire (macro original
de ChrisV)
Sub cloneCommentaire()
Dim com As String
Dim aSh As Worksheet
Dim cloneC As Shape
com = InputBox("Saisissez votre commentaire...", _
"Insérer un commentaire")
If com <> "" Then
On Error Resume Next
With Selection.Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Faux commentaire :"
.InputMessage = com
End With
Else: Exit Sub
End If
Application.ScreenUpdating = False
Set aSh = ActiveSheet
Set poZ = ActiveCell
p1 = poZ.Top
p2 = poZ.Left
Set cloneC = aSh.Shapes.AddShape(msoShapeRightTriangle, _
p2, p1, 5#, 5#)
With cloneC
.IncrementRotation 90#
.Fill.ForeColor.SchemeColor = 10
.Line.Visible = msoFalse
End With
End Sub 'ChrisV
"=================================================="
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Bastan" <bastan@free.fr> a écrit dans le message de
news:4bec4b4e$0$2989$ba4acef3@reader.news.orange.fr...
Bonjour,
Savez vous s'il est possible d'afficher un commentaire à gauche de la
cellule ?
Lors de la création il est possible de le déplacer à gauche, mais dès
qu'il est validé, et lorsqu'on passe la souris sur la cellule, il
s'affiche de nouveau à droite.
Un petit extrait de mes archives perso (2004) : "================================================" une solution de remplacement serait un faux commentaire (macro original de ChrisV)
Sub cloneCommentaire() Dim com As String Dim aSh As Worksheet Dim cloneC As Shape com = InputBox("Saisissez votre commentaire...", _ "Insérer un commentaire") If com <> "" Then On Error Resume Next With Selection.Validation .Add Type:=xlValidateInputOnly .InputTitle = "Faux commentaire :" .InputMessage = com End With Else: Exit Sub End If Application.ScreenUpdating = False Set aSh = ActiveSheet Set poZ = ActiveCell p1 = poZ.Top p2 = poZ.Left Set cloneC = aSh.Shapes.AddShape(msoShapeRightTriangle, _ p2, p1, 5#, 5#) With cloneC .IncrementRotation 90# .Fill.ForeColor.SchemeColor = 10 .Line.Visible = msoFalse End With End Sub 'ChrisV "==================================================" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "Bastan" a écrit dans le message de news:4bec4b4e$0$2989$
Bonjour,
Savez vous s'il est possible d'afficher un commentaire à gauche de la cellule ?
Lors de la création il est possible de le déplacer à gauche, mais dès qu'il est validé, et lorsqu'on passe la souris sur la cellule, il s'affiche de nouveau à droite.
Savez vous s'il est possible d'afficher un commentaire à gauche de la cellule ?
Lors de la création il est possible de le déplacer à gauche, mais d ès qu'il est validé, et lorsqu'on passe la souris sur la cellule, il s'affiche de nouveau à droite.
Savez vous s'il est possible d'afficher un commentaire à gauche de la
cellule ?
Lors de la création il est possible de le déplacer à gauche, mais d ès
qu'il est validé, et lorsqu'on passe la souris sur la cellule, il
s'affiche de nouveau à droite.
Savez vous s'il est possible d'afficher un commentaire à gauche de la cellule ?
Lors de la création il est possible de le déplacer à gauche, mais d ès qu'il est validé, et lorsqu'on passe la souris sur la cellule, il s'affiche de nouveau à droite.