Utilisation de la fonction Merge

[Sylvain]

Bonjour à tous,
Je cherche à utiliser la fonction Merge pour fusionner plusieurs cellules mais je recontre quelques difficultés.
Par l'intermédiaire de petits calculs, je détermine les cellules à fusionner
Sheets(2).Range(Cells(début_vac, 6), Cells(fin_vac, nb_colonnes + 5)).Merge

Cette commande ne marche pas. Cependant, si je remplace cette commande par
Sheets(2).Range("F12:H13").Merge
tout marche...

J'en déduis que pour utiliser la fonction merge, il faut disposer de l'adresse exacte d'une cellule... Peut on à partir de
cells(i,j) récupérer son adresse sous la forme Lettre_col-N°_ligne ?

Merci pour votre aide

 

[Stany]

Salut,
essaies ça.

Sheets(2).Range(Sheets(2).Cells(début_vac, 6), Sheets(2).Cells(fin_vac, nb_colonnes + 5)).Merge

Ou

With Sheets(2)
.Range(.Cells(début_vac, 6), .Cells(fin_vac, nb_colonnes + 5)).Merge
End With

@+

 

[Stany]

Re-salut,

pour ta deuxième question tu peux faire ça:

Sheets(2).Range(Cells(début_vac, 6).Address, Cells(fin_vac, nb_colonnes + 5).Address).Merge

Ca changera mon ton code avec cette solution.

@+

 

[Sylvain]

Bonjour Stany, le forum,
J'ai essayé ta solution
Sheets(2).Range(Sheets(2).Cells(début_vac, 6), Sheets(2).Cells(fin_vac, nb_colonnes + 5)).Merge
Cela fonctionne !

Merci pour ton aide Stany et bonne continuation à tous