Composer les code IF/OR

Version imprimable

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:

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

Salut RMA1969 et le forum
Utilise les balises code (#) pour les macros, c'est plus lisible.

Il faut réfléchir différemment. Regardes ce que j'ai fait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Semaines bloquées")
    For I = 17 To 97
    'Pour les lignes de 17 à 97
        If .Range("B" & I) & .Range("C" & I) & Range("D" & I) & .Range("E" & I) & .Range("F" & I) & .Range("H" & I) & _
               .Range("I" & I) & .Range("J" & I) & .Range("K" & I) = "" & .Range("N" & I) & .Range("O" & I) = "" Then
        ' une cellule au moins n'est pas vide alors
            If .Range("B" & I) = "" Or .Range("C" & I) = "" Or .Range("D" & I) = "" Or _
               .Range("E" & I) = "" Or .Range("F" & I) = "" Or .Range("H" & I) = "" Or _
               .Range("I" & I) = "" Or .Range("J" & I) = "" Or .Range("K" & I) = "" Or _
               .Range("N" & I) = "" Or .Range("O" & I) = "" Then Cancel = True
            'si toutes les cellules ne sont pas remplies, cancel= vrai
            Exit For
            'sortir de la boucle
        End If
    Next
End With
If Cancel Then MsgBox "Sauvegarde impossible car les cellules jaunes sont non remplies"
End Sub

C'est la même chose que ce que tu demandes : si une des cellules n'est pas vide, toutes doivent être remplies (c'est ce que j'ai compris). Donc, je les concatène toutes, et si le résultat n'est pas vide, c'est qu'une au moins est remplie. Donc je teste qu'aucune n'est vide et si ce n'est pas le cas, cancel est à True.
Les fonctions ET et OU sont "interchangeables" avec quelques petites modifications
A+

Bonjour,

A moins d'avoir mal compris la demande, je verrais personnellement ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim plage As Range, c As Range
    Set plage = Sheets("Semaines bloquées").Range("C" & 17, "O" & 97)
    For Each c In plage
      If Range("B" & c.Row) <> "" And c.Value = "" Then
        MsgBox "Sauvegarde impossible car les cellules jaunes sont non remplies"
         Cancel = True
        Exit For
      End If
    Next
    Set plage = nothing: Set c = Nothing
End Sub

EDIT : et j'agiliserais en ne lançant la boucle For Each que si nécessaire :

Code:

1
2
If plage.SpecialCells(xlCellTypeBlanks).Count Then 
....