Macro - Cellule fusionnée et Offset

Bonjour,

Je rencontre un petit soucis dont je ne trouve pas solution sur le forum.

Exemple sur deux colonnes (A et B pour l'exemple) :
En cellule A1, j'ai la valeur A
En cellule A2, j'ai la valeur B
En cellule A3, j'ai la valeur C

La cellule B1 correspond à la fusion des cellules B1, B2 et B3. Cette cellule fusionnée est valorisée à D

J'aimerai, via VBA, être en mesure d'afficher le message suivant :
"D=A,B,C"

Techniquement parlant, je me positionne sur la cellule B1, et je récupère la valeur de la cellule A1 :

Code:

---

ma_concat=Range("B1").Value & "=" & Range("B1").Offset(0,-1).Value

---

(Où B1 est dynamique)

Le problème est que ma variable ma_concat vaut "D=A", et non pas "D=ABC"

Si quelqu'un a déjà solution à mon problème, son aide m'est plus que précieuse.

Sachant que je ne connais pas à l'avance la position exacte des cellules fusionnées sur une feuille, je pense devoir dans un premier temps tester si la cellule "en cours" est une cellule fusionnée ou pas (via la propriété MergeCells).

Cordialement

Tu peux faire quelque chose dans le genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim maCell As Range Dim nbLignes As Integer Dim i As Integer Dim concat As String   Set maCell = Range("B1") 'Par exemple   If maCell.MergeCells Then nbLignes = maCell.MergeArea.Rows.Count Else nbLignes = 1 End If   concat = maCell.Value & "="   For i = 1 To nbLignes concat = concat & maCell.Offset(i - 1, -1).Value & "," Next i   concat = Left(concat, Len(concat) - 1) 'Pour supprimer la dernière virgule

---

Pour info j'en suis arrivé à cela :

Code:

---

1 2 3 4 5 6 7 8

If Range("B1").MergeCells Then MsgBox Range("B1").MergeArea.Rows.Count For i = 0 To Range("B1").MergeArea.Rows.Count - 1 test = Range("B1").Row Range("B1").Select ma_concat= ma_concat & Range("B1").Offset(test + i, -1).Value Next i End If

---

Bonjour ZebreLoup et merci de t'être dérangé.

Je vois que nous avons à peut prêt la même solution, en revanche le :

Code:

---

maCell.Offset(i - 1, -1).Value

---

ne fonctionne pas chez moi...cela me renvoit du null.

EDIT : Elle ne renvoi pas vraiment du null, car elle renvoi la valeur de la cellule A1, mais pas celle de A2 (Offset(2-1, -1), ni celle de A3 (Offset(3-1, -1)))
Je viens d'essayer avec ta fonction, mais j'obtiens le même résultat...

Je suis assez étonné que ça ne marche pas. Essaie de faire un maCell.Offset(i - 1, -1).Address dans les espions pour chaque i pour voir.

Bonjour ZebreLoup,

Je viens d'essayer avec les espions, et les valeurs renvoyées sont toujours nulles.
Je viens de faire un petit test et il s'avère que dans :

Code:

---

Range("B1").Offset(i - 1, -1).Value

---

Si "i" est = 2, le code ci-dessus renverra la valeur de la cellule "A4",
Si "i" est = 3, le code ci-dessus renverra la valeur de la cellule "A5".

Comme si il considérait que la fusion appliquée aux 3 lignes de la colonnes B est appliquée à la colonne A.

Bonjour,

Une solution avec

Code:

---

concat = concat & maCell.Offset(0, -1).Offset(i - 1, 0) & ","

---

Cordialement.

Bon j'ai trouvé réponse à ma question sur un autre forum : http://www.access-programmers.co.uk/...d.php?t=168390

Apparemment le seul moyen d'obtenir la valeur d'une cellule en utilisant Offset depuis une cellule fusionnée et de se déplacer en colonne, puis en ligne (ou inversement).

Ce qui donnerait dans mon cas :

Code:

---

1 2 3 4 5 6 7

If Range("B1").MergeCells Then For i = 1 To Range("B1").MergeArea.Rows.Count Range("B1").Offset(0, -1).Select 'déplacement horizontal ActiveCell.Offset(i - 1, 0).Select 'déplacement vertical ma_concat= ma_concat & ActiveCell.Value Next i End If

---

Merci tout de même ZebreLoup pour le temps accordé.

Cordialement.

Par contre, utilise plutôt la solution de gFZT82, ce n'est pas propre du tout de faire des Select et d'utiliser ActiveCell

Merci gFZT82, et désolé je n'avais pas vu ta réponse.

Merci Zebre, je n'ai rien optimisé encore, mais j'en prends note!