Bonjour à tous de nouveau,

voilà, j'ai fait ce code qui est censé me donner une msgbox quand les deux conditions sont réunies. Malheureusement, cela n'a pas l'air de fonctionner. Il ne plante pas, mais il affiche la première msgbox sans que la deuxième condition (second for each) ne soit faite.

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
 
Sub Bouton_valider_S()
 
Dim i As Long
Dim j As Long
Dim maxtab As Long
Dim Plage As Range
Dim c As Range
Dim d As Range
Dim dte As String
Dim C1 As Workbook
    Set C1 = ActiveWorkbook
Dim f As Worksheet
    Set f = C1.Worksheets("Feuil1")
Dim Accueil As Worksheet
 
'défini la plage de recherche
    With Worksheets("Feuil1")
        Set Plage = .Range(.[A1], .[G65536].End(xlUp))
    End With
 
'valeur cherchée
dte = sheets("Accueil").[G12].Value
 
Application.ScreenUpdating = False
 
sheets("Feuil1").Select
 
Dim k As Integer
k = ActiveSheet.UsedRange.Rows.Count
 
    For Each c In f.Range("A2:A" & k)
        If c Like dte Then
            For Each d In f.Range("C2:C" & k)
                        If d = "SECURITE" Then
                            MsgBox "Un audit à déjà été validé à cette date. Merci de bien vouloir saisir une autre date.", vbInformation
                            sheets("Accueil").Select
                            Range("G12").Select
                            Application.ScreenUpdating = True
                            Exit Sub
                        End If
            Next
        End If
    Next
Ca doit surement êttre bancal, mais pour moi ça me semblait plus ou moins logique

Merci

Flo