prb boucle & format ligne

[Luigi]

Bonjour à tous,

J’ai une macro qui me cause des soucis, mon problème est le suivant :
J’ai un tableau qui peut-être variable en nombre de lignes, dans la colonne C la valeur peut varier entre 1 et 0. Si la valeur est égale à 1 les colonnes E :F et I :K de la même ligne doivent avoir une certaine mise en forme (hachure) et si la valeur est égale à 0 les colonnes E :F et I :K de la même ligne doivent avoir une autre mise en forme (couleur verte).
Ce test doit-être réalisé sur toutes les lignes du tableau.
J’ai pensé faire une boucle, j’ai commencé une macro mais je n’arrive à rien de concret, quelqu’un pourrais t’il m’orienté vers la solution.
Merci

Ci –dessous le début de ma macro

Sub CouleurCol()
'
' CouleurCol
'
Range("C1").Select
Selection.End(xlDown).Select
Derligne = ActiveCell.Row
Range("C1").Select
For compteur = 1 To Derligne

If ActiveCell.Value = 1 Then
Range("E" & Derligne & ":F" & Derligne).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic

Range("I" & Derligne & ":K" & Derligne).Select
With Selection.Interior
.ColorIndex = 0
'.Pattern = xlLightUp
'.PatternColorIndex = xlAutomatic
End With

Else
With Selection.Interior 'Couleur texte
.ColorIndex = 35
.Pattern = xlSolid
End With
End If

ActiveCell.Offset(1, 0).Range("C1").Select

Next

End Sub

 

[phlaurent55]

Re : prb boucle & format ligne

Bonjour Luigi,

un essai en pièce jointe

 

[Luigi]

Re : prb boucle & format ligne

Merci phlaurent55, ça marche trés bien

 

[Luigi]

Re : prb boucle & format ligne

J'ai encore un problème avec la sélection et la mise en forme des cellules. Le code ci-dessous fonctionne bien
Range("e" & i).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlUp
.PatternColorIndex = xlAutomatic
End With

Mais il faut le écrire ce code pour chaque colonne à modifier, et dans un autre tableau excel je dois mettre en forme les colonne de G à GM et sa me fait écrire beaucoup de ligne de code. Ma question est la suivante, comment sélectionner plusieur colonne, j'ai essayé le code ci- dessous mais sa ne fonctionne pas.

Range("g:gm" & i).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlUp
.PatternColorIndex = xlAutomatic
End With

Merci

 

[mromain]

Re : prb boucle & format ligne

bonjour,

essaye avec ça :
Range("g" & i & ":gm" & i).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlUp
.PatternColorIndex = xlAutomatic
End With

a+

 

[Luigi]

Re : prb boucle & format ligne

Merci mromain ça marche

A+