XL 2013 Connaitre adresse cellule fusionnée

nicroq

XLDnaute Occasionnel
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
 

jmfmarques

XLDnaute Accro
Bonjour
Tu peux toujours utiliser la propriété Adress du mergearea et la décortiquer
ou encore faire ceci (exemple avec A6 :
VB:
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

XLDnaute Barbatruc
Bonjour le fil
Pour s'amuser en fusionnant C2:F2
VB:
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

XLDnaute Occasionnel
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

XLDnaute Accro
Re,
Teste ceci
VB:
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
 

Discussions similaires

Réponses
2
Affichages
553
Réponses
14
Affichages
373