Discussion :

[adamsmith]

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...

[diude54]

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 :

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

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.

[Krovax]

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 :

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

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

[adamsmith]

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...

[diude54]

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

[adamsmith]

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 :

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

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 :

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

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

[david_atx]

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à

[Krovax]

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 :

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

1
2
 
Clientm.RowSource = range(listeclients)

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

[adamsmith]

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 !