Recherche l'interieur une combobox

[WyLLoU]

Bonjour,j'ai un petite souci avec ma combobox,qui je pense ne dois pas être très difficile,mais la j'ai un trou de mémoire

Donc pour mettre en forme, j'ai ma combobox dans laquel j'ajoute des noms (méthode additem biensur) par une boucle For; mais ce que je veux c'est que avant de rentrer un nom,qu'il vérifie que ce nom n'existe pas encore dans la combobox....pour éviter les doublons;pour ne pas avoir deux fois le mm nom dans ma liste de combo...voilà.

Donc enfet il me faudrait la proprièté qui renvoi le contenue de la combo et ça position index...comme CB.value,mais value c'est juste la valeur sélectionner...voilà

Eclairez moi svp !!!

 

[Hervé]

Bonjour tout le monde

Wyllou,

Ton combobox se trouve sur un userform ?
tu veux éviter les doublons lors de l'initialisation de cette combobox, ou lorsque tu rajoutes un nom ?

sinon , ce type de macro, boucle sur chaque item d'une combobox :

Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
MsgBox ComboBox1.List(i)
Next i

En attendant tes éclaircissements.

salut

 

[WyLLoU]

Trop merci c'est celà que je cherchais le .list,maintenant faut que j'arrive à bien le caser dans ma boucle....Thks

 

[WyLLoU]

ARFFF quand je met une variable à la place du numéro du .list...il rale hmy:


t'as une solution pour ça??? :ermm:

 

[WyLLoU]

Jai un souci,ça me fait encore plus de doublons inch:..je met le fichier avec...

 

[Hervé]

re



Wyllou,

Je ne vois pas ton fichier.

En plus je t'ai posé 2 questions dans mon premier post, c'est justement pour pouvoir orienter nos recherches.

Salut

 

[WyLLoU]

bin a chaque fois que je rajoute un nom dans la combo box,faut vérifié si il n'est pas déja dedan
.;

 

[ChTi160]

Salut Willou seras Jerome ????
bonjour Hervé

n'as tu pas déjà posé la question ?????

Tu boucles sur une colonne et tu entres les données dans ton Combo
c'est ca ???

je pense tavoir conseillé de rentré tes données via une collection ce qui évite les doublons
ensuite si tu veux entrer directement des données dans ton combo tu passe(à chaque fois par une boucle qui reprends les données de ta combo et les compare) comme te le dit Hervé

 

[Hervé]

re
salut chti

Ce type de macro, vérifie si un item saisie par combobox est déjà présent dans le controle.

Dim i As Byte

For i = 0 To ComboBox1.ListCount - 1
    If ComboBox1.List(i) = ComboBox1.Value Then
        MsgBox 'Déjà présent.', , 'Attention...'
        ComboBox1.Value = ''
        Exit Sub
    End If
Next i
ComboBox1.AddItem ComboBox1.Value

Salut

 

[ChTi160]

Salut Hervé

t'es bon tu sais Lol
bonne Journée

 

[Hervé]

resalut chti, le forum



chti, j'ai dit une bétise ???????



bien le bonjour à toi.

Salut

 

[ChTi160]

re Hervé Quelle Bêtise ????? Lol

non moi je me dis que de temps en temps ca fait du bien de s'entendre dire qu'on est Bon Lol Lol
moi je me le dis souvent lol !!!!!!

 

[Robert]

Bonjour le fil, bonjour le forum,

Tout a été dit et très bien dit pour ce post. Je me permets juste de mettre en pratique avec ce code full comment :

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
dim cel As Range 'déclare la variable cel
dim x as Integer 'déclare la variable x

'remplit la ComboBox1 sans doublon
'boucle sur toutes les cellules de la plage A1:A_dernière
For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
If ComboBox1.ListCount <> 0 Then 'condition : si la ComboBox1 n'est pas vide
For x = 0 To ComboBox1.ListCount - 1 'boucle sur tous les éléments de la ComboBox1
'si la valeur de la cellule égale un élément de la comboBox1
'va à la balise 'suite' (sans ajouter cet élément à la ComboBox1
If cel.Value = ComboBox1.List(x) Then GoTo suite
Next x 'prochain élément de la ComboBox1
End If 'fin de la condition
ComboBox1.AddItem cel.Value 'ajoute la valeur de la callule à la ComboBox1
suite: 'balise
Next cel 'prochaine cellule de la plage
End Sub

 

[Hervé]

Bonjour tout le monde

Bien vu, robert

Merci pour cet exemple.

Salut