Récuperer les coordonnées de la plage de cellules sélectionnée

Bonjour à tous,

Je cherche à récuperer la positition de la plage de cellules selectionnées

Le code seras inséré dans une macro qui défusionne des cellules (donc ce seras à ce moment là qu'il faudra récuperer la position de plage) pour ensuitte coller une image et refusioner les cellules(grace à la plage de cellules)

Sub macro1
Dim a 
a = ActiveSheet.Name
Dim b
b = ActiveCell.Name.Name
Sheet(a) .Range(b).MergeCells=False
'Code pour récuperer la plage de cellules
Cells(1,2).copy
ActiveSheet.paste destination:= sheet(a).Range(b)
'Code pour fusionner les cellules
End sub

Bonjour

Utilise simplement selection qui peut être de 1 ou n cellules et donc Excel connait l'adresse qu'il est inutile de préciser

J'ai écri, apres sheets(a).Range(b)

Dim r 
r = selection 

puis à la fin

Sheets(a).Range(r).Mergecells = True

apparament il ne prend pas r. Il debogue au deusieme

Desolé

Apres sheets(a).Range(b).mergecells = False

Et merci pour la réponse.

RE

Inutile de créer une variable pour la sélection et le cas échant il faudrait

Dim r as range

Set r=Selection

J'ai écris :

Sheet (a).Range(b).Mergecells=False

Dim r As Range

Set r = selection

Mais ça ne marche pas

Et quand je j'arette le code, effectivement r ne contien rien. a et b contienne bien les valeurs.

RE

Avec un bout de code et des explications floues sur ce qui est fait entre défusion et fusion...

Ceci fonctionne : à adapter

Sub macro1()
Dim r As Range

Set r = Selection
r.MergeCells = False

r.Copy Destination:=Range("D2")

'Code pour fusionner les cellules
r.MergeCells = True
End Sub

Finalement voila ce qui marche :

Sheets(a).Range(b).mergeCells = False
Dim r as string
r = selection.Address

Sheet(a).Range(r).mergeCells =True

Re

Comme déjà dit c'est inutilement compliqué, on se fiche de l'adresse comme de l'an 40...

Et on ne sait toujours pas l'objectif concret donc bonne continuation...

Merci pour l'aide

Mon problème est résolu!