Bonjour,

J'ai un classeur automatisé de suivi de production, j'aimerais y ajouter une fonctionnalité qui consisterait, avant fermeture du classeur, à vérifier la présence dans la plage de cellule "D1473" d'une feuille nommée "Suivi Prod", la présence de "x", compter ce nb de croix et copier coller dans un autre onglet -feuille nommée "Log"-, le nombre de "x" dans un message box

J'ai commencé avec ce code, le pb c'est que je ne veux pas le faire pour chacune des "x" (donc pas de boucle "for each") et je ne sais pas comment intégrer un compteur dans le message box que j'affiche

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim target As Range
 
For Each target In Range("D14:D73")
 
    If target.Value = "x" Then
 
    MsgBox ("L'ensemble des opérations n'a pas été vérifié. Il reste x opérations N/A")
 
    With Sheets("Log")
    .Select
 
    .Range("C65536").End(xlUp)(4) = "L'ensemble des opérations n'a pas été vérifié. Il reste x opérations N/A
 
    ActiveSheet.Paste
 
    .Range("E65536").End(xlUp)(4).Value = Environ("username")
    .Range("F65536").End(xlUp)(4).Value = Now()
 
    End With
 
    End If
 
Next
 
End Sub
D'avance merci pour votre aide!