Bonjour, j’ai fait une macro pour que des notes se mette quand j’appuie sur un bouton et comme je voulais sur un seul emplacement j’ai utilisé. delete pour éviter que les notes se succede .Seulement quand je protège ma feuille .delete ne fonctionne plus et met en bug ma macro . Avez-vous une solution ?
Voici la macro :
Sub AjoutCommentaire()
Range("M34").Delete
Range("M34").AddComment
Range("M34").Comment.Text Text:="BA2B01"
With Range("M34").Comment.Shape
.Width = 70 'Largeur commentaire
.Height = 20 'Hauteur
.OLEFormat.Object.Font.Size = 14 'Taille du texte
.OLEFormat.Object.Interior.ColorIndex = 2 'Couleur de fond
.TextFrame.Characters.Font.ColorIndex = 32 'Couleur de la police
.TextFrame.Characters.Font.Bold = True 'Ecriture gras
.OLEFormat.Object.Font.Name = "Bangle" 'Type de police
End With
Voici la macro :
Sub AjoutCommentaire()
Range("M34").Delete
Range("M34").AddComment
Range("M34").Comment.Text Text:="BA2B01"
With Range("M34").Comment.Shape
.Width = 70 'Largeur commentaire
.Height = 20 'Hauteur
.OLEFormat.Object.Font.Size = 14 'Taille du texte
.OLEFormat.Object.Interior.ColorIndex = 2 'Couleur de fond
.TextFrame.Characters.Font.ColorIndex = 32 'Couleur de la police
.TextFrame.Characters.Font.Bold = True 'Ecriture gras
.OLEFormat.Object.Font.Name = "Bangle" 'Type de police
End With