Erreur de compilation. Attendu : ou séparateur de liste ) lors d'une mise en page

**alex.a** · 21/06/2007, 10h39

Bonjour,

voilà, je voudrais faire une mise en page toute bête du type

Code :

1
2
3
4
5
Range("G4:L5").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With

mais en remplacant 4 et 5 par i et i+1
j'ai testé naturellement

Code :

1
2
3
4
5
Range("G" & i ":L" & i + 1).Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With

mais là, Erreur de compilation Attendu : ou séparateur de liste ou )

Comment puis-je faire ça?

Merci a vous.

**Dream Master** · 21/06/2007, 10h46

Tu ne peus pas mettre de variable dans un Range.
Tu dois utiliser Cells
Ligne= le numéro de ta ligne
col=le numéro de ta colone

Code :

Range(Cells(ligne,col), Cells(ligne,col)).Select

Dream master

**illight** · 21/06/2007, 10h49

Envoyé par Dream Master

Tu ne peus pas mettre de variable dans un Range.
Tu dois utiliser Cells
Ligne= le numéro de ta ligne
col=le numéro de ta colone

Code :

Range(Cells(ligne,col), Cells(ligne,col)).Select

Dream master

Ah bon ? j'étais pas au courant

Sinon il peut écrire :

Code :

Range("G" & i & ":L" & i + 1).Select

ça marche aussi hein

Il avait juste oublié un & le monsieur

**cavo789** · 21/06/2007, 10h54

Ton code me parait tout à fait OK aussi je me demande : es-tu certain que I soit initialisé ?

**davidou2001** · 21/06/2007, 11h00

En effet, en fait tu as juste oublie le & entre le i et le L

donc ton code serait

Code vb :

1
2
3
4
5
6
 
  Range("G" & i & ":L" & i + 1).Select
  With Selection.Interior
    .ColorIndex = 15
    .Pattern = xlSolid
  End With

Voila

**Dream Master** · 21/06/2007, 11h10

Normalement ce code doit fonctionner

Code :

1
2
3
4
5
6
7
8
i=4
 
Range(Cells(i,7), Cells(i+1,12)).Select
 
With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
End With

bonne chance

**mordrhim** · 21/06/2007, 11h12

bonjour,

je sais que ce n'est pas mon travail mlais bon désolé mais ca me gene :S

Règle a lire pour ceux qui postent des réponses étranges
encore désolé pour les modérateur (et je me gronde moi même)

**alex.a** · 21/06/2007, 11h27

Merci tout le monde

c'était donc juste une histoire de &, je le retiens celui là

Bonne journée a tous
et encore merci

Macros et VBA Excel