Moteur de recherche et de modif

[chaelie2015]

Bonsoir Forum
Je souhaite faire une recherche par Combobox et afficher les résultats qui correspond dans les TextBox et combobox
mon souci est comment faire pour modifier(Editer) les résultats trouvées et les retourner a la base de donnée
a+

 

[chaelie2015]

Bonjour Forum
est ce que mon souci est clair?
a+

 

[job75]

Bonjour chaelie2015,

C'est un travail assez important et il n'y a pas le début d'un commencement de codage de votre part.

Par ailleurs le remplissage de la ComboBox ITEM14 demeure un mystère.

A+

 

[chaelie2015]

Bonjour Job
comme tu as demandé ci joint le fichier pour la partie RECHERCHER c'est fait .
mon souci comment faire pour editer des données et aller vers la ligne qui correspond.
a+

 

[job75]

Le bouton MODIFIER est inutile, placez pour chacun des contrôles une macro comme celle-ci :

Private Sub TextBox1_Change()
Dim Idx As Long
Idx = ComboBox1.ListIndex
If Idx > -1 Then Sheets("Base de Données").Range("C" & Idx + 4) = TextBox1.Value
End Sub

A priori la ComboBox pour ITEM14 ne sert à rien, elle doit être remplacée par une TextBox.

 

[chaelie2015]

Bonjour Job
merci pour la réponse
1. si j'aurai des dizaine de textbox donc pour chaque controle Macro.
2. je souhaite valider la modif. par bouton
merci
Editer
j'ai rassemblé les macro ??
Private Sub CommandButton2_Click()
Dim Idx As Long
Idx = ComboBox1.ListIndex
If Idx > -1 Then Sheets("Base de Données").Range("C" & Idx + 4) = TextBox1
If Idx > -1 Then Sheets("Base de Données").Range("E" & Idx + 4) = TextBox2
If Idx > -1 Then Sheets("Base de Données").Range("H" & Idx + 4) = TextBox3
If Idx > -1 Then Sheets("Base de Données").Range("N" & Idx + 4) = ComboBox2
MsgBox "ok"
End Sub

 

[job75]

D'accord mais écrivez alors :

Private Sub CommandButton2_Click()
Dim Idx As Long
Idx = ComboBox1.ListIndex
If Idx = -1 Then Exit Sub
With Sheets("Base de Données")
    .Range("C" & Idx + 4) = TextBox1.Value
    .Range("E" & Idx + 4) = TextBox2.Value
    .Range("H" & Idx + 4) = TextBox3.Value
    .Range("N" & Idx + 4) = ComboBox2.Value
End With
MsgBox "ok"
End Sub

.Value est nécessaire si l'on entre des nombres.

 

[chaelie2015]

Bonsoir Job
merci pour la solution.
souci résolut
PARIS SG-----REAL MADRID
a+