[anuky]

Salut toutou,

je te propose le code suivant pour résoudre ton problème de mise forme qui se trouve également dans le fichier joint (s'il passe):

Sub MiseEnForme
'
' MiseEnForme
' Macro enregistrée le 25/10/2005 par Guillaume JOLLY
'

Dim jDepart As Integer
Dim FeuilleDepart As Variant

Set FeuilleDepart = ActiveWorkbook.Sheets('feuil1')


jDepart = 1

'parcours du tableau
Do While FeuilleDepart.Cells(jDepart, 1).Value <> ''

'remplissage des cellule de la feuille d'arrivée

'si 'accepé' la cellule de la valeur est coloré en mauve
If FeuilleDepart.Cells(jDepart, 1) = 'accepté' Then
FeuilleDepart.Rows(jDepart).Interior.ColorIndex = 39
End If

'si 'refusé la cellule de la valeur est coloré en vert pâle
If FeuilleDepart.Cells(jDepart, 1) = 'refusé' Then
FeuilleDepart.Rows(jDepart).Interior.ColorIndex = 43
End If

'si en attente la cellule de la valeur est coloré en bleu pâle
If FeuilleDepart.Cells(jDepart, 1) = 'en attente' Then
FeuilleDepart.Rows(jDepart).Interior.ColorIndex = 33
End If


'mise à jour des compteur de position
jDepart = jDepart + 1
Loop


End Sub

C'est une boucle qui parcour ton tableau tant qu'elle ne trouve pas de case vide. Adapte là à ton problème.

N'hésite pas a demander si tu te pose des questions

Bon courrage