Discussion :

[Edaan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[antonysansh]

Bonjour Edaan,

Voila un code qui devrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Edaan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

, j'ai remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :