Bonjour à tous,
je souhaiterai ajouter le code vba ci-dessous dans la feuille 1 de 150 fichier Excel qui se trouvent dans le même dossier
c'est pour cela que je souhaite automatiser l'insertion du code par macro vba :
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$38" Then Select Case Target.Value Case Is = "Serious" Target.Interior.ColorIndex = 6 'jaune Case Is = "Extreme" Target.Interior.ColorIndex = 3 'rouge Case Is = "Low" Target.Interior.ColorIndex = 35 'vert Case Is = "Moderate" Target.Interior.ColorIndex = 34 'bleu ciel Case Else Target.Interior.ColorIndex = -4142 'transparent End Select End If End Sub
Partager