Discussion :

[GlamIS]

bonjour, j'ecris une macro en VBA pour EXcel, et je voudrais metre en forme un tableau, pour cela je dois selectionner plusieurs lilgnes pour les fusionner. sauf que le select ne marche pas!!

voici mon bout de code:

Code :

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

1
2
3
4
5
6
7
Dim w As Worksheet
    Worksheets(2).name = "dashboard_years"
    Set w = ThisWorkbook.Sheets("dashboard_years")
 
    w.Range("A2").FormulaR1C1 = "Results Type"
    w.Range("A2:A4").Select
    Selection.Merge

[flo_flo]

Bonjour,

Voilà ce que j'obtiens à l'enregistreur de macros :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Range("B2:B4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.merge

[sash6]

sauf que le select ne marche pas!!

je suppose que c'est

Code :

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

w.Range("A2:A4").Select

qui ne marche pas? essaie avec:

Code :

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

w.range(cells2,1), cells(4,1)).select

[GlamIS]

Code :

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

w.range(cells(2,1), cells(4,1)).select

ne marche pas non plus!!

[sash6]

juste pour voir, remplace w par activesheet

[GlamIS]

en remplaçant w par activesheet ça marche, merci!!!

[AlainTech]

Il eut été bien plus propre de ne pas utiliser de Select.

Code :

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

1
2
3
4
5
6
Dim w As Worksheet
    Worksheets(2).name = "dashboard_years"
    Set w = ThisWorkbook.Sheets("dashboard_years")
 
    w.Range("A2").Value = "Results Type" ' Pourquoi FormulaR1C1?
    w.Range("A2:A4").Merge