CreateObject("Scripting.Dictionary") avec 2 conditions

[Chris401]

Bonsoir à tous

Je n'arrive pas à faire tourner un code si j'indique 2 conditions au lieu d'une

Merci de votre aide
Cordialement
Chris

 

[Grand Chaman Excel]

Re : CreateObject("Scripting.Dictionary") avec 2 conditions

Bonjour,
Si j'ai bien compris :

If Cel.Offset(0, 7) = "" Then Mondico(Cel.Value) = Cel.Value

A+

 

[Chris401]

Re : CreateObject("Scripting.Dictionary") avec 2 conditions

Bonsoir

Merci de m'aider mais ce n'est pas ça.

Actuellement, la partie du code qui fonctionne est :

If d.Offset(0, -1) = c Then Mondico(d.Value) = d.Value

Mais je veux ajouter une condition du genre :

If d.Offset(0, -1) = c And d.Offset(0, 6) = "" Then Mondico(d.Value) = d.Value

Mais là, ça bug

Chris

 

[Grand Chaman Excel]

Re : CreateObject("Scripting.Dictionary") avec 2 conditions

Oups, je n'avais pas regardé la bonne macro.

Rapidement, j'ai fait ceci... à essayer :

'2ème liste - Fournisseur_Produit et dessous les numéros de lot
     ligne = 2
    
    For Each c In Range(Sheets("LISTE").Cells(2, 12), Sheets("LISTE").Cells(65000, 12).End(xlUp))
     If c <> "" Then
      Set Mondico = CreateObject("Scripting.Dictionary")
      
      For Each d In Range(Sheets("ARRIVAGE").Cells(2, 5), Sheets("ARRIVAGE").Cells(65000, 5).End(xlUp))
      
        'Avec une seule condition c'est OK
        'If d.Offset(0, -1) = c Then Mondico(d.Value) = d.Value
        
         '*** Avec 2 conditons - Cette façon d'écrire ne fonctionne pas
        If d.Offset(0, -1) = c And d.Offset(0, 5) = "" Then Mondico(d.Value) = d.Value
        
      Next d
     
      Sheets("LISTE").Cells(ligne, 14) = c
      Sheets("LISTE").Cells(ligne, 14).Font.Bold = True
      
      If Mondico.Count Then
         Sheets("LISTE").Cells(ligne + 1, 14).Resize(Mondico.Count) = Application.Transpose(Mondico.items)
         ActiveWorkbook.Names.Add Name:=Replace(c, " ", "_"), RefersTo:=Sheets("LISTE").Cells(ligne + 1, 14).Resize(Mondico.Count)
         ligne = ligne + Mondico.Count + 1
      End If
     End If
    Next c
    Sheets("LISTE").Columns("N:N").NumberFormat = "@"
    Sheets("LISTE").Columns("N:N").Copy Sheets("LISTE").Cells(1, 14)

 

[Chris401]

Re : CreateObject("Scripting.Dictionary") avec 2 conditions

Re

Mais ça m'a l'air de fonctionner tout ça!
Dès demain, je teste avec mon fichier réel.

Merci beaucoup
Chris