Discussion :

[Lilce]

Bonjour à tous,

Je vous explique mon problème. J'ai un code VBA qui importe un fichier txt sur Excel sous la forme de tableau.
à la fin de toutes mes operations je souhaiterais que la 8e ligne de mon tableau soit colorée, il fait parfois 1000 lignes.

EX: Tableau de 100 ligne, colorer ligne 8, puis ligne 16, puis ligne 24 etc....

Je vous remercie par avance pour votre aide.

Cordialement,

Lilce

[Docmarti]

Bonjour.

je souhaiterais que la 8e ligne de mon tableau soit colorée, il fait parfois 1000 lignes.
[B]

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
Sub Colorier()
Set f = Worksheets("Feuil3")
With f.Cells
Set rg = .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
 If rg Is Nothing Then DernLigne = r.Row Else DernLigne = rg.Row
 
 Set rg = .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
 If rg Is Nothing Then derniereColonne = r.Column Else derniereColonne = rg.Column
End With
 
Set r = f.Range(f.Cells(1, 1), f.Cells(DernLigne, derniereColonne))
For i = 8 To DernLigne Step 8
 r.Rows(i).Interior.Color = RGB(255, 100, 10)
Next
End Sub

[Theze]

Bonjour,

Tu peux utiliser une MFC dans Excel. Tu sélectionnes toute ta plage, puis le menu "Mise en forme conditionnelle", ensuite "Nouvelle règle" et tu choisis "Utiliser une formule..." et tu entre la formule suivante :

Code :

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

1
2
 
=NON(MOD(LIGNE();8))

ou par VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Plage As Range
 
    'adapter la plage...
    Set Plage = Range("A1:D40")
 
    Plage.FormatConditions.Add(xlExpression, , "=NON(MOD(LIGNE();8))").Interior.Color = 255
 
End Sub

Hervé.

[Lilce]

Merci beaucoup pour votre aide