Bonjour,

Je désirerai faire la somme de 2 cellules sauf si elle sont égales à zéro toutes les deux et indiquez cette somme dans une Msgbox.
Mon souci est avec la variable "bL"
Voici mon code :

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
43
44
45
46
47
' Message d'alerte
 
Dim bA As Boolean, bB As Boolean
Dim bC As Boolean, bD As Boolean
Dim bE As Boolean, bF As Boolean
Dim bG As Boolean, bH As Boolean
Dim bI As Boolean, bJ As Boolean
Dim bK As Boolean, bL As Boolean
Dim bM As Boolean, bN As Boolean
 
    bA = False: bB = False: bC = False: bD = False: bE = False: bF = False: bG = False: bH = False: bI = False: bJ = True: bK = False: bL = False: bM = False: bN = False
 
 
 
    If Sheets("Accueil").Range("D26").Value > 0 Then bA = True
    If Sheets("Accueil").Range("E26").Value > 0 Then bB = True
    If Sheets("Accueil").Range("D27").Value > 0 Then bC = True
    If Sheets("Accueil").Range("E27").Value > 0 Then bD = True
    If Sheets("Accueil").Range("D28").Value > 0 Then bE = True
    If Sheets("Accueil").Range("E28").Value > 0 Then bF = True
    If Sheets("Accueil").Range("G32").Value > 0 Then bG = True
    If Sheets("Accueil").Range("H39").Value > 0 Then bH = True
    If Sheets("Accueil").Range("J22").Value > 0 Then bI = True
    If Sheets("Accueil").Range("J7").Value <= 0.8 And Sheets("Accueil").Range("J7").Value >= 0 Then bJ = True
    If Sheets("Accueil").Range("R16").Value > 0 Then bK = True
    If Sheets("Accueil").Range("R19").Value > 0 And Sheets("Accueil").Range("R20").Value > 0 Then bL = True
    If Sheets("Accueil").Range("R22").Value > 0 Then bM = True
 
 Dim sStr As String
    sStr = ""
    If bA Then sStr = sStr & Sheets("Accueil").Range("D26") & " fiche(s) en retard d'analyse - Niveau 1 ;" & vbCrLf & vbCrLf
    If bB Then sStr = sStr & Sheets("Accueil").Range("E26") & " fiche(s) en retard de traitement - Niveau 1 ;" & vbCrLf & vbCrLf
    If bC Then sStr = sStr & Sheets("Accueil").Range("D27") & " fiche(s) en retard d'analyse - Niveau 2 ;" & vbCrLf & vbCrLf
    If bD Then sStr = sStr & Sheets("Accueil").Range("E27") & " fiche(s) en retard de traitement - Niveau 2 ;" & vbCrLf & vbCrLf
    If bE Then sStr = sStr & Sheets("Accueil").Range("D28") & " fiche(s) en retard d'analyse - Niveau 3 ;" & vbCrLf & vbCrLf
    If bF Then sStr = sStr & Sheets("Accueil").Range("E28") & " fiche(s) en retard de traitement - Niveau 3 ;" & vbCrLf & vbCrLf
    If bG Then sStr = sStr & Sheets("Accueil").Range("D38") & " audit(s) en retard ;" & vbCrLf & vbCrLf
    If bH Then sStr = sStr & Sheets("Accueil").Range("H39") & " actions du plan d'amélioration des processus sont en retard ;" & vbCrLf & vbCrLf
    If bI Then sStr = sStr & Sheets("Accueil").Range("J22") & " documents du référentiel ne sont pas à jour sur un total de " & Sheets("Accueil").Range("N23") & " ;" & vbCrLf & vbCrLf
    If bJ Then sStr = sStr & Format(Sheets("Accueil").Range("J7") * 100, "0.00") & " %" & " du référentiel documentaire est à jour ;" & vbCrLf
    If bK Then sStr = sStr & Sheets("Accueil").Range("R16") & " document(s) reçu(s) doi(ven)t être vérifié(s) ;" & vbCrLf & vbCrLf
    If bL Then sStr = sStr & Sheets("Accueil").Range("R19") & sStr & Sheets("Accueil").Range("R20") & " document(s) doi(ven)t être validé(s) ;" & vbCrLf & vbCrLf
    If bM Then sStr = sStr & Sheets("Accueil").Range("R22") & " document(s) approuvé(s) doi(ven)t être mis en ligne ;" & vbCrLf & vbCrLf
 
    If Len(sStr) > 0 Then MsgBox sStr, vbOKOnly + vbExclamation, "Attention - Message d'alerte :"
 
End Sub
Cordialement