Noircir un certain nombre de case

Certainement car de mon côté avec ton fichier joint le code fonctionne bien de la ligne n°2 jusqu'à la n°17 …

Re,

Je viens de te renvoyer en MP ton fichier avec la macro de rattrapage ...

Hiiiiiiiiiiiiii merciiiiiiiiiiiiiiiii

Génial c'est parfait

PROBLEME RESOLU!

perline a écrit :

Hiiiiiiiiiiiiii merciiiiiiiiiiiiiiiii

Génial c'est parfait

PROBLEME RESOLU!

Merci pour tes très gentils remerciements ...

Si j'ai bien compris Perline, la MFC n'est en fait pas conservée malgré ton choix !

Si mais du coup uniquement pour les corrections

Dans le dernier fichier joint dans ce sujet par l'agent du MI6 il n'y a plus aucune MFC ! D'où ma constatation …

Il me les a remis sur le fichier final.

Re,

Pour la compréhension du fil ... à l'usage d'éventuels futurs visiteurs ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim s As Integer
If Target.Count > 1 Then Exit Sub
Set plage = Range("B2:Z34")
If Intersect(Target, plage) Is Nothing Then Exit Sub
s = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column - 1)))
Range(Cells(Target.Row, 28 + s), Cells(Target.Row, 28 + s).Offset(0, Target.Value - 1)).Interior.Color = Cells(1, Target.Column).Interior.Color
End Sub