Sélectionner un élément précis dans une combobox

Tout d'abord merci pour l'attention que vous porterez à ma requête.

Alors voila j'ai créer un userform dans lequel j'y ai inséré un certain nombre de combobox, le tout constituant un formulaire assez important.

Ce formulaire est activé par un bouton présent sur une feuille excel, et sert à incrémenter la base de données de cette feuille excel, la saisie d'un formulaire remplissant une ligne de la feuille excel.

J'aimerais ajouter un bouton Modifier sur cette feuille excel, qui me permettrais, en indiquant le numéro de ligne que je souhaite modifier, de retrouver le formulaire DEJA PREREMPLI avec les données que l'utilisateur avait saisi.

J'espère être suffisamment clair.

J'ai pensé inclure dans le formulaire de saisie un copier coller de tous les listindex saisies dans les combobox vers des cellules excel, et m'y référer quand je clique sur le bouton modifier, mais le souci c'est que la base de données est déjà très conséquente, et toutes ces données n'ont pas été entrées par le biais du formulaire.

Je pensais avoir trouvé la réponse à ma question avec la fonction FindString, mais j'ai beau tourner ca dans tous les sens, ca ne marche pas (est-ce parce que je suis sur Excel 2003 ?)

Merci pour votre aide...

Ne pourrai tu pas lancer ton formulaire en remplissant les champs du formulaire par les infos qui figurent dans la ligne.
Genre clic sur modifier => inputbox "saisir le n° de ligne"
Ensuite tu ouvre un formulaire vierge et viens remplir le formulaire avec les infos contenue dans la ligne.
genre

Code:

---

1 2 3 4

useform initialise Comboxbox1.value= range(i,3).value Comboxbox2.value= range(i,5).value et ainsi de suite...

---

Ca demande un peut de travail pour definir quelle case dans la ligne va dans quel champs, et c'est mieux si tes lignes sont homogènes, même info = même colonne.

Essaye la fonction find tout seul non?

Je ne suis pas sur de répondre a ta question mais regarde ceci
tu recherche quelque chose colonne A et tu veux mettre la valeur colonne B dans un textebox

Je te laisse adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() Dim DerniereLigne As Long, i As Long Dim cher As String Dim c As Range cher = TextBox1 DerniereLigne = Range("A65536").End(xlUp).Row Set c = Range("A1:A" & DerniereLigne).Find(cher)   If Not c Is Nothing Then i = c.Row TextBox2 = Cells(i, 2) 'tu fait pareille avec les autre valeur Else i = DerniereLigne + 1 End If End Sub

---

Par contre je te conseillerai de déclarer i commun a tout ton userform tu en aura besoin pour remplacer les valeurs ca t'évitera de le recherche

Merci pour vos réponses.

La solution que tu proposes diude, ne marche pas dans mon cas. Sans soute parce que mes listes de combobox sont fermées (pas de possibilité de rajouter d'élément à la liste).

merci krovax, j'y ai pensé aussi, mais en fait c'est l'opération inverse que je veux faire : à partir d'un élément présent dans une cellule je veux que mon combobox le retrouve dans sa liste et l'affiche.
Peut être que la fonction Find s'applique à la liste combobox, mais pour l'instant je n'ai pas trouvé comment...

Si l'élément qui figure dans la ligne est dans la liste de la combobox il n'y aura pas de problème pour définir la valeur de départ de la combobox sur cette valeur

Toutes mes excuses diude ta proposition semble marcher...
... mais il reste quelques problèmes.

Voisi un bout de mon code que j'ai modifié avec ta proposition.

le 1) marche nickel, le 2) bloque.


'1) IMTm (liste fermée)

Code:

---

1 2 3 4 5

IMTm.AddItem "CL" IMTm.AddItem "CLB" IMTm.AddItem "ER"   IMTm.Value = Worksheets("Détail Opérations").Cells(ligneàmodifier, 1).Value

---

'2) Clientm (liste ouverte)

Code:

---

1 2 3 4 5 6

Dim listeclients As String Worksheets("Détail Opérations").Select listeclients = "b3:b" & (derniereligne) Clientm.RowSource = listeclients   Clientsm.Value = Worksheets("Détail Opérations").Cells(ligneàmodifier, 2).Value

---

le (derniereligne) entre parenthèse c'est normal ? tu l'as défini comme cela ?

si ta variable est derniereligne alors enlève les parenthèse de ton code
autre problème de syntaxe un coup c'est :
Clientm
l'autre c'est :
Clientsm

donc faire gaffe à ça déjà

Les parenthèses en vont rien changé elle sont inutile mais pas génante

Relis le code je cherche la valeur d'un textbox (que tu peux remplacer par un combo) et je rempli un autre textbox (que tu peux remplacer par un combo)


Sinon pour le 2 essaye

Code:

---

1 2	Clientm.RowSource = range(listeclients)

---

Et utilise les balise code, regarde le premier message du forum si tu ne sais pas faire.

Je vous remercie de vous être penché sur mon problème et de l'avoir résolu.

Je commence à comprendre que tout est une question d'expérience et surtout de rigueur. C'est très formateur la programmation.

Cordialement !