2 dictionnaires dans une macro

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,
Je suis pas encore familier des dicos et j'arrive pas à l'utiliser 2 fois dans la même macro. La 1ere c'est pour que les noms des salariés ne soient pas sélectionnés 2 fois dans la liste, la 2éme pour avoir le numéro de l'enregistrement non utilisé.
Que je crée 2 dictionnaires ou que je fasse un remove all avant la 2éme utilisation, seul le 1er dictionnaire fonctionne.
Il y a aussi le souci du texte ou numérique. Pour le texte il y a dico.CompareMode = TextCompare, mais pour le numérique ?

Code:

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
   'verif doublons salariés en liste
        Set dico = CreateObject("scripting.dictionary")
        dico.CompareMode = TextCompare
       For i = 0 To Me.LstSals.ListCount - 1
          If Not dico.exists(Me.LstSals.List(i)) Then
            dico.Add Me.LstSals.List(i), ""
          ElseIf dico.exists(Me.LstSals.List(i)) Then
            'dic.items
            MsgBox "Il ne peut y avoir 2 fois le même salarié dans la liste.": GoTo fin
          End If
      Next i
    'numero tache inutilisé
        'dico.RemoveAll
        Set dico2 = CreateObject("scripting.dictionary")
        With Sheets("Taches")
         ' If .FilterMode Then .ShowAllData
           t = .Range("e1:e" & drn1)
           For i = 2 To UBound(t)
                 If Not dico2.exists(t(i, 1)) Then
                     dico2.Add t(i, 1), ""
                 End If
           Next i
             For j = 1 To 1000
                 If Not dico2.exists(j) Then
                     Me.numT.Value = j
                     Exit For
                 End If
             Next j
         End With

Pour les tests, ouvrez le formulaire en clic droit dans le fichier. Pièce jointe 645153
Merci de votre aide

Hello,
qu'est-ce qui ne fonctionne pas avec le deuxième dictionnaire ? parce que moi avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
   Dim i%, j%, ws1 As Worksheet
     Dim drn1%, t, dico2 As Object
     Set ws1 = Sheets("Taches")
     drn1 = ws1.Range("B" & Rows.Count).End(xlUp).Row 'taches
     Set dico2 = CreateObject("scripting.dictionary")
        With ws1
         ' If .FilterMode Then .ShowAllData
           t = .Range("e1:e" & drn1)
           For i = 2 To UBound(t)
                 If Not dico2.exists(t(i, 1)) Then
                     dico2.Add t(i, 1), ""
                 End If
           Next i
             For j = 1 To 1000
                 If Not dico2.exists(j) Then
                     Me.numT.Value = j
                     Exit For
                 End If
             Next j
         End With
    Debug.Print "1er numéro de tâche libre : ", j

j'obtiens bien 5 qui est le premier numéro de tâche libre dans ta feuille tâches.
En ce qui concerne le CompareMode quand la clé est un nombre pas la peine de l'utiliser.
Et puis dans le code :

Code:

1
2
3
4
5
6
7
8
     For i = 0 To Me.LstSals.ListCount - 1
          If Not dico.exists(Me.LstSals.List(i)) Then
            dico.Add Me.LstSals.List(i), ""
          ElseIf dico.exists(Me.LstSals.List(i)) Then
            'dic.items
            MsgBox "Il ne peut y avoir 2 fois le même salarié dans la liste.": GoTo fin
          End If
      Next i

Pas la peine de faire un ElseIf (car c'est la même condition qui est testée) un simple Else suffit :

Code:

1
2
3
4
5
6
7
8
     For i = 0 To Me.LstSals.ListCount - 1
          If Not dico.exists(Me.LstSals.List(i)) Then
            dico.Add Me.LstSals.List(i), ""
          Else
            'dic.items
            MsgBox "Il ne peut y avoir 2 fois le même salarié dans la liste.": GoTo fin
          End If
      Next i

Ami calmant, J.P

12/10/2023, 13h54
frunch

Bonjour Jurassik pork :lol:
Merci pour ta réponse.
Ce qui marche pas c'est que le champ n° de tâche du formulaire ne se remplit pas. Même le debug print n'affiche rien pour moi.
Oui les 2 codes fonctionnent séparément, mais mis ensemble, seul le 1er fonctionne.
Merci
12/10/2023, 14h34
jurassic pork
C'est normal que cela ne fonctionne pas : dans tes tests de vérification tu testes le n° de taches alors que c'est lui que l'on va déterminer, il faut mettre cette partie en commentaire :
Code:

1 2 3 4 ' ElseIf Me.tach.Value = "" Then 'num tach autom ' MsgBox "Veuillez saisir une tâche." ' Me.tach.SetFocus ' GoTo fin
12/10/2023, 14h57
frunch

c'est Me.numT.Value le numéro de tache
me.tach.value c'est le nom de la tache.
12/10/2023, 15h42
jurassic pork

OK

Citation:

Envoyé par frunch

c'est Me.numT.Value le numéro de tache
me.tach.value c'est le nom de la tache.

Mode opératoire ? parce que chez moi cela a l'air de fonctionner et dans le code concernant les dictionnaires je ne vois rien d'anormal. Et le debug.Print devrait au moins afficher une valeur numérique
12/10/2023, 16h38
frunch

2 pièce(s) jointe(s)

Mode opératoire ?
J'ai recopié les pages et transférer les formulaires sur un autre fichier, c pareil.
Pièce jointe 645189
12/10/2023, 16h46
jurassic pork

C'est normal que cela ne fonctionne pas quand il y a un salarié en double : juste après ton message il y a un Goto Fin :

Code:

MsgBox "Il ne peut y avoir 2 fois le même salarié dans la liste.": GoTo fin

Tu ne passes pas alors dans le code du deuxième dico
12/10/2023, 17h16
frunch

1 pièce(s) jointe(s)

Ah oui c'est vrai, il fallait tester sans doublon de salarié.
Pièce jointe 645195
A force de tester :roll:
Bravo :ccool::bravo:, merci d'avoir insister.