Discussion :

[Frk56]

Bonjour à tous,
Des lustres que je n'ai pas fait de macro Vba et aujourd'hui obligé de m'y recoller
Un souci donc et je sèche !
Le contexte : un fichier qui contient 2 pages et la même macro à faire tourner sur ces deux pages à la fermeture du fichier pour créer, suivant la condition, un mail pour alerter les intéressés.
Le souci : comme je fais tourner la même macro sur les deux pages, il peut y avoir, potentiellement, 2 fois la création d'un mail à envoyer.
Le coup de patte : y aurait-il un moyen pour éviter qu'il y ait par deux fois la création du mail, un suffit car c'est simplement pour une alerte sans distinction entre les pages du fichier ?

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
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    'DoMacro()
    Dim xSh As Worksheet, ret As Integer
 
        ret = MsgBox(" Voulez-vous que la macro s'execute en sortie de fichier ? ", vbYesNo)
        If ret = vbNo Then
            Exit Sub
        Else
 
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
 
End If
End Sub
 
 
Sub RunCode()
'Sub Macro1()
' vérification des valeurs règles PingCastle et envoi de message si différentes
'
Dim NumRows, i As Integer
'Sheets("Règles").Activate
 
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count   'Compte le nombre de lignes à partir de A1
Range("B" & NumRows).Select   'Positionnement curseur sur dernière ligne en colonne B
 
i = 2
 
For Boucle = i To 5   'Boucle
    If Cells(NumRows, i).Value > Cells((NumRows - 1), i).Value Or Cells(NumRows, i).Value <> Cells((NumRows - 1), i).Value Or Cells(NumRows, i).Value <> Cells((NumRows - 1), i).Value Or Cells(NumRows, i).Value <> Cells((NumRows - 1), i).Value Then
    Application.Dialogs(xlDialogSendMail).Show arg1:=Array("contact1@xxx", "contact2@xxx"), arg2:="Alerte indicateurs PingCastle sur les scores et règles"  'Ouverture d'une message boxe pour prévenir d'une différence de valeurs
 
    End If
 
i = i + 1
Next Boucle
 
End Sub

[Tête de chat]

Bonjour,

Peut être gérer un retour de runcode pour savoir si tu as envoyé un mail. Si on en profite pour virer le vilain select et les range sans référence, et revoir la boucle dans runcode (je suppose que tu veux envoyer le mail si sur la dernière ligne, une des valeurs des colonnes B à E est différente de la ligne précédente)...

... ça pourrait donner (non testé, on est pas à l'abri d'une coquille) :

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
Dim NbMail as Integer
Application.ScreenUpdating = False
For Each xSh In Worksheets
        xSh.Select
        NbMail = RunCode(xSh )
        if nbMail >0 then Exit For
Next xSh 
Application.ScreenUpdating = True
 
.../...
Function RunCode(xSh as Worksheet) as integer
Dim i as Integer, j as integer
Dim OK as boolean
OK= True 
i = xSh.Range("A1").End(xlDown)).Row   'Compte le nombre de lignes à partir de A1
 
For j = 2 To 5   'Boucle sur colonnes
    If xSh.Cells(i, j).Value <> xSh.Cells(i - 1, j).Value  Then OK= False
Next j
If not OK then
     Application.Dialogs(xlDialogSendMail).Show arg1:=Array("contact1@xxx", "contact2@xxx"), arg2:="Alerte indicateurs PingCastle sur les scores et règles"  'Ouverture d'une message boxe pour prévenir d'une différence de valeurs
     RunCode= 1
Endif
End Function

J'ai aussi viré le Boucle qui me semblait très louche et très inutile.
J'ai supposé que le > au lieu de <> sur la première colonne était une erreur de frappe, sinon il faudra revoir un peu la boucle de test.

[Frk56]

Merci beucoup du coup d'oeil et des corrections apportées... je vais tester ça.
Pour le > effectivement, erreur de frappe. J'avais pas "réfléchi" en globalité sur les colonnes mais colonne par colonne en oubliant de simplifier du coup... quand on est la tête dans le guidon, surtout après plusieurs années d'interruption, y'a plein de choses qui peuvent passer à l'as du coup
En tout cas merci de ton aide, je regarde...

[Frk56]

@Tête de chat :

Impec, ça fonctionne tout bien, juste une coquille de frappe à corriger... une parenthèse de trop après le xlDown

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = xSh.Range("A1").End(xlDown)).Row

Encore merci du coup de patte qui m'a fait gagner un temps précieux