Comment avoir un même format pour tout les commentaires d'une co lo
2 réponses
Prunélia
Bonjour
Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans
un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de
haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas
comment c'est arrivé, c'est un fichier partagé
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
Greg
Bonjour,
Qu'appelles-tu "commentaires d'une colonne"?
Greg
"Prunélia" a écrit dans le message de news:
Bonjour Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas comment c'est arrivé, c'est un fichier partagé
Merci de votre aide
Bonjour,
Qu'appelles-tu "commentaires d'une colonne"?
Greg
"Prunélia" <Prunlia@discussions.microsoft.com> a écrit dans le message de
news:5DA347FF-984D-4E33-A662-CD10F9191889@micregosoft.com...
Bonjour
Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans
un un format si petit, qu'ils sont illisibles (1 caractère de large par 2
de
haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais
pas
comment c'est arrivé, c'est un fichier partagé
Bonjour Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas comment c'est arrivé, c'est un fichier partagé
Merci de votre aide
MichDenis
Bonjour Prunélia,
Essaie ceci : Tu places tout dans un module standard :
Applique le même format à tous les commentaires de la colonne A:A de la Feuil1 du classeur. Si tu n'as pas besoin de couleurs, désactive certaines lignes du code...
'----------------------------------------------- Sub test() Sub test() Dim C As Comment With Worksheets("Feuil1") For Each C In .Comments If Not Intersect(.Range("A:A"), _ .Range(C.Parent.Address)) Is Nothing Then Format_Commentaire C End If Next End With End Sub '----------------------------------------------- Sub Format_Commentaire(C As Comment) With C With .Shape .Fill.Visible = msoTrue .Fill.ForeColor.SchemeColor = 38 .Fill.BackColor.SchemeColor = 22 .Fill.Transparency = 0# .Fill.TwoColorGradient msoGradientHorizontal, 2 With .OLEFormat.Object .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.ColorIndex = 2 'Autosize ou hauteur et largeur '.Height = 20.5 '.Width = 70.5 '.AutoSize = True End With End With End With End Sub '-----------------------------------------------
"Prunélia" a écrit dans le message de groupe de discussion : Bonjour Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas comment c'est arrivé, c'est un fichier partagé
Merci de votre aide
Bonjour Prunélia,
Essaie ceci :
Tu places tout dans un module standard :
Applique le même format à tous les commentaires de
la colonne A:A de la Feuil1 du classeur. Si tu n'as pas
besoin de couleurs, désactive certaines lignes du code...
'-----------------------------------------------
Sub test()
Sub test()
Dim C As Comment
With Worksheets("Feuil1")
For Each C In .Comments
If Not Intersect(.Range("A:A"), _
.Range(C.Parent.Address)) Is Nothing Then
Format_Commentaire C
End If
Next
End With
End Sub
'-----------------------------------------------
Sub Format_Commentaire(C As Comment)
With C
With .Shape
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 38
.Fill.BackColor.SchemeColor = 22
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientHorizontal, 2
With .OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
'Autosize ou hauteur et largeur
'.Height = 20.5
'.Width = 70.5
'.AutoSize = True
End With
End With
End With
End Sub
'-----------------------------------------------
"Prunélia" <Prunlia@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 5DA347FF-984D-4E33-A662-CD10F9191889@microsoft.com...
Bonjour
Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans
un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de
haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas
comment c'est arrivé, c'est un fichier partagé
Essaie ceci : Tu places tout dans un module standard :
Applique le même format à tous les commentaires de la colonne A:A de la Feuil1 du classeur. Si tu n'as pas besoin de couleurs, désactive certaines lignes du code...
'----------------------------------------------- Sub test() Sub test() Dim C As Comment With Worksheets("Feuil1") For Each C In .Comments If Not Intersect(.Range("A:A"), _ .Range(C.Parent.Address)) Is Nothing Then Format_Commentaire C End If Next End With End Sub '----------------------------------------------- Sub Format_Commentaire(C As Comment) With C With .Shape .Fill.Visible = msoTrue .Fill.ForeColor.SchemeColor = 38 .Fill.BackColor.SchemeColor = 22 .Fill.Transparency = 0# .Fill.TwoColorGradient msoGradientHorizontal, 2 With .OLEFormat.Object .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.ColorIndex = 2 'Autosize ou hauteur et largeur '.Height = 20.5 '.Width = 70.5 '.AutoSize = True End With End With End With End Sub '-----------------------------------------------
"Prunélia" a écrit dans le message de groupe de discussion : Bonjour Tous mes commentaires d'une colonne dans excel 2003 se sont retrouvés dans un un format si petit, qu'ils sont illisibles (1 caractère de large par 2 de haut), je peux les remodifier 1 par 1 mais il y en a beaucoup. Je ne sais pas comment c'est arrivé, c'est un fichier partagé