[VB] ajout d'élément dans une combobox

Fermé

Nico - 19 juin 2006 à 10:48
Hasstag Messages postés 7 Date d'inscription vendredi 17 juillet 2015 Statut Membre Dernière intervention 24 juillet 2015 - 17 juil. 2015 à 11:44

bonjour,

(je suis en visual basic),

lorsque je clique sur un bouton , j'ajoute 2 éléments dans ma combobox :

macombo.AddItem (montext1)
macombo.AddItem (montext2)

mais lorsque je reclic sur ce bouton , il m'ajoute en double les éléments ex :

montext1
montext2
montext1
montext2

au lieu de :

montext1
montext2

quelque soit le nombre de fois où je clique sur le bouton.Je crois qu'il y a quelque chose avec la propriété index mais...

Merci d'avance

A voir également:

Additem combobox vba
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

Djeter
7 juil. 2008 à 17:05

hello...

il suffit de faire :
ComboBox1.Clear, avant chaque rechargement afin d'effacer le contenu précédent de la liste...

Good luck !

ramo
2 févr. 2009 à 15:55

j presque aussi le méme probléme mais quand je tape combobox.clear il me donne "'clear' n po un membre de System.windows.forms.combobox"
jéspère avoir une réponse dans le plus vite possible et merci d'avance

Réponse 2 / 4

choubaka Messages postés 39424 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 4 avril 2025 2 104
19 juin 2006 à 11:15

salut

Tu dois effectivement désigner l'index où tu dois ajouter l'Item. Donc récupérer le nombre d'Item déjà dans le combobox normalement le premier index est égal à zéro, donc nombre d'Item -1 te donne le dernier index utilisé.

Si tu dispose de 4 Item, le dernier est stocké dans l'index 3.

ComboBox1.AddItem("test", ComboBox1.ListIndex);

ça doit donner un truc comme ça, à vérifier

Réponse 3 / 4

skyloo Messages postés 7 Date d'inscription dimanche 29 juillet 2007 Statut Membre Dernière intervention 8 novembre 2007 1
3 nov. 2007 à 12:12

bonjour tt le monde
j'ai vu qq façon pr ajouter une liste des choix ds la combobox mais à chq fois q j'retape la mm chose ça marche pa par exemple combo1.additem "montext" ou bien combo1.additem ("montext",combo1.listindex)
c koi la solution à votre avis???

nihilito
8 avril 2008 à 20:25

peut-être l'endroit où vous tapez le code tout simplement.

Réponse 4 / 4

Hasstag Messages postés 7 Date d'inscription vendredi 17 juillet 2015 Statut Membre Dernière intervention 24 juillet 2015
17 juil. 2015 à 11:44

Bonjour,

j'ai eu le même problème, et j'ai fait ce code qui regarde si l'item à ajouter n'existe pas déjà :

If Form2.TextBox0.Text <> "" Then
For i = 0 To ComboBox1.Items.Count - 1
If ComboBox1.Items(i) = UCase(Form2.TextBox0.Text) Then
C = 1
End If
Next i
If C = 0 Then
ComboBox1.Items.Add(UCase(Form2.TextBox0.Text))

End If
End If

j'espère que ça va t'aider

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0