Range et Cells, difficultés

Bonjour,

Où est l'erreur dans cette partie de code ?

Code:

---

1 2	Worksheets("Moniteur").Range("groupeRGB").Range(Cells(i, j),Cells(1, j + 1)).Select

---

Je n'arrive pas à m'en sortir.
J'ai du mal avec le mixage de Range et Cells.

Merci si vous pouvez m'aider.

au lieu de

Code:

---

worksheets(X).range(cells(a,b),cells(c,d)).interior.colorindex=3

---

mettre

Code:

---

worksheets(X).range(worksheets(X).cells(a,b),worksheets(X).cells(c,d)).interior.colorindex=3

---

qui revient à écrire

Code:

---

1 2 3

with worksheets(X) .range(.cells(a,b), .cells(c,d)).interior.colorindex=3 end with

---

PS: Tu peux travailler sans le Select

Merci mercatog,

Mais je passe d'abord par une plage "groupeRGB" dans laquelle je voudrais sélectionner des cellules pour les fusionner.
Comment dois-je formuler ?
Merci

Aïe le fusionner!!

Code:

---

1 2 3

With Worksheets("Moniteur").Range("groupeRGB") .Range(.Cells(i, j), .Cells(i, j + 1)).Merge End With

---

Je n'obtiens pas de fusion. Voici le code complet :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To 8 For j = 1 To 5 Step 2 Worksheets("Moniteur").Select With Worksheets("Moniteur").Range("groupeRGB") .Range(.Cells(i, j), .Cells(i, j + 1)).Merge End With Next j Next i

---

Je ne trouve pas mon erreur.

Merci.

Pour ton cas, essaies ceci (tu remarque que 2 variables s et t permettront l'offset)
Encore une fois, tu n'as pas besoin du Select

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim t As Long Dim j As Integer, s As Integer   With Worksheets("Moniteur").Range("groupeRGB") t = .Row - 1 'Ligne de la première cellule de la plage nommée -1 s = .Column - 1 'Colonne de la première cellule de la plage nommée -1 For j = 1 To 5 Step 2 .Range(.Cells(1 - t, j - s), .Cells(20 - t, j + 1 - s)).Merge True 'True permet de fusionner ligne par ligne séparément Next j End With

---

[Edit]: Code allégé

Merci mercatog, ça marche, c'est formidable.

Je vais chercher pourquoi tu as rédigé ainsi. J'aurai appris quelque chose.

Merci.