Bonjour à tous,

Pouvez-vous m'aider ? J'ai un code vba sous xls qui dit ceci :
Si la cellule de la colonne B est remplie, il est impossible d'enregistrer le document tant que les cellules C-D-E-F-H-I-J-K-N-O ne sont pas remplies.
Ce code fonctionne parfaitement.
Ma demande est la suivante :
Je souhaite ajouter à ce code une autre vérification qui dit que Si la cellule de la colonne B ou C ou D ou E ou F ou H ou I ou J ou K ou N ou O n'est pas remplie, qu'il est impossible d'enregistrer le document tant que les cellules C-D-E-F-H-I-J-K-N-O ne sont pas remplies
.

Ci-dessous le code VBA

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
    For I = 17 To 97
        'On vérifie que des modifications sont indiquées
        If Sheets("Semaines bloquées").Range("B" & I).Value <> "" Then
            'On vérifie que Action est bien rempli
            If Sheets("Semaines bloquées").Range("C" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("D" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("E" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("F" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("H" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("I" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("J" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("K" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("N" & I).Value = "" Then
                Cancel = True
            End If
            If Sheets("Semaines bloquées").Range("O" & I).Value = "" Then
                Cancel = True
            End If
        End If
    Next
 
    If Cancel = True Then MsgBox "Sauvegarde impossible car les cellules jaunes sont non remplies"
 
End Sub
Voilà et en tout état de cause, je vous remercie d'une éventuelle assistance.

Ronald