Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

Si vous avez besoin de plus d'info, pas de problème...

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

Pour completer, mon code concernant la premiere ligne (sans fonte particuliere) est comme ceci et je ne sais comment rajouter les lignes pour les fontes voulues :

LigneTEST = 46
LigneTEST1 = 46
LigneTEST2 = 46

LigneTEST = LigneTEST + 1
For I = 8 To 2000
If Worksheets("recap").Cells(I, 154).Value = Worksheets("Rapport Hebdo").Cells(1, 16).Value Then
Cells(LigneTEST2, 1).Value = "Tests"

'Place les chiffres
Cells(LigneTEST1, 6).Value = Worksheets("Recap").Cells(6, 154).Value
Cells(LigneTEST1, 9).Value = Worksheets("Recap").Cells(5, 154).Value
Cells(LigneTEST1, 10).Value = Worksheets("Recap").Cells(4, 154).Value

'Copie des lignes TEST
Worksheets("Rapport Hebdo").Cells(LigneTEST, 1).Value = Worksheets("recap").Cells(I, 154).Value
Worksheets("Rapport Hebdo").Cells(LigneTEST, 2).Value = Worksheets("recap").Cells(I, 167).Value
Worksheets("Rapport Hebdo").Cells(LigneTEST, 7).Value = Worksheets("recap").Cells(I, 168).Value
Cells(LigneTEST, 7).Interior.ColorIndex = 24
LigneTEST = LigneTEST + 1
End If

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

mon post ne passionne pas les foules snif

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

bahh alors trop dur ou trop nul ?

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

Re-bonjour, vraiment personne pour m'aider ?

Re : Mise en forme auto d'un rapport hebdomadaire en fonction du résultat

Aidez moi, je galere...