Moteur de recherche et de modif

chaelie2015

XLDnaute Accro

• 18 Septembre 2019

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2019

• #3

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Septembre 2019

• #4

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+

 

Pièces jointes

• CHARLIER MOTEUR DE RECHERCHE ET MODIFICATION.xlsm

  18.6 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2019

• #5

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

VB:

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.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Septembre 2019

• #6

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

 

Pièces jointes

• CHARLIER MOTEUR DE RECHERCHE ET MODIFICATION.xlsm

  18.9 KB · Affichages: 18

Dernière édition: 18 Septembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2019

• #7

D'accord mais écrivez alors :

VB:

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.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Septembre 2019

• #8

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

 

Vote positif 0 Vote négatif