alors cette formule vient de Gullaud qui m'a aidé pour créer les périodes.
sauf que cela ne s'actualisé pas tout seul sauf en faisant f2+ entré sur chaques cellule
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim COL As Long
ligne = Target.Row
COL = Target.Column
If Cells(ligne, COL) = "VM" Then
Range(Cells(ligne, Application.Max(10, COL - 7)), Cells(ligne, COL + 7)).Interior.Color = RGB(146, 205, 220)
End If
If Cells(ligne, COL) = "VT" Then
Range(Cells(ligne, Application.Max(10, COL - 21)), Cells(ligne, COL + 21)).Interior.Color = RGB(146, 205, 220)
End If
If Cells(ligne, COL) = "VS" Or Cells(ligne, COL) = "VA" Then
Range(Cells(ligne, Application.Max(10, COL - 28)), Cells(ligne, COL + 28)).Interior.Color = RGB(146, 205, 220)
End If
End Sub
A l'origine le tableau entier vient d'une application qui est sur le site que j'ai modifié
du coup le "VM", "VT".... se change par l'intermédiaire de la colonne D dans "le tableau perpétuel"
ta fonction marche nickel , même si je comprend rien ^^ , je vais essayer de comprendre de mon coté et de faire un bouton d'actualisation pour réinitialiser les cases colorées du tableau quand on bouge la scrollbar .
Merci Thauthème et Gullaud d'ailleur