Demande d'info pour fusionner

Bonjour à tous,

Je suis un technicien en informatique plutôt orienté réseau mais j'ai décidé de me mettre un peu à Excel (débutant donc).

Voici ce que j'aimerai faire dans ma macro:

- Sélectionner la "cellule du dessous"
- A partir de cette cellule, sélectionner les 4 du dessous
- Les fusionner

Voici ce que j'ai pu sortir pour le moment

Code:

---

1 2 3 4 5 6 7 8

Sub Fusion() 'Sélection de la cellule du dessous ActiveCell.Offset(1, 0).Select 'Sélection des cellules à fusionner Range (?) 'Fusion des cellules Selection.Merge End Sub

---

Comme on peut le voir, je bloque complètement sur sélectionner les 4 du dessous.
Je ne sais pas trop comment traduire ça, est ce qu'il est possible de faire un range qui commencerait à la cellule active et qui finirait à la cellule active+4 ?

Merci pour vos futures réponses.

Bonjour Edaan,

Voila un code qui devrait t'aider :

Code:

---

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

Sub Fusion()   'Variable contenant le cellule active Dim rg As Range Set rg = ActiveCell 'Varibles ligne et colonne et cette cellule Dim ligne As Long Dim colonne As Long   ligne = rg.Row colonne = rg.Column   'Fusion des 4 cellules du dessous Range(Cells(ligne + 1, colonne), Cells(ligne + 4, colonne)).Merge   End Sub

---

Antony

Autre solution :

Code:

---

Range(ActiveCell.Offset(1, 0),ActiveCell.Offset(4, 0)).Merge

---

Merci à vous 2 pour vos réponses.

Je cherchais plus la solution de Menhir mais celle d'antonysansh me fait une bonne intro pour les variables :)

Les deux fonctionnent bien sûr ; avec un petit changement sur

Code:

---

Range(Cells(ligne + 1, colonne), Cells(ligne + 4, colonne)).Merge

---

, j'ai remplacé par

Code:

---

Range(Cells(ligne, colonne), Cells(ligne + 4, colonne)).Merge

---

car il y avait une cellule d'écart entre les 2 fusions.

Bref, merci encore pour votre aide :