Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel commentaires et shape

commentaires et shape

4 réponses
Avatar
RGI
Bonjour

est-il possible comme à une cellule d'ajouter un commentaire à une shape
(image)

si oui comment faire

merci de vos réponses

RGI
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
JB
Bonjour,

http://cjoint.com/?mvowbOFWEo

Fait apparaître un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape = Application.Caller & "commentaire"
ActiveSheet.Shapes(nomshape).Visible = Not
ActiveSheet.Shapes(nomshape).Visible
End Sub

JB

Bonjour

est-il possible comme à une cellule d'ajouter un commentaire à une sh ape
(image)

si oui comment faire

merci de vos réponses

RGI


Avatar
JB
Voir essai en PJ: http://cjoint.com/?mvvmAMjzHG

JB

merci de cette solution mais est-il possible de faire déclencher au
passage de la souris sur le shape ?

Bonjour,

http://cjoint.com/?mvowbOFWEo

Fait apparaître un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape = Application.Caller & "commentaire"
ActiveSheet.Shapes(nomshape).Visible = Not
ActiveSheet.Shapes(nomshape).Visible
End Sub

JB


Bonjour

est-il possible comme à une cellule d'ajouter un commentaire à une shape
(image)

si oui comment faire

merci de vos réponses

RGI






--------------090803080005050300080005
Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 1181

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content- Type">
</head>
<body bgcolor="#ffffff" text="#000000">
merci de cette solution mais est-il possible de faire d&eacute;clencher au
passage de la souris sur le shape ?<br>
<br>
JB a &eacute;crit&nbsp;:
<blockquote
cite=""
type="cite">
<pre wrap="">Bonjour,

<a class="moz-txt-link-freetext" href="http://cjoint.com/?mvowbOFWEo" >http://cjoint.com/?mvowbOFWEo</a>

Fait appara&icirc;tre un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape ActiveSheet.Shapes(nomshape).Visible ActiveSheet.Shapes(nomsha pe).Visible
End Sub

JB

</pre>
<blockquote type="cite">
<pre wrap="">Bonjour

est-il possible comme &agrave; une cellule d'ajouter un commentaire &agra ve; une shape
(image)

si oui comment faire

merci de vos r&eacute;ponses

RGI
</pre>
</blockquote>
<pre wrap=""><!---->
</pre>
</blockquote>
</body>
</html>

--------------090803080005050300080005--




Avatar
JB
http://cjoint.com/?mvwjqZzztV

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As
Long
Public Type POINT
x As Long
y As Long
End Type
Dim p As POINT
Dim boucle
Dim Ogauche, OHaut, EchX, EchY

Sub auto_open()
boucle = True
EchY = 1.3
EchX = 0.8
Do While boucle
OHaut = 140 - Cells(ActiveWindow.ScrollRow, 1).Top * EchY
Ogauche = 50 - Cells(ActiveWindow.ScrollColumn, 1).Left * EchX
ShapeP = "Image1"
OnMouseOver ShapeP
ShapeP = "Image2"
OnMouseOver ShapeP
DoEvents
Loop
End Sub

Sub OnMouseOver(ShapeP)
ShapeCmt = ShapeP & "commentaire"
GetCursorPos p
If (p.y - OHaut) / EchY > ActiveSheet.Shapes(ShapeP).Top And _
(p.y - OHaut) / EchY < ActiveSheet.Shapes(ShapeP).Top +
ActiveSheet.Shapes(ShapeP).Height And _
(p.x - Ogauche) / EchX > ActiveSheet.Shapes(ShapeP).Left And _
(p.x - Ogauche) * EchX < ActiveSheet.Shapes(ShapeP).Left +
ActiveSheet.Shapes(ShapeP).Width Then
ActiveSheet.Shapes(ShapeCmt).Visible = True
ActiveSheet.Shapes(ShapeCmt).Left =
ActiveSheet.Shapes(ShapeP).Left
ActiveSheet.Shapes(ShapeCmt).Width =
ActiveSheet.Shapes(ShapeP).Width
ActiveSheet.Shapes(ShapeCmt).Top = _
ActiveSheet.Shapes(ShapeP).Top +
ActiveSheet.Shapes(ShapeP).Height + 2
Else
ActiveSheet.Shapes(ShapeCmt).Visible = False
End If
End Sub

JB

merci de cette solution mais est-il possible de faire déclencher au
passage de la souris sur le shape ?

Bonjour,

http://cjoint.com/?mvowbOFWEo

Fait apparaître un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape = Application.Caller & "commentaire"
ActiveSheet.Shapes(nomshape).Visible = Not
ActiveSheet.Shapes(nomshape).Visible
End Sub

JB


Bonjour

est-il possible comme à une cellule d'ajouter un commentaire à une shape
(image)

si oui comment faire

merci de vos réponses

RGI






--------------090803080005050300080005
Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 1181

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content- Type">
</head>
<body bgcolor="#ffffff" text="#000000">
merci de cette solution mais est-il possible de faire d&eacute;clencher au
passage de la souris sur le shape ?<br>
<br>
JB a &eacute;crit&nbsp;:
<blockquote
cite=""
type="cite">
<pre wrap="">Bonjour,

<a class="moz-txt-link-freetext" href="http://cjoint.com/?mvowbOFWEo" >http://cjoint.com/?mvowbOFWEo</a>

Fait appara&icirc;tre un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape ActiveSheet.Shapes(nomshape).Visible ActiveSheet.Shapes(nomsha pe).Visible
End Sub

JB

</pre>
<blockquote type="cite">
<pre wrap="">Bonjour

est-il possible comme &agrave; une cellule d'ajouter un commentaire &agra ve; une shape
(image)

si oui comment faire

merci de vos r&eacute;ponses

RGI
</pre>
</blockquote>
<pre wrap=""><!---->
</pre>
</blockquote>
</body>
</html>

--------------090803080005050300080005--




Avatar
JB
Bonjour,

Sub afficheTout()
boucle = False
For Each s In ActiveSheet.Shapes
s.Visible = True
Next s
End Sub

http://cjoint.com/?mwlBc2lnYz

JB



Je modifie le commentaire comment SVP ?

Je tourne depuis un moment et je n'ai pas trouvé :-[

merci

RGI

http://cjoint.com/?mvwjqZzztV

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As
Long
Public Type POINT
x As Long
y As Long
End Type
Dim p As POINT
Dim boucle
Dim Ogauche, OHaut, EchX, EchY

Sub auto_open()
boucle = True
EchY = 1.3
EchX = 0.8
Do While boucle
OHaut = 140 - Cells(ActiveWindow.ScrollRow, 1).Top * EchY
Ogauche = 50 - Cells(ActiveWindow.ScrollColumn, 1).Left * EchX
ShapeP = "Image1"
OnMouseOver ShapeP
ShapeP = "Image2"
OnMouseOver ShapeP
DoEvents
Loop
End Sub

Sub OnMouseOver(ShapeP)
ShapeCmt = ShapeP & "commentaire"
GetCursorPos p
If (p.y - OHaut) / EchY > ActiveSheet.Shapes(ShapeP).Top And _
(p.y - OHaut) / EchY < ActiveSheet.Shapes(ShapeP).Top +
ActiveSheet.Shapes(ShapeP).Height And _
(p.x - Ogauche) / EchX > ActiveSheet.Shapes(ShapeP).Left And _
(p.x - Ogauche) * EchX < ActiveSheet.Shapes(ShapeP).Left +
ActiveSheet.Shapes(ShapeP).Width Then
ActiveSheet.Shapes(ShapeCmt).Visible = True
ActiveSheet.Shapes(ShapeCmt).Left =
ActiveSheet.Shapes(ShapeP).Left
ActiveSheet.Shapes(ShapeCmt).Width =
ActiveSheet.Shapes(ShapeP).Width
ActiveSheet.Shapes(ShapeCmt).Top = _
ActiveSheet.Shapes(ShapeP).Top +
ActiveSheet.Shapes(ShapeP).Height + 2
Else
ActiveSheet.Shapes(ShapeCmt).Visible = False
End If
End Sub

JB


merci de cette solution mais est-il possible de faire déclencher au
passage de la souris sur le shape ?


Bonjour,

http://cjoint.com/?mvowbOFWEo

Fait apparaître un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape = Application.Caller & "commentaire"
ActiveSheet.Shapes(nomshape).Visible = Not
ActiveSheet.Shapes(nomshape).Visible
End Sub

JB



Bonjour

est-il possible comme à une cellule d'ajouter un commentaire à u ne shape
(image)

si oui comment faire

merci de vos réponses

RGI




--------------090803080005050300080005

Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 1181

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Conte nt-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
merci de cette solution mais est-il possible de faire d&eacute;clenche r au
passage de la souris sur le shape ?<br>
<br>
JB a &eacute;crit&nbsp;:
<blockquote
cite=""
type="cite">
<pre wrap="">Bonjour,

<a class="moz-txt-link-freetext" href="http://cjoint.com/?mvowbOFW Eo">http://cjoint.com/?mvowbOFWEo</a>

Fait appara&icirc;tre un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape ActiveSheet.Shapes(nomshape).Visible ActiveSheet.Shapes(nom shape).Visible
End Sub

JB

</pre>
<blockquote type="cite">
<pre wrap="">Bonjour

est-il possible comme &agrave; une cellule d'ajouter un commentaire &a grave; une shape
(image)

si oui comment faire

merci de vos r&eacute;ponses

RGI
</pre>
</blockquote>
<pre wrap=""><!---->
</pre>
</blockquote>
</body>
</html>

--------------090803080005050300080005--






--------------050505030704050604000006
Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 4823

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content- Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Je modifie le commentaire comment SVP ?<br>
<br>
Je tourne depuis un moment et je n'ai pas trouv&eacute; <span
class="moz-smiley-s6"><span> :-[ </span></span><br>
<br>
merci<br>
<br>
RGI<br>
<br>
JB a &eacute;crit&nbsp;:
<blockquote
cite=""
type="cite">
<pre wrap=""><a class="moz-txt-link-freetext" href="http://cjoint .com/?mvwjqZzztV">http://cjoint.com/?mvwjqZzztV</a>

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As
Long
Public Type POINT
x As Long
y As Long
End Type
Dim p As POINT
Dim boucle
Dim Ogauche, OHaut, EchX, EchY

Sub auto_open()
boucle EchY EchX Do While boucle
OHaut Ogauche ShapeP OnMouseOver ShapeP
ShapeP OnMouseOver ShapeP
DoEvents
Loop
End Sub

Sub OnMouseOver(ShapeP)
ShapeCmt GetCursorPos p
If (p.y - OHaut) / EchY &gt; ActiveSheet.Shapes(ShapeP).Top And _
(p.y - OHaut) / EchY &lt; ActiveSheet.Shapes(ShapeP).Top +
ActiveSheet.Shapes(ShapeP).Height And _
(p.x - Ogauche) / EchX &gt; ActiveSheet.Shapes(ShapeP).Left And _
(p.x - Ogauche) * EchX &lt; ActiveSheet.Shapes(ShapeP).Left +
ActiveSheet.Shapes(ShapeP).Width Then
ActiveSheet.Shapes(ShapeCmt).Visible ActiveSheet.Shapes(Shape Cmt).Left ActiveSheet.Shapes(ShapeP).Left
ActiveSheet.Shapes(ShapeCmt).Width ActiveSheet.Shapes(ShapeP).Width
ActiveSheet.Shapes(ShapeCmt).Top ActiveSheet.Shapes(ShapeP).T op +
ActiveSheet.Shapes(ShapeP).Height + 2
Else
ActiveSheet.Shapes(ShapeCmt).Visible End If
End Sub

JB

</pre>
<blockquote type="cite">
<pre wrap="">merci de cette solution mais est-il possible de faire d&eacute;clencher au
passage de la souris sur le shape ?

</pre>
<blockquote type="cite">
<pre wrap="">Bonjour,

<a class="moz-txt-link-freetext" href="http://cjoint.com/?mvowbOFWEo" >http://cjoint.com/?mvowbOFWEo</a>

Fait appara&icirc;tre un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape ActiveSheet.Shapes(nomshape).Visible ActiveSheet.Shapes(nomsha pe).Visible
End Sub

JB


</pre>
<blockquote type="cite">
<pre wrap="">Bonjour

est-il possible comme &agrave; une cellule d'ajouter un commentaire &agra ve; une shape
(image)

si oui comment faire

merci de vos r&eacute;ponses

RGI

</pre>
</blockquote>
<pre wrap="">
</pre>
</blockquote>
<pre wrap="">--------------090803080005050300080005
Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 1181

&lt;!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"&gt;
&lt;html&gt;
&lt;head&gt;
&lt;meta content="text/html;charset=ISO-8859-1" http-equiv="Conte nt-Type"&gt;
&lt;/head&gt;
&lt;body bgcolor="#ffffff" text="#000000"&gt;
merci de cette solution mais est-il possible de faire d&amp;eacute;clench er au
passage de la souris sur le shape ?&lt;br&gt;
&lt;br&gt;
JB a &amp;eacute;crit&amp;nbsp;:
&lt;blockquote
cite=<a class="moz-txt-link-rfc2396E" href="mailto:mid1166707393.3 ">" 0cwy.googlegroups.com"</a>
type="cite"&gt;
&lt;pre wrap=""&gt;Bonjour,

&lt;a class="moz-txt-link-freetext" href=<a class="moz-txt-link-rfc 2396E" href="http://cjoint.com/?mvowbOFWEo">"http://cjoint.com/?mvowbOFWE o"</a>&gt;<a class="moz-txt-link-freetext" href="http://cjoint.com/?mvo wbOFWEo">http://cjoint.com/?mvowbOFWEo</a>&lt;/a&gt;

Fait appara&amp;icirc;tre un commentaire sur clic d'une image
le nom du shape commentaire est le nom de l'image+"Commentaire"

Sub commentaireShapes()
nomshape ActiveSheet.Shapes(nomshape).Visible ActiveSheet.Shapes(nomsha pe).Visible
End Sub

JB

&lt;/pre&gt;
&lt;blockquote type="cite"&gt;
&lt;pre wrap=""&gt;Bonjour

est-il possible comme &amp;agrave; une cellule d'ajouter un commentaire & amp;agrave; une shape
(image)

si oui comment faire

merci de vos r&amp;eacute;ponses

RGI
&lt;/pre&gt;
&lt;/blockquote&gt;
&lt;pre wrap=""&gt;&lt;!----&gt;
&lt;/pre&gt;
&lt;/blockquote&gt;
&lt;/body&gt;
&lt;/html&gt;

--------------090803080005050300080005--
</pre>
</blockquote>
<pre wrap=""><!---->
</pre>
</blockquote>
</body>
</html>

--------------050505030704050604000006--