Doublon dans plusieurs combobox

Le 11/11/2015 à 20:24

Bonsoir !

J'ai vu qu'il y avait déjà beaucoup de question avec des réponses plus ou moins identiques mais je n'y arrive pas !!

Je voudrais supprimer les doublons dans toutes les combobox qui alimente ma BD.

Mon code ;

Private Sub ComboBox1_Change()
Dim Valeur As Date
Valeur = Date
TextBox5 = Valeur
End Sub
Private Sub Plus_Click()
'imossible de valider tant que TOUS les choix ne sont pas sélectionnés
 If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Famille"
    Exit Sub
  End If

If Me.ComboBox2.ListIndex = -1 Then
MsgBox "Veuillez sélectionner un Nom"
Exit Sub
End If

 If Me.ComboBox3.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Couleur"
    Exit Sub
  End If

   If Me.ComboBox4.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Pièce"
    Exit Sub
  End If

   '--- Positionnement dans la base
   Sheets("Entrées").Select
    [A65000].End(xlUp).Offset(1, 0).Select

   '--- Transfert Formulaire dans BD
   'affiche Famille dans entrées colA
   ActiveCell.Offset(0, 0) = Application.Proper(Me.ComboBox1)
   'affiche Nom dans Entrées colB
   ActiveCell.Offset(0, 1) = Application.Proper(Me.ComboBox2)
   'affiche couleur dans Entrées colC
   ActiveCell.Offset(0, 2) = Application.Proper(Me.ComboBox3)
   'affiche Pièce dans Entrées colD
   ActiveCell.Offset(0, 3) = Application.Proper(Me.ComboBox4)
   'affiche Collaborateur dans entrées colG
   ActiveCell.Offset(0, 6) = Application.Proper(Me.TextBox9)
   'affiche Quantité+ dans Entrées colF
   ActiveCell.Offset(0, 4) = Application.Proper(Me.TextBox4)
   'formatise la date dans la cellule de l'userform
    Me.TextBox5 = Format(TextBox5.Value, "mm/dd/yyyy")
   'affiche la date dans entrées colH
    ActiveCell.Offset(0, 7) = Application.Proper(Me.TextBox5)

End Sub
Private Sub Moins_Click()
'controle les 4 choix. ne valide pas tant que les choix ne sont pas sélectionnés
 If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Famille"
    Exit Sub
  End If

If Me.ComboBox2.ListIndex = -1 Then
MsgBox "Veuillez sélectionner un Nom"
Exit Sub
End If

 If Me.ComboBox3.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Couleur"
    Exit Sub
  End If

   If Me.ComboBox4.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une Pièce"
    Exit Sub
  End If
   '--- Positionnement dans la base
   Sheets("Entrées").Select
    [A65000].End(xlUp).Offset(1, 0).Select

   '--- Transfert Formulaire dans BD
   'affiche Famille dans entrées colA
   ActiveCell.Offset(0, 0) = Application.Proper(Me.ComboBox1)
   'affiche Nom dans Entrées colB
   ActiveCell.Offset(0, 1) = Application.Proper(Me.ComboBox2)
   'affiche couleur dans Entrées colC
   ActiveCell.Offset(0, 2) = Application.Proper(Me.ComboBox3)
   'affiche Pièce dans Entrées colD
   ActiveCell.Offset(0, 3) = Application.Proper(Me.ComboBox4)
   'affiche Collaborateur dans entrées colG
   ActiveCell.Offset(0, 6) = Application.Proper(Me.TextBox9)
   'affiche Quantité- dans Entrées colE
   ActiveCell.Offset(0, 5) = Application.Proper(Me.TextBox4)
   'formatise la date dans la cellule de l'userform
    Me.TextBox5 = Format(TextBox5.Value, "mm/dd/yyyy")
    'affiche la date dans entrées colH
    ActiveCell.Offset(0, 7) = Application.Proper(Me.TextBox5)

End Sub

Le code que j'ai trouvé sur le net

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 1 To Sheets("Base").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Base").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Base").Range("A" & i)
Next i

End Sub

mon fichier :

http://www.fichier-xls.fr/2015/11/11/gestion-stock-pd-transit-v2/

Est ce que ça ne marche pas parce qu'il y a conflit ?

Pouvez vous m'aider ?

Merci d'avance

Vivi

Le 12/11/2015 à 00:40

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Le 12/11/2015 à 07:54

C'est parfait ! merci beaucoup ^^

Avant de clôturer le sujet j'ai une dernière question :

Est-il possible de sélectionner dans la combobox que les pièces en relation avec les autres combobox ?

Que je choisisse Lit ou commode la suite va dépendre de ce que je choisis à chaque fois.

Exemple :

CBbox 1 : commode ou lit

CBbox 2 : malm 2 tiroirs ou malm 140x200

CBBox 3 : blanc ou noir ou rouge

CBbox 4 : traverse ou montant gauche ou tête de lit

Ce que j'aimerais c'est :

CBbox 1 : commode

CBbox2 : malm 2 tiroirs

CBbox3 : blanc ou noir ou rouge

CBbox 4 : traverse (en rapport avec le choix de la couleur)

ou CBox 1 : lit

CBbox 2 : malm 140x200

CBbox 3 : blanc ou noir ou rouge

CBBox 4 : tête de lit ( en rapport avec la couleur choisi)

La liste se fait en fonction de mes choix box1 puis box2 puix box3.

Merci d'avance

Et à la réponse je clôt le sujet promis ^^

A+

Vivi

Rechercher des sujets similaires à "doublon combobox"