Sub macroEdition()
Dim Rw As Range
Dim ligne As Long
Dim numDefaut As Variant
Dim WS As Worksheet
numDefaut = "A"
'boucle de 10 défauts possible
For i = 1 To 10
If i = 1 Then numDefaut = "A"
If i = 2 Then numDefaut = "B"
If i = 3 Then numDefaut = "C"
If i = 4 Then numDefaut = "D"
If i = 5 Then numDefaut = "E"
If i = 6 Then numDefaut = "F"
If i = 7 Then numDefaut = "G"
If i = 8 Then numDefaut = "H"
If i = 9 Then numDefaut = "I"
If i = 10 Then numDefaut = "J"
'test si la feuille existe : on continu, sinon on la crée
For Each WS In Worksheets
If WS.Name = "AFFICHAGE DEFAUT " + numDefaut Then
WS.Select
Exit For
Else
Sheets("AFFICHAGE DEFAUT VIDE").Copy After:=Sheets(Sheets.Count + "-1")
A ctiveSheet.Name = "AFFICHAGE DEFAUT " + numDefaut
WS.Select
End If
Next
'dans chaque feuilles, on remplace le numero de defaut et la couleur de la feuille
For Each WS In Worksheets
If WS.Name = "AFFICHAGE DEFAUT " + numDefaut Then
WS.Select
'mettre le numero dans la case B3
Cells(3, 2) = numDefaut
'mettre la couleur I12 = 1
NumLigne = "11 " + i
Couleur = Sheets("Données").Cells(NumLigne, 9).Value
If Couleur = "INTERNE" Then
Worksheets("AFFICHAGE DEFAUT " + numDefaut).Tab.ColorIndex = 8
End If
If Couleur = "SILS" Then
Worksheets("AFFICHAGE DEFAUT " + numDefaut).Tab.ColorIndex = 6
End If
If Couleur = "CLIENT" Then
Worksheets("AFFICHAGE DEFAUT " + numDefaut).Tab.ColorIndex = 9
End If
'on copie le plan d'action sur la feuille d'affichage du defaut
With Sheets("Plan d'action").UsedRange
ligne = 20
For Each Rw In .Rows ' Boucle Test
If Rw.Cells(1, 1).Value = numDefaut Then
Sheets("AFFICHAGE DEFAUT " + numDefaut).Cells(ligne, 10).Resize(, 10).Value = Rw.Offset(, 3).Resize(, 10).Value
ligne = ligne + 1
End If
Next Rw
End With
Exit For
End If
Next
Next
End Sub