Discussion :

[guismoman33]

Voici mon code, je dois avoir une erreur de syntaxe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/08/2007 par RICOH
'
 
Dim var As Integer
 
  For var = 3 To 20
    Range("A & var:E & var").Select
    Range("E" & var).Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Range("A" & var + 1).Select
    Next var
End Sub

[Kikumaru]

Et comme ca?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Macro1 Macro
' Macro enregistrée le 29/08/2007 par RICOH
'
 
Dim var As Integer
 
  For var = 3 To 20
    Range("A" & var ,"E" & var).Select
    Range("E" & var).Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Range("A" & var + 1).Select
    Next var
End Sub

[jfontaine]

plutot

Code :

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

Range("A" & var & ":E" & var).Select

[guismoman33]

Une dernière question quel est la fonction qui dit : la dernière case pleine. Je voçudrais que ma boucle s'arrête lorsqu'il rencontre une case vide
....

[jfontaine]

Code :

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

1
2
3
4
5
Do while Range("A" & i).value<>""
   'code
 
    i=i+1
loop

[LeForestier]

Si la première ligne vide de la colonne est la dernière de la feuille tu peu aussi faire...

Code :

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

1
2
  'Changer 'A' par la lettre de la colonne a tester
  i  =Range("A65536").End(XlUp) . Row

A+

[mordrhim]

Voici mon code, je dois avoir une erreur de syntaxe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/08/2007 par RICOH
'
 
Dim var As Integer
 
  For var = 3 To 20
    Range("A & var:E & var").Select
    Range("E" & var).Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Range("A" & var + 1).Select
    Next var
End Sub

ou encore "Corrigez mon code je dis pas merci et je m'en vais" ?