Discussion :

[lifestar]

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.

[Algoplus]

Bonjour,

Le code serait plus lisible s'il était indenté et mis entre balise [code].
Il y a certainement des messages d'erreur qui devraient vous mettre sur la voie, d'autant que les lignes en erreurs sont surlignées jaunes.

Pour le premier bloc de code:

1) pas sûr de comprendre l'origine et la finalité du dico "dicoFrigo".

2)

Code :

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

If Range("v") = "OK"

la syntaxe de la ligne n'est pas correcte : manque then ; et dans Range("v") il manque l'indication de la ligne.
puisque qu'on a un tableau (t = .Range("a1:v" & .Cells(.Rows.Count, "a").End(xlUp).Row).Value ) lire directement dedans la valeur de la colonne V:

Code :

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

If T(i,22)="OK" Then

3)
Ce n'est pas la peine de balayer toutes les feuilles pour n'avoir des actions que sur une seule. Utiliser With Worksheets("Régime 2") à la place de With wsh, et supprimer la boucle

4)

Code :

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

If LCase(wsh.Name) Like "Régime 2" Then

LCase "transforme" une chaine en minuscule, LCase(wsh.Name) ne pourra jamais être égal à une chaine commençant par une majuscule.
Cette ligne n'est plus nécessaire de par le 3)

Pas regardé le reste .

A+