Discussion :

[graphikris]

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

[SfJ5Rpw8]

Bonjour..
c'est quoi le soucis ?
pourquoi sStr apparaît-elle 2 fois dans ta ligne bL?

[graphikris]

Je veux faire la somme des cellules R19 et R20

[Philippe Tulliez]

Bonjour,

Mon souci est avec la variable "bL"

Mis à part qu'il y a sans doute une concaténation de trop (& sStr), quel est le problème avec cette ligne . Un message d'erreur, un résultat erroné, etc.
As-tu utilisé la touche F8 pour exécuter la procédure pas à pas, c'est la meilleure manière de déboguer ce genre de problème ?

[Marc-L]

Je veux faire la somme des cellules R19 et R20

Bonjour, bonjour !

Application.Sum(Range("Accueil!R19:R20")) …

Ou encore [SUM(Accueil!R19:R20)] (cf aide VBA de la puissante fonction Evaluate) …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, …

[graphikris]

Merci à vous