Discussion :

[flamel]

Bonjour,

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

Code :

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

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.

[mercatog]

au lieu de

Code :

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

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

mettre

Code :

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

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

qui revient à écrire

Code :

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

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

[flamel]

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

[mercatog]

Aïe le fusionner!!

Code :

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

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

[flamel]

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

Code :

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

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.

[mercatog]

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 :

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

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é