Discussion :

[frunch]

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 :

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
   '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. forum.xlsm
Merci de votre aide

[jurassic pork]

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

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
   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 :

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

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 :

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

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

[frunch]

Bonjour Jurassik pork
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

[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 :

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

1
2
3
4
  '  ElseIf Me.tach.Value = "" Then 'num tach autom
   '     MsgBox "Veuillez saisir une tâche."
    '    Me.tach.SetFocus
     '   GoTo fin

[frunch]

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

[jurassic pork]

OK

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