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

[Fermé]
Signaler
-
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
2897
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
30 juillet 2021
588
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 689
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


1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

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!
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
Messages postés
2897
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
30 juillet 2021
588
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 ...