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

Signaler
-
FB2019
Messages postés
7
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
3 mars 2019
-
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

4 réponses

Messages postés
1202
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
10 janvier 2020
111
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
Messages postés
7
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
3 mars 2019

Bonjour,

Ca ne m'envoie pas la valeur...

La cellule A14 est fusionnée avec A15.
Messages postés
7
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
3 mars 2019

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
T3chN0g3n
Messages postés
1202
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
10 janvier 2020
111
bonjour je viens de tester et ça fonctionne chez moi o_O

En rajoutant Range("C14").Value = valeur par exemple à la suite de l'écriture de valeur, si j'ai 19 en A14:A15 j'ai bien 19 qui s'écrit dans C14 ...
Messages postés
7885
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 janvier 2020
1261
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


FB2019
Messages postés
7
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
3 mars 2019

Bonjour à tous

Merci pour vos réponses

Je vais pouvoir continuer mon application.
merci encore!