XL 2010 [VBA] Ajout commentaires cellules fusionnées

[F22Raptor]

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" ?

Merci !

 

[F22Raptor]

auto réponse !
Je laisse le sujet si ça peut aider



Dim Rge As Range

Selection.ClearComments

For Each Rge In Selection

If Rge.Address = Left(Rge.MergeArea.Address, 4) Then
MsgBox Rge.Address
Rge.AddComment
Rge.Comment.Text Text:=Rge.Value

End If

Next Rge

 

[eriiic]

Bonjour,

un peu en retard mais comme ça évite le traitement de chaine :

    Dim c As Range

    For Each c In Selection
        If c.Address = c.MergeArea.Range("A1").Address Then
            'ton commentaire
            Stop
        End If
    Next c

eric

 

[job75]

Bonjour F22Raptor, eriiiic,

With [A1,F1,A6,F6]
  .ClearComments
  For Each Rge In .Cells
    Rge.AddComment Rge.MergeArea.Address 'texte à adapter
  Next
End With

ou encore :

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 :

[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

A+

 

[F22Raptor]

Merci les gars !