Discussion :

[RussellD]

Bonjour,

J'utilise dans une macro la fonction OffSet pour situer des cellukles par rapport à une autre. Exemple Range("A1").Offset(1,1) pour B1.

J'aurais souhaité savoir quelle était la syntaxe qui permet de selectionner plusieurs cellules d'un coup avec Offset (pour les fusionner par exemple)?
Par exemple je veux fusionner les cellules B2 à D4, comment l'écrit-on?
J'ai essayé Range("A1").Offset(1:2 ,1:3).MargeCells, cela ne marche pas evidemment...

Est-ce que quelqu'un sait comment s'y prendre?

Merci d'avance !

[casefayere]

Bonjour,

apprends à utiliser l'enregistreur de macros qui te donnerais ce code, à peu près

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
17
18
19
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("B2:D4").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub

adaptes le pour obtenir

Code :

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

1
2
3
4
5
Sub Macro1()
    With Range("B2:D4")
               .MergeCells = True
    End With
End Sub

si tu tiens à avoir des "offset", on adapte
bonne journée

[RussellD]

Bonjour casefayere,

si tu tiens à avoir des "offset", on adapte

C'est justement comment adapter pour un offset qui m'interesse. Je connaissais la formulation pour fusionner des cellules par rapport à leur position absolue, mais je ne sais pas quelle syntaxe utiliser pour le faire en offset.. J'ai essayé d'écrire

Code :

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

Range("A1").Offset("(1,1) :(2,3)").MargeCells

Cela ne fonctionne pas.. Est-ce que tu sais coimment adapter à un offset?

Cordialement

[casefayere]

re,
dans le cas de b2:d4

Code :

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

range(range("a1").offset(1,1).address,range("a1").offset(3,3).address)

ou avec cells

Code :

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

range(cells(2,2),cells(4,4))

j'ai fait à main levée

bonne journée