Bonjour à tous,

J'ai une macro avec les dictionnaires j'aimerai y insérer les deux critères suivant :
- Feuille : régime 2 → Le panier doit contenir les éléments du régime 2 (colonne a ) qui sont validée par le docteur : "OK" (colonne v)
- Feuille : Réfrigérateur → Le panier ne doit pas contenir les éléments du réfrigérateur (colonne F ) avec un "OUI" ( Colonne AE )

Voici le bout de la macro après modification qui ne fonctionne pas :

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
 
For Each wsh In ThisWorkbook.Worksheets  
  If LCase(wsh.Name) Like "Régime 2" Then 
    With wsh    
      t = .Range("a1:v" & .Cells(.Rows.Count, "a").End(xlUp).Row).Value   
      For i = 3 To UBound(t)  
        If Range("v") = "OK"
        If Not dicoFrigo.Exists(t(i, 1)) Then dicoPanier(t(i, 1)) = t(i, 1)
      Next i
    End With
  End If
Next wsh
 
For Each wsh In ThisWorkbook.Worksheets  
  If LCase(wsh.Name) Like "Réfrigérateur" Then 
    With wsh    
      t = .Range("f:ae" & .Cells(.Rows.Count, "f").End(xlUp).Row).Value   
      For i = 3 To UBound(t)  
        If Range("ae") = "OUI"
        If Not dicoPanier.Exists(t(i, 1)) Then dicoPanier(t(i, 1)) = t(i, 1)
      Next i
    End With
  End If
Next wsh
Merci d'avance à tous.