VBA excel - Récupérer une valeur contenue dans une cellule fusionnée

Question

Bonjour, 

J'ai deux cellules A14 et A15 qui sont fusionnées et qui contiennent la valeur 13 par exemple.
Je cherche comment je peux récupérer cette valeur dans une variable.
Si quelqu'un connait la méthode je vous en remercie par avance.

Configuration: Windows / Chrome 72.0.3626.109

T3chN0g3n · Answer

Bonjour, sauf si je n'ai pas compris la demande, il suffit de spécifier la première cellule du groupe, dans votre cas A14 ;)

votrevariable = range("A14").value

FB2019 · Answer

Bonjour,

Ca ne m'envoie pas la valeur...

La cellule A14 est fusionnée avec A15.

FB2019 · Answer

J'ai cette macro:
Sub essai()
    Dim Cel As Range
    Dim valeur As Variant
    Dim lig As Integer
    lig = ActiveCell.Row
    Cells(lig, 1).Select
    MsgBox Cells(lig, 1).Value
    If Selection.MergeCells = True Then
        valeur = Selection.Value     <== ne marche pas!
    End If
    
    
End Sub

Patrice33740 · Answer

Bonjour,

Quelque soit la cellule choisie (fusionnée ou non) :
Sub TestMerge()
Dim cel As Range
  Set cel = Range("A15")
  MsgBox cel.MergeArea.Cells(1, 1).Value
End Sub

VBA excel - Récupérer une valeur contenue dans une cellule fusionnée

4 réponses

Discussions similaires

Newsletters