XL 2013 Connaitre adresse cellule fusionnée

[nicroq]

Bonjour a tous,

je voudrais savoir si il existe une metode vba pour trouver la ligne de debut et la ligne de fin d'une cellule fusionnée?

en vous remeciant

cordialement

 

[M12]

Bonjour,
Un exemple en fusionnant de F3 à F10

Set c = Range("f3")
If c.MergeCells Then MsgBox c.MergeArea.Address

 

[jmfmarques]

Bonjour
Tu peux toujours utiliser la propriété Adress du mergearea et la décortiquer
ou encore faire ceci (exemple avec A6 :

With Range("A6").MergeArea
MsgBox .Row & vbCrLf & .Row + .Rows.Count
End With

Edit : en observant une différence entre ton titre et ton exposé

 

[dg62]

Bonjour le fil
Pour s'amuser en fusionnant C2:F2

Sub largeur_fusion()
Dim colonne As Integer
With Range("C2").MergeArea
colonne = .Item(Range("c2").MergeArea.Count).Column
MsgBox "la cellule s'étend sur " & colonne - Range("c2").Column + 1 & " colonnes."
End With
End Sub

 

[nicroq]

super merci beaucoup!!
Pour finir mon code je cherche a tester par exemple dans la range C3:C58 si il y a une cellule fusionnée et a quelle ligne? . existe il une solution par vba ? par une boucle?
merci d'avance pour votre aide!

 

[M12]

Re,
Teste ceci

Sub test()
Dim i%, ligneDebut%, LigneFin%
  For i = 3 To 58
    If Cells(i, 3).MergeCells Then
      LigneFin = Cells(i, 3).Cells(Cells(i, 3).MergeArea.Rows.Count, 1).Row
      ligneDebut = Cells(i, 3).Cells(1, 1).Row
    End If
  If ligneDebut <> LigneFin Then MsgBox Cells(ligneDebut, 3).Address: Exit For
  Next i
End Sub