Hello
J'ai une plage de cellules (par exemple A1:J10, soit 10x10= 100 cellules) qui sont fusionnées (par exemple en 4 carrés de 5x5).
J'ai donc 4 grandes cellules : A1 ; F1 ; A6 ; F6.
Je veux ajouter par une boucle VBA des commentaires dans chaque cellule :
For Each Rge in Selection
Mais la boucle déroule, non pas entre les 4 cellules fusionnées, mais essaye d'aller dans chaque sous-cellule !
Du coup, ça plante ...
Une idée pour dire "Si la cellule fait partie d'un groupe fusionné, alors suivant" ?
With [A1,F1,A6,F6]
.ClearComments
For Each Rge In .Cells
Rge.AddComment Rge.MergeArea.Address 'texte à adapter
Next
End With
ou encore :
Code:
With [A1:F10]
.ClearComments
For Each Rge In .Cells
If Rge.Address = Rge.MergeArea(1).Address Then _
Rge.AddComment Rge.MergeArea.Address 'texte à adapter
Next
End With
ou enfin, bien qu'il soit totalement inutile de sélectionner :
Code:
[A1:F10].Select
Selection.ClearComments
For Each Rge In Selection
If Rge.Address = Rge.MergeArea(1).Address Then _
Rge.AddComment Rge.MergeArea.Address 'texte à adapter
Next