Améliorer une macro de commentaires

**arisToT** · 07/01/2011, 13h31

Bonjour,
je souhaite améliorer une macro de création de commentaires, pouvez-vous m'aider ?

Actuellement, la macro crée un commentaire en prenant les valeurs dans un certain nombre de cases à droite de la cellule ciblée (appelons la : cellule "titre"), puis elle fait des sauts de lignes entre chaque valeur pour l'affichage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub commentaires()
    With ActiveCell.Range("A1")
        .ClearComments
        .AddComment
        .comment.Text Text:=ActiveCell.Range("B1").Value & Chr(10) & ActiveCell.Range("C1").Value & Chr(10) & ActiveCell.Range("D1").Value & Chr(10) & ActiveCell.Range("E1").Value & Chr(10) & ActiveCell.Range("F1").Value & Chr(10) & ActiveCell.Range("G1").Value 
    End With
End Sub

Voici à quoi ca ressemble en pratique :
Nom : etiquette_macro.PNG
Affichages : 99
Taille : 5,7 Ko

Je souhaiterais quelques améliorations :
- ne pas avoir à préciser à chaque fois dans combien de cases à droite se trouvent les valeurs, c'est à dire pouvoir détecter combien de cellules à droite sont non-vides (ce chiffre est variable) et sont donc à prendre en compte pour le commentaire.
- pouvoir appliquer la macro à toutes les cellules "titre" d'un seul coup (actuellement je les fais une par une, ce qui est complètement idiot).
- accessoirement, j'aimerais que la première valeur du commentaire soit en gras mais pas les autres.

Quelqu'un relève le défi ?
Merci !

**Philippe Tulliez** · 07/01/2011, 14h06

Bonjour,
Comme cela par exemple ?
Dans l'exemple, j'ai nommé les plages contenant les titres (A2:A6) 'Titre'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub WriteComments()
 Dim cell As Range
 Dim col As Integer
 Dim txt As String
 For Each cell In Range("Titre")
  txt = ""
  For col = 1 To cell.End(xlToRight).Column
   With cell
    txt = txt & .Offset(0, col) & vbLf
   End With
  Next col
  With cell
  .ClearComments
  .AddComment
  .Comment.Text Text:=txt
  End With
 Next
End Sub

**arisToT** · 07/01/2011, 14h19

Faut-il que la colonne des cellules titre s'appelle "Titre" pour que ça marche ? Faut-il sélectionner l'ensemble des cellules titre avant d'exécuter la macro ? Pour le moment je n'arrive qu'à obtenir un message d'erreur, c'est bête quand même

Merci !