Peut on modifier le format par défaut dans les commentaires exce l
1 réponse
cecile
Bonjour,
J'insère des commentaires, mais je voudrais modifier la police
automatiquement dans chaque commentaire.
Auriez vous une idée pour éviter de modifier les commentaires les uns aprés
les autres ?
Merci d'avance
Céc
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
michdenis
Bonjour Cécile,
Essaie ceci : à copier dans le module feuille où l'action se déroule :
'Déclaration de la variable dans le haut du module Dim Rg As Range '-------------------------- Private Sub Worksheet_Deactivate()
SelectionChange ActiveCell
End Sub '-------------------------- Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C As Comment, Tp As Range If Rg Is Nothing Then Set Rg = Target End If If Application.CutCopyMode = True Then If Rg.NoteText <> "" Then Set Tp = Selection With Rg.Comment.Shape.OLEFormat.Object .Font.Name = "Arial" .Font.Size = 12 .Font.ColorIndex = 3 .Font.Bold = True End With Tp.Copy End If End If Set Rg = Target End Sub '--------------------------
Salutations!
"cecile" a écrit dans le message de news: Bonjour,
J'insère des commentaires, mais je voudrais modifier la police automatiquement dans chaque commentaire. Auriez vous une idée pour éviter de modifier les commentaires les uns aprés les autres ? Merci d'avance Céc
Bonjour Cécile,
Essaie ceci : à copier dans le module feuille où
l'action se déroule :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'--------------------------
Private Sub Worksheet_Deactivate()
SelectionChange ActiveCell
End Sub
'--------------------------
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Comment, Tp As Range
If Rg Is Nothing Then
Set Rg = Target
End If
If Application.CutCopyMode = True Then
If Rg.NoteText <> "" Then
Set Tp = Selection
With Rg.Comment.Shape.OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 12
.Font.ColorIndex = 3
.Font.Bold = True
End With
Tp.Copy
End If
End If
Set Rg = Target
End Sub
'--------------------------
Salutations!
"cecile" <cecile@discussions.microsoft.com> a écrit dans le message de news: 838559EA-F009-4061-B284-B7020B1DBBC2@microsoft.com...
Bonjour,
J'insère des commentaires, mais je voudrais modifier la police
automatiquement dans chaque commentaire.
Auriez vous une idée pour éviter de modifier les commentaires les uns aprés
les autres ?
Merci d'avance
Céc
Essaie ceci : à copier dans le module feuille où l'action se déroule :
'Déclaration de la variable dans le haut du module Dim Rg As Range '-------------------------- Private Sub Worksheet_Deactivate()
SelectionChange ActiveCell
End Sub '-------------------------- Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C As Comment, Tp As Range If Rg Is Nothing Then Set Rg = Target End If If Application.CutCopyMode = True Then If Rg.NoteText <> "" Then Set Tp = Selection With Rg.Comment.Shape.OLEFormat.Object .Font.Name = "Arial" .Font.Size = 12 .Font.ColorIndex = 3 .Font.Bold = True End With Tp.Copy End If End If Set Rg = Target End Sub '--------------------------
Salutations!
"cecile" a écrit dans le message de news: Bonjour,
J'insère des commentaires, mais je voudrais modifier la police automatiquement dans chaque commentaire. Auriez vous une idée pour éviter de modifier les commentaires les uns aprés les autres ? Merci d'avance Céc