Discussion :

[informer]

Bonjour à tous,

Comme toujours un exemple est toujours mieux qu'un long discourt

J'ai sur la 1ère ligne , 4 zones fusionnées concomitantes depuis la 1ière colonne

Je veux passer de zone fusionnée en zone fusionnée sachant que la donnée est toujours sur la première cellule de la zone fusionnée.

Je dois absolument connaitre le nombre de zones fusionnées car je concatène les données de chaque zone et les sépare par une tabulation sachant qu'il est possible qu'aucune donnée soit dans une zone

Merci par avance pour toute aide

[Jean-Philippe André]

Salut,

tu as la possibilité de t'attaquer au problème avec les propriétés MergeArea (de type Range)+ Address qui te donneront les infos de nombre de cellules fusionnées et cellule "principale"

[informer]

Bonjour Jean-Philippe,

Merci pour l'info mais a priori pas de solution simple

[Patrice740]

Bonjour,

... a priori pas de solution simple

Peut-être qu'une solution simple existe mais ta demande n'est pas très claire :

J'ai sur la 1ère ligne , 4 zones fusionnées concomitantes depuis la 1ière colonne
Je veux passer de zone fusionnée en zone fusionnée sachant que la donnée est toujours sur la première cellule de la zone fusionnée.

Concomitant : veut dire qui se produit ou se présente en même temps !
C'est sûrement pas le cas ...

Peut-être :

Code VBA :

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

1
2
3
4
5
6
7
8
Sub test()
Dim cel As Range
  For Each cel In Intersect(ActiveSheet.Rows(1), ActiveSheet.UsedRange).Cells
    If cel.MergeCells And cel.Address = cel.MergeArea.Cells(1, 1).Address Then
      MsgBox cel.MergeArea.Address
    End If
  Next
End Sub

[informer]

Bonjour Patrice740

Tu as tout à fait raison, ce n’est pas concomitant mais CONTIGÜES .

Mais après réflexion il faut oublier CONTIGÜES

Donc ma problématique est de connaître pour une ligne, le nombre de zones fusionnées et l’adresse de la première cellule pour chaque zone fusionnée.

Merci pour ton aide

[Patrice740]

Re,

Donc ma problématique est de connaître pour une ligne, le nombre de zones fusionnées et l’adresse de la première cellule pour chaque zone fusionnée.

L'adresse, c'est ce que fait le code que je t'ai proposé, il suffit d'y ajouter un compteur.

[informer]

super Patrice740

J’imagine que si

Code :

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

1
2
3
Dim oCells as Cells  
Set oCells = Intersect(ActiveSheet.Rows(1), ActiveSheet.UsedRange).Celles
Débug.print oCells.count ‘—-> nombre de zones fusionnées

Je teste la semaine prochaine

Encore merci Patrice740