Bonjour,

Dans des fichiers que je fourni il y a des contrôles (cellules qui renvoient "ok" ou "pb" suivant un test), sur certains fichiers il y a beaucoup de feuilles avec des contrôles sur chaque feuilles. J'aurai aimé faire un controle maître qui vérifient tout les autres contrôles.
Pour ça je dois parcourir toutes mes cellules de contrôles sur toutes mes feuilles, j'ai essayé le code ci-dessous mais il ne fonctionne pas.
J'obtient le message "méthode union fail", que je n'obtient pas si je ne travaille que sur une seule feuille.
Suis-je obligé faire une boucle par feuille? Ou existe-t-il un moyen de grouper des cellules de différentes feuilles?

Merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cell As Range
Dim test As Boolean
test = False
For Each cell In Union(Sheets("Sh1").Range("F139,H139"), Sheets("Sh2").Range("F178,H178"), Sheets("Sh3").Range("R2:W2"))
    If Not (cell = "ok") Then test = True
Next cell
If test Then
    Range("ctrlM") = "pb"
    MsgBox "Attention les contrôles ne sont pas bons"
Else
    Range("ctrlM") = "ok"
End If
End Sub