Commentaires

5 réponses

Tibert

31/10/2009 à 16:26

Bonjour =E0 tous ;

J'ai une macro pour ins=E9rer un commentaires qui fonctionne bien, mais
serait il possible d'ajouter dans cette macro pour la cr=E9ation du
commentaires soit d'un format double de ceux lui actuel et la police
arial couleur bleu (5)

Sub InsertionComment()
' Code pour ins=E9rer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell =3D Application.InputBox("Cliquez sur une cellule",
Default:=3DActiveCell.Address, Type:=3D8)
MyCmt =3D InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible =3D False
.Text Text:=3DMyCmt
End With
End With
End Sub

Merci =E0 vous
Bonne apr=E9s midi

5 réponses

31/10/2009 à 17:10

Bonjour,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#Creation

JB

On 31 oct, 16:26, Tibert wrote:

Bonjour à tous ;

J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
serait il possible d'ajouter dans cette macro pour la création du
commentaires soit d'un format double de ceux lui actuel et la police
arial couleur bleu (5)

Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule",
Default:�tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End Sub

Merci à vous
Bonne aprés midi

Tibert

31/10/2009 à 19:02

Bonsoir JB
et merci pour ta réponse
ton lien ma aidé pour mettre la police, la taillle de la police, la
forme du commentaires en recttangle,
mais je n'arrive pas à mettre la couleur de la police en (5)

sais pas !
alors si tu as une solution
voilà mon nouveau code modifier
*************************************************
Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule",
Default:�tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
.Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
.Comment.Shape.OLEFormat.Object.Font.Size = 11
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Width = 220
.Comment.Shape.Height = 100
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End Sub
**********************************************

Bonne soirée

On 31 oct, 17:10, JB wrote:

Bonjour,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#Creation

JB

On 31 oct, 16:26, Tibert wrote:

> Bonjour à tous ;

> J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
> serait il possible d'ajouter dans cette macro pour la création du
> commentaires soit d'un format double de ceux lui actuel et la police
> arial couleur bleu (5)

> Sub InsertionComment()
> ' Code pour insérer un commentaire
> ActiveSheet.Unprotect
> Dim MyCmt As String
> Dim LaCell As Range
> Set LaCell = Application.InputBox("Cliquez sur une cellule",
> Default:�tiveCell.Address, Type:=8)
> MyCmt = InputBox("Inscrivez votre commentaire")
> On Error Resume Next
> With LaCell
> .AddComment
> With .Comment
> .Visible = False
> .Text Text:=MyCmt
> End With
> End With
> End Sub

> Merci à vous
> Bonne aprés midi- Masquer le texte des messages précédents -

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

Bonsoir JB
et merci pour ta réponse
ton lien ma aidé pour mettre la police, la taillle de la police, la
forme du commentaires en recttangle,
mais je n'arrive pas à mettre la couleur de la police en (5)

sais pas !
alors si tu as une solution
voilà mon nouveau code modifier
*************************************************
Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule",
Default:=ActiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
.Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
.Comment.Shape.OLEFormat.Object.Font.Size = 11
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Width = 220
.Comment.Shape.Height = 100
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End Sub
**********************************************

Bonne soirée

On 31 oct, 17:10, JB <boisgont...@hotmail.com> wrote:

Bonjour,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#Creation

JB

On 31 oct, 16:26, Tibert <syle...@hotmail.fr> wrote:

> Bonjour à tous ;

> J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
> serait il possible d'ajouter dans cette macro pour la création du
> commentaires soit d'un format double de ceux lui actuel et la police
> arial couleur bleu (5)

> Sub InsertionComment()
> ' Code pour insérer un commentaire
> ActiveSheet.Unprotect
> Dim MyCmt As String
> Dim LaCell As Range
> Set LaCell = Application.InputBox("Cliquez sur une cellule",
> Default:=ActiveCell.Address, Type:=8)
> MyCmt = InputBox("Inscrivez votre commentaire")
> On Error Resume Next
> With LaCell
> .AddComment
> With .Comment
> .Visible = False
> .Text Text:=MyCmt
> End With
> End With
> End Sub

> Merci à vous
> Bonne aprés midi- Masquer le texte des messages précédents -

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

Tibert

31/10/2009 à 19:07

Ouf !
c'est bon je viens de trouver pour la police
merci !
bonne soirée

On 31 oct, 17:10, JB wrote:

Bonjour,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#Creation

JB

On 31 oct, 16:26, Tibert wrote:

> Bonjour à tous ;

> J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
> serait il possible d'ajouter dans cette macro pour la création du
> commentaires soit d'un format double de ceux lui actuel et la police
> arial couleur bleu (5)

> Sub InsertionComment()
> ' Code pour insérer un commentaire
> ActiveSheet.Unprotect
> Dim MyCmt As String
> Dim LaCell As Range
> Set LaCell = Application.InputBox("Cliquez sur une cellule",
> Default:�tiveCell.Address, Type:=8)
> MyCmt = InputBox("Inscrivez votre commentaire")
> On Error Resume Next
> With LaCell
> .AddComment
> With .Comment
> .Visible = False
> .Text Text:=MyCmt
> End With
> End With
> End Sub

> Merci à vous
> Bonne aprés midi- Masquer le texte des messages précédents -

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

Philippe.R

31/10/2009 à 19:08

Bonsoir,

Tu devrais arriver à un truc dans ce genre :

Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule", _
Default:¬tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
.Shape.OLEFormat.Object.Font.Name = "Arial"
.Shape.OLEFormat.Object.Font.Size = 16
.Shape.OLEFormat.Object.Font.Color = vbBlue
End With
End With
End Sub

--
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
"Tibert" a écrit dans le message de
news:
Bonjour à tous ;

J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
serait il possible d'ajouter dans cette macro pour la création du
commentaires soit d'un format double de ceux lui actuel et la police
arial couleur bleu (5)

Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule",
Default:¬tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End Sub

Merci à vous
Bonne aprés midi

Tibert

01/11/2009 à 11:58

Ok Philippe. R

c'est parfait
merci et bonne journée

On 31 oct, 19:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:

Bonsoir,

Tu devrais arriver à un truc dans ce genre :

Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule", _
Default:�tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
.Shape.OLEFormat.Object.Font.Name = "Arial"
.Shape.OLEFormat.Object.Font.Size = 16
.Shape.OLEFormat.Object.Font.Color = vbBlue
End With
End With
End Sub

--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://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
"Tibert" a écrit dans le message denews:a9ce4905-a
Bonjour à tous ;

J'ai une macro pour insérer un commentaires qui fonctionne bien, mais
serait il possible d'ajouter dans cette macro pour la création du
commentaires soit d'un format double de ceux lui actuel et la police
arial couleur bleu (5)

Sub InsertionComment()
' Code pour insérer un commentaire
ActiveSheet.Unprotect
Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox("Cliquez sur une cellule",
Default:�tiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With LaCell
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End Sub

Merci à vous
Bonne aprés midi

Commentaires

5 réponses

Veuillez sélectionner un problème