Discussion :

[rsoul]

Bonjour à tous ,

J'ai un tableau excel , qui commence tjrs à la ligne 2 et qui s'etend de la cellule B à M.
Le nombre de lignes et cependant variable et peut aller de 1 à bcp.

J'ai créé un code censé coloré meslignes ( 1sur 2) mais cela fonctionne trés mal.
En effet j'aimerais que la coloration s'effectue à partir de la 2 ieme ligne du tableau ( soit la 3ieme ) de l'onglet et excel à souvent tendance à s'emballer et à me colorer ttes mes ligne voici le code utilisé:

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
  lDerniereLigneReelle = Range("B1").End(xlDown).Row
 
For i = 2 To lDerniereLigneReelle Step 2
    Range("B" & i).Interior.ColorIndex = 37
    Range("C" & i).Interior.ColorIndex = 37
    Range("D" & i).Interior.ColorIndex = 37
    Range("E" & i).Interior.ColorIndex = 37
    Range("F" & i).Interior.ColorIndex = 37
    Range("G" & i).Interior.ColorIndex = 37
    Range("H" & i).Interior.ColorIndex = 37
    Range("I" & i).Interior.ColorIndex = 37
    Range("J" & i).Interior.ColorIndex = 37
    Range("K" & i).Interior.ColorIndex = 37
    Range("L" & i).Interior.ColorIndex = 37
    Range("M" & i).Interior.ColorIndex = 37
   Next i

En attendant de vos nvelles Bonne Matiné

[fring]

Bonjour,

Essaye ceci

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim DerL As Integer
DerL = Range("B65535").End(xlUp).Row
 
For i = 3 To DerL Step 2
    Range("B" & i & ":M" & i).Interior.ColorIndex = 37
Next i
End Sub

[barjovial]

Salut,

J'avais fais ça pour un besoin similaire

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
19
20
21
22
 
Sub colorLine(ByRef currentSheet As Worksheet, _
              ByVal startColumn As Integer, _
              ByVal endColumn As Integer, _
              ByVal startRow As Integer, _
              ByVal endRow As Integer, _
              ByVal lineStep As Integer)
 
    Dim index As Integer
 
    Application.ScreenUpdating = False
    For index = startRow To endRow Step lineStep
        currentSheet.Range(Cells(index, startColumn), Cells(index, endColumn)).Select
        Selection.Interior.ColorIndex = 37
    Next
    Application.ScreenUpdating = True
End Sub
 
 
Sub test()
    colorLine ThisWorkbook.Sheets("Feuil1"), 3, 13, 6, 200, 3
End Sub

[rsoul]

Merci pour votre reactivité et votre justesse!!

Excellente journée!