La Vouivre
XLDnaute Occasionnel
Bonjour amis du forum
Je suis parti sur une usine à gaz
Je cherche à faire automatiquement des macros pour faire des commentaires
A partir d’un Userform que l’on renseigne au max je voudrais crée une macro pour faire les commentaires de cellule
D’une macro « mère », modifiable depuis l’Userform refaire une nouvelle macro avec une personnalisation à la carte
Cette macro fonctionne très bien , on peut s’en servir de macro mère
L’origine en est ici
https://www.excel-downloads.com/thr...lle-caractere-couleur-fond-mais-pas-fo.98918/
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wks As Worksheet, Cmt As Comment
For Each Wks In Worksheets
For Each Cmt In Wks.Comments
'pour ajuster automatiquement l'objet Ole à la taille du texte
Cmt.Shape.OLEFormat.Object.AutoSize = True
'pour changer la couleur de la police
Cmt.Shape.TextFrame.Characters(Pos, Len(LaChaine)).Font.ColorIndex = 3 'rouge
With Cmt.Shape.OLEFormat.Object.Font
'pour changer la police
.Name = "Arial"
'pour changer le style "Italique";"Gras";"normal";"Gras Italique"
.FontStyle = "Gras"
'pour changer la taille
.Size = 12
'pour barré le texte
.Strikethrough = False
'pour mettre en exposant le texte
.Superscript = False
'pour mettre en indice le texte
.Subscript = False
'pour............
.OutlineFont = False
'pour...............
.Shadow = False
'pour ne pas souligner = xlUnderlineStyleNone
'pour souligner en simple = xlUnderlineStyleSingle
'pour souligner en double = xlUnderlineStyleDouble
.Underline = xlUnderlineStyleNone
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 'index de la couleur de fond
With Cmt
.Visible = False
'pour suprimer une ligne de code la mettre en commentaire avec en tête le simbole " '"
'pour changer la forme
.Shape.AutoShapeType = msoShapeParallelogram
'pour faire une rotation horizontale de 90° au dessin
'.Shape.Flip msoFlipHorizontal
'pour changer la couleur de fond du dessin
.Shape.Fill.ForeColor.SchemeColor = 13
'pour ajusterl'épaisseurdu dessin mini = 0.0177 // maxi = 0.5 // moyenne = 0.1505
.Shape.Adjustments.Item(1) = 0.3275
'pour changer type d'ombre
.Shape.Shadow.Type = msoShadow12
'pour changer la couleur de l'ombre
.Shape.Shadow.ForeColor.SchemeColor = 14
'pour aficher ou non l'ombre ( msoFalse = faux / msoTrue = vrai )
.Shape.Shadow.Visible = msoTrue
'pour changer les paramètre 3D de l'ombre
.Shape.ThreeD.Visible = msoFalse
End With
Next Cmt
Next Wks
End Sub
Le fichier joint donne les explications voulues pour finir mon usine à commentaire
Je suis parti sur une usine à gaz
Je cherche à faire automatiquement des macros pour faire des commentaires
A partir d’un Userform que l’on renseigne au max je voudrais crée une macro pour faire les commentaires de cellule
D’une macro « mère », modifiable depuis l’Userform refaire une nouvelle macro avec une personnalisation à la carte
Cette macro fonctionne très bien , on peut s’en servir de macro mère
L’origine en est ici
https://www.excel-downloads.com/thr...lle-caractere-couleur-fond-mais-pas-fo.98918/
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wks As Worksheet, Cmt As Comment
For Each Wks In Worksheets
For Each Cmt In Wks.Comments
'pour ajuster automatiquement l'objet Ole à la taille du texte
Cmt.Shape.OLEFormat.Object.AutoSize = True
'pour changer la couleur de la police
Cmt.Shape.TextFrame.Characters(Pos, Len(LaChaine)).Font.ColorIndex = 3 'rouge
With Cmt.Shape.OLEFormat.Object.Font
'pour changer la police
.Name = "Arial"
'pour changer le style "Italique";"Gras";"normal";"Gras Italique"
.FontStyle = "Gras"
'pour changer la taille
.Size = 12
'pour barré le texte
.Strikethrough = False
'pour mettre en exposant le texte
.Superscript = False
'pour mettre en indice le texte
.Subscript = False
'pour............
.OutlineFont = False
'pour...............
.Shadow = False
'pour ne pas souligner = xlUnderlineStyleNone
'pour souligner en simple = xlUnderlineStyleSingle
'pour souligner en double = xlUnderlineStyleDouble
.Underline = xlUnderlineStyleNone
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 'index de la couleur de fond
With Cmt
.Visible = False
'pour suprimer une ligne de code la mettre en commentaire avec en tête le simbole " '"
'pour changer la forme
.Shape.AutoShapeType = msoShapeParallelogram
'pour faire une rotation horizontale de 90° au dessin
'.Shape.Flip msoFlipHorizontal
'pour changer la couleur de fond du dessin
.Shape.Fill.ForeColor.SchemeColor = 13
'pour ajusterl'épaisseurdu dessin mini = 0.0177 // maxi = 0.5 // moyenne = 0.1505
.Shape.Adjustments.Item(1) = 0.3275
'pour changer type d'ombre
.Shape.Shadow.Type = msoShadow12
'pour changer la couleur de l'ombre
.Shape.Shadow.ForeColor.SchemeColor = 14
'pour aficher ou non l'ombre ( msoFalse = faux / msoTrue = vrai )
.Shape.Shadow.Visible = msoTrue
'pour changer les paramètre 3D de l'ombre
.Shape.ThreeD.Visible = msoFalse
End With
Next Cmt
Next Wks
End Sub
Le fichier joint donne les explications voulues pour finir mon usine à commentaire
