Sub Workbook_Open()
Dim WS_AVerifier As Worksheet
'Variable qui permet au classeur de référencer la feuille sur laquelle se trouve tes critères
'IL FAUT CHANGER ==> NOM DE LA FEUILLE ICI <== par le nom de ta feuille Excel
Set WS_AVerifier = Worksheets("NOM DE LA FEUILLE ICI")
If Verif_Plage_C7C12(WS_AVerifier) Then 'La condition à vérifier ici
'Exécution de ton code ici
End if
End Sub
Private Function Verif_Plage_C7C12 (WS_AVerifier As Worksheet) As Boolean 'La fonction qui va permettre de déterminer si tes critères sont vérifiés
Dim b_TousCriteres_OK As Boolean
b_TousCriteres_OK = True 'Par défaut, tous tes critères sont considérés comme étant vérifiés
'Le principe d'action consiste à parcourir la liste des critères pour vérifier si l'un d'eux est faux.
'Si tel est le cas, la fonction ne cherche pas plus loin et informe le classeur que tous les critères ne sont pas OK
'Sinon, elle poursuit son traitement jusqu'à la fin et informe ensuite le classeur que les critères sont OK
Dim val_Reference_C1 As String
val_Reference_C1 = Cstr(WS_AVerifier.Range("C1").value)
Dim pcs_Criteria As Long 'variable qui permet de parcourir les critères
For pcs_Criteria = 7 to 12 'On va boucler sur chaque critère pour vérifier la condition
'On teste le critère par rapport à la référence, le test est fait au format textuel
If cstr(WS_AVerifier.cells(pcs_Criteria, 3).value) <> val_Reference_C1 then
b_TousCriteres_OK = False
Goto Fin_Verif_Criteria
End if
Next pcs_Criteria
Fin_Verif_Criteria:
Verif_Plage_C7C12 = b_TousCriteres_OK
End Function