Discussion :

[NEC14]

Bonjour à tous,

J'ai une Combo qui est alimentée par des données se trouvant dans la feuille "Base_Produits", des cellules A8:A1007. Les données sont sous la forme P0001, P0002? etc... jusqu'à P01000.
J'aimerai savoir comment faire pour les codes produits déjà utilisés n'apparaissent plus dans ma Combo. Par exemple, si j'utilise P0001, alors la prochaine fois que j'ouvrirai mon UF où se trouve la Combo, alors la Combo devra proposer les codes à partir de P0002, le code P0001 n'apparaissant plus puisque déjà utilisé.

J'espère avoir été clair dans mes explications. Merci par avance pour l'aide que vous pourrez m'apporter.

Bien amicalement

[boisgontierjacques]

Bonjour,

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
Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  b = f.Range("c2:c" & f.[c65000].End(xlUp).Row)
  Me.ComboBox1.List = Diff(a, b)
End Sub
 
Function Diff(a, b)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In b: MonDico1(c) = c:  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In a
    If Not MonDico1.Exists(c) Then mondico2(c) = c
  Next c
  Diff = mondico2.keys
End Function

Boisgontier

[NEC14]

Bonjour Jacques,

Merci beaucoup, je n'aurai jamais trouvé seul. Tu m'enlèves une grosse épine du pied.
Salutations amicales

[NEC14]

Je me suis réjouit un peu vide. Lorsque j'appelle mon UF un message d'erreur apparait : "Erreur 70 Permission refusée". Je ne vois pas ce qui cloche.
L'erreur est située ici dans ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button_Bas_Prod_Click()
Application.ScreenUpdating = False

    Sheets("Base_Produits").Visible = True
    Sheets("Base_Produits").Activate
    
Application.ScreenUpdating = True
    Load UFProduits 'Erreur sur cette ligne
    UFProduits.Show
End Sub

Voici le code donné par Jacques modifié selon mes besoins :

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
 
Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("Base_Produits")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  b = f.Range("B2:B" & f.[B65000].End(xlUp).Row)
  Me.CmbCodeProd.List = Diff(a, b)
End Sub
 
Function Diff(a, b)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In b: MonDico1(c) = c:  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In a
    If Not MonDico1.Exists(c) Then mondico2(c) = c
  Next c
  Diff = mondico2.keys
End Function

Dans un module :

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
 
Function Diff(champ1 As Range, champ2 As Range)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  a = champ1.Value
  b = champ2.Value
  For Each c In b: MonDico1(c) = c:  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In a
    If Not MonDico1.Exists(c) Then mondico2(c) = c
  Next c
  Dim d()
  ReDim d(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico2.items
     d(i) = c
     i = i + 1
  Next c
  Diff = Application.Transpose(d)
End Function

[boisgontierjacques]

La fonction du module ne sert à rien.

Les éléments choisis sont-ils bien sur la feuille Base_produits

Si ce n'est pas le cas:

Code :

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

1
2
  set f2=sheets("xxxxxx")
  b = f2.Range("B2:B" & f2.[B65000].End(xlUp).Row)

Boisgontier

[NEC14]

Jacques,

Oui les éléments choisis sont bien dans la feuille "Base_Produits". Je vais supprimer le module et retenter le coup.
Merci pour ton aide