Bonjour MichD,
Désolé pour le délai, j'ai dû résoudre d'autre problèmes entretemps :-)
Merci pour tes propositions!
J'ai adapté ta dernière proposition et j'ai deux questions.
Au niveau de la localisation, je n'ai pas bien compris le fonctionnement de Intersect..
Mon souhait étant de corriger l'ensemble des commentaires de la feuille active (J'ai corriger: With ActiveSheet)
Sub UniformiserCommentaires()
Dim C As Comment, G As String
With ActiveSheet
'With Worksheets("Feuil1")
For Each C In .Comments
If Not Intersect(.Range(C.Parent.Address), .Range("A1:Z1000")) Is Nothing Then ' Ici j'ai agrandi la zone de recherche..
'Ne pourrais-t'on pas faire une zone de sélection à la souris, plutôt qu' en dur dans la procédure
With C.Shape.OLEFormat.Object
.Font.Name = "Tahoma"
.Font.Color = vbBlack
.Font.Bold = True
.Font.Size = 10
.Interior.Color = RGB(255, 255, 204)
If Right(.Text, 1) = Chr(10) Then
G = Left(.Text, Len(.Text) - 1)
End If
' C.Text G ' Cette ligne plante la macro, je l'ai désactivée et la procédure s'éxécute convenablement. Mais à quoi sert-elle?
' Ne devrait-elle pas se situer juste en dessus du End if ?
.AutoSize = True
End With
End If
Next
End With
End Sub
En te souhaitant une très bonne journée,
Emile