cellules fusionées

[jarod]

Bonjour,
Je suis confronté à un problème qui j'imagine élémentaire pour des personnes plus expérimentées que moi...

via du code VBA, je voudrais recopier la mise en forme de cellules fusionnées sur les lignes d'en dessous

j'utilise actuellement le code suivant mais cela ne fonctionne pas
mes cellules perdent toutes 'la fusion'
Pour info, j'ai nommé les cellules fusionnées 'Designation'.

with ActiveWorkbook.ActiveSheet
.Range('Designation').Copy
        .Range(.Cells(.Range('Designation').Row, .Range('Designation').Column), .Cells(.Range('Designation').Row + idecalage, .Range('Designation').Column)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End With

Es ce que l'un d'entre vous aurait une idée sur le sujet?


Par avance merci
Jarod

 

[ERIC S]

Bonjour

code donné par l'enregistreur de macros :

Range('A31:C31').Select
Selection.Copy
Range('A32:C37').Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Tu dois pouvoir t'en inspirer

A+

 

[jarod]

C'est exactement la methode que j'ai utilise pour creer mon code mais le probleme s'est que dans ton cas tu connais les adresses de zones Range('A31:C31')
or dans mon cas, je travaille avec des noms de cellules et du coup mon code ne fonctionne plus...

 

[ERIC S]

re

le code suivant a l'air de fonctionner

Range('Designation').Copy
Range(Cells(Range('Designation').Row + 1, Range('Designation').Column), _
Cells(Range('Designation').Row + idecalage, Range('Designation').Column + Range('Designation').Columns.Count - 1)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

A+

 

[jarod]

Ta méthode fonctionne.
mais seulement dans le cas ou on affecte un nom selon la méthode suivante:
- on sélectionne les cellules
- on leurs affecte ensuite un nom
- en enfin on les fusionne

si l'on utilise la méthode suivante, cela ne fonctionne pas:
- on sélectionne les cellules
- on les fusionne
- en enfin on leurs affecte ensuite un nom

Mais c'est excellent, j'ai enfin une méthode qui fonctionne!!!
Je vais pouvoir arrêter de ma casser la tête



ERIC S écrit:

re

le code suivant a l'air de fonctionner

Range('Designation').Copy
Range(Cells(Range('Designation').Row + 1, Range('Designation').Column), _
Cells(Range('Designation').Row + idecalage, Range('Designation').Column + Range('Designation').Columns.Count - 1)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

A+