Macro VBA Excel, Pb avec Range

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:

---

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

---

Bonjour,

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

Code:

---

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

---

Citation:

---

sauf que le select ne marche pas!!

---

je suppose que c'est

Code:

---

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

---

qui ne marche pas? essaie avec:

Code:

---

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

---

Code:

---

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

---

ne marche pas non plus!!

juste pour voir, remplace w par activesheet

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

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

Code:

---

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

---