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
FxM
Le 03/01/2021 Í 07:54, Alf a écrit :
Bonjour Í tous, Comment, lorsqu'on ouvre Excel, avoir une autre Police de commentaires de cellule autre que Tahoma,9,Gras ? Merci pour votre aide et Meilleurs Vœux pour cette nouvelle année. Alf
Hello, Traditionnels meilleurs voeux Í toutes et tous pour une année meilleure que la précédente :o) Il y a fort, fort longtemps sur MPFE, un murmure parlait de mise en forme de commentaires. Peut-être t'en inspirer ? 'commentaire mis en forme avec quelques effets spéciaux Sub CommentaireSpecial() 'mpfe, AV & FS Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$ Range("C3").ClearComments Line1 = "Commentaire du " & Format(Date, "dd/mm/yyyy") & " :" & vbLf Line2 = "Caractéristiques :" & vbLf Line3 = "- titre en gras" & vbLf Line4 = "- corps maigre" & vbLf Line5 = "alignement : centré" Txt = Line1 + Line2 + Line3 + Line4 + Line5 With Cells(3, 3).AddComment(Txt).Shape.OLEFormat.Object.Font .Name = "Arial" 'règle police et taille .Size = 10 End With With Cells(3, 3).Comment.Shape .AutoShapeType = msoShapeExplosion1 .TextFrame.AutoSize = True 'ajuste taille auto .OLEFormat.Object.Interior.ColorIndex = 24 'motif .Line.ForeColor.SchemeColor = 10 'couleur bordure .Line.Weight = 3# ''style bordure double .Line.Style = msoLineThinThin 'épaisseur bordure With .TextFrame .Characters(1, Len(Line1)).Font.Bold = True .HorizontalAlignment = xlHAlignCenter Txt = Line1 + Line2 + Line3 + Line4 .Characters(Len(Txt) + 1, Len(Line5)).Font.Bold = True End With End With End Sub @+ FxM
Le 03/01/2021 Í 07:54, Alf a écrit :
Bonjour Í tous,
Comment, lorsqu'on ouvre Excel, avoir une autre Police de commentaires de cellule autre que Tahoma,9,Gras ?
Merci pour votre aide et Meilleurs Vœux pour cette nouvelle année.
Alf
Hello,
Traditionnels meilleurs voeux Í toutes et tous pour une année meilleure
que la précédente :o)
Il y a fort, fort longtemps sur MPFE, un murmure parlait de mise en
forme de commentaires. Peut-être t'en inspirer ?
'commentaire mis en forme avec quelques effets spéciaux
Sub CommentaireSpecial()
'mpfe, AV & FS
Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$
Range("C3").ClearComments
Line1 = "Commentaire du " & Format(Date, "dd/mm/yyyy") & " :" & vbLf
Line2 = "Caractéristiques :" & vbLf
Line3 = "- titre en gras" & vbLf
Line4 = "- corps maigre" & vbLf
Line5 = "alignement : centré"
Txt = Line1 + Line2 + Line3 + Line4 + Line5
With Cells(3, 3).AddComment(Txt).Shape.OLEFormat.Object.Font
.Name = "Arial" 'règle police et taille
.Size = 10
End With
With Cells(3, 3).Comment.Shape
.AutoShapeType = msoShapeExplosion1
.TextFrame.AutoSize = True 'ajuste taille auto
.OLEFormat.Object.Interior.ColorIndex = 24 'motif
.Line.ForeColor.SchemeColor = 10 'couleur bordure
.Line.Weight = 3# ''style bordure double
.Line.Style = msoLineThinThin 'épaisseur bordure
With .TextFrame
.Characters(1, Len(Line1)).Font.Bold = True
.HorizontalAlignment = xlHAlignCenter
Txt = Line1 + Line2 + Line3 + Line4
.Characters(Len(Txt) + 1, Len(Line5)).Font.Bold = True
End With
End With
End Sub
Bonjour Í tous, Comment, lorsqu'on ouvre Excel, avoir une autre Police de commentaires de cellule autre que Tahoma,9,Gras ? Merci pour votre aide et Meilleurs Vœux pour cette nouvelle année. Alf
Hello, Traditionnels meilleurs voeux Í toutes et tous pour une année meilleure que la précédente :o) Il y a fort, fort longtemps sur MPFE, un murmure parlait de mise en forme de commentaires. Peut-être t'en inspirer ? 'commentaire mis en forme avec quelques effets spéciaux Sub CommentaireSpecial() 'mpfe, AV & FS Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$ Range("C3").ClearComments Line1 = "Commentaire du " & Format(Date, "dd/mm/yyyy") & " :" & vbLf Line2 = "Caractéristiques :" & vbLf Line3 = "- titre en gras" & vbLf Line4 = "- corps maigre" & vbLf Line5 = "alignement : centré" Txt = Line1 + Line2 + Line3 + Line4 + Line5 With Cells(3, 3).AddComment(Txt).Shape.OLEFormat.Object.Font .Name = "Arial" 'règle police et taille .Size = 10 End With With Cells(3, 3).Comment.Shape .AutoShapeType = msoShapeExplosion1 .TextFrame.AutoSize = True 'ajuste taille auto .OLEFormat.Object.Interior.ColorIndex = 24 'motif .Line.ForeColor.SchemeColor = 10 'couleur bordure .Line.Weight = 3# ''style bordure double .Line.Style = msoLineThinThin 'épaisseur bordure With .TextFrame .Characters(1, Len(Line1)).Font.Bold = True .HorizontalAlignment = xlHAlignCenter Txt = Line1 + Line2 + Line3 + Line4 .Characters(Len(Txt) + 1, Len(Line5)).Font.Bold = True End With End With End Sub @+ FxM
