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

Fermé

FB2019 - 20 févr. 2019 à 14:05
FB2019 Messages postés 7 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 3 mars 2019 - 21 févr. 2019 à 09:12

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

A voir également:

Récupérer valeur cellule fusionnée excel
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Recuperer message whatsapp supprimé - Guide
Verrouiller cellule excel - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
20 févr. 2019 à 18:57

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

leachoiniere45
20 févr. 2019 à 18:59

ses

FB2019 Messages postés 7 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 3 mars 2019
21 févr. 2019 à 09:12

Bonjour à tous

Merci pour vos réponses

Je vais pouvoir continuer mon application.
merci encore!

Réponse 4 / 4

FB2019 Messages postés 7 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 3 mars 2019
20 févr. 2019 à 14:18

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 5103 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 18 décembre 2024 1 138
20 févr. 2019 à 14:56

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 ...

Discussions similaires

La valeur d'une cellule dans une variable VBA

récupérer la valeur d'une cellule

Excel VBA : Récupérer la valeur d'une cellule

Ecrire une valeur dans une cellule en fonction d'une autre

Excel si cellule contient texte alors...

récupérer la valeur de la dernière cellule no vide