Discussion :

[VinceVDB]

"Bonjour"
Nous avons une question concernant la récupération des données d'une combobox.
Nous avons créé un formulaire.
Nous avons rentré "en dur" certains noms noms de vendeur dans une combobox (zone de liste modifiable).
cvendeur.AddItem "Morin"
cvendeur.AddItem "Berthauld"
cvendeur.AddItem "Dumont"
cvendeur.AddItem "Sansom"
cvendeur.AddItem "Simon"

Juste à côté de cette liste, nous avons créé un bouton "+" pour rajouter des vendeurs.

En cliquant sur le bouton "+" , nous faisons apparaître un inputbox demandant le nom du nouveau vendeur.
C'est là que nous bloquons puisque nous n'arrivons pas à comparer le contenu de l'inputbox à celui de la liste de nom déjà préremplie.
Nous avons essayé différentes formules comme :

Code :

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

1
2
3
vnouveau_vendeur = InputBox("Quel est le nom du vendeur que vous souhaitez rajouter ?")
If vnouveau_vendeur = saisie_donnees.cvendeur.ListIndex Then
MsgBox ("Ce vendeur existe déjà !")

(saisie_donnees étant le nom du userform, et cvendeur le nom de la combobox)

Ou encore

Code :

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

1
2
3
vnouveau_vendeur = InputBox("Quel est le nom du vendeur que vous souhaitez rajouter ?")
If vnouveau_vendeur = cvendeur.value Then
MsgBox ("Ce vendeur existe déjà !")

Auriez-vous des éléments pour nous guider ?

Merci d'avance,

Vince

[enernaej]

Bonjour,

Pour vérifiersi un élément est déjà membre d'une combobox, une solution est :

Code :

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

1
2
3
4
5
6
7
  nouveau_vendeur = InputBox("Quel est le nom du vendeur que vous souhaitez rajouter ?")
  cvendeur = nouveau_vendeur
  if cvendeur.ListIndex = -1 then
    cvendeur.AddItem nouveau_vendeur
  else
    MsgBox ("Ce vendeur existe déjà !")
  End If

A tester.

[AlainTech]

Bonjour,

Le problème que tu vas rencontrer est qu'après fermeture du classeur les ajouts seront perdus.
Tu ferais mieux de travailler avec les vendeurs dans une feuille paramètres qui peut, éventuellement, être cachée.