Recherche et modifer aideVBA

Bonjour à tous, voila je souhaiterais faire une recherche VBA par rapport a une combobox et mettre les valeur inscrite dans les textbox, je vous joins mon fichier exemple dans les ligne associe à la recherche du combobox sur la ligne associe tous loin dans le fichier (colonne I à N)

Merci de votre aide par avance.

Bonsoir, j'ai essayé d'avancer mais j'ai une erreur mais je ne trouve pas

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben

merci de ta reponse c'est presque cela

mais dans la combobox1 il faut afficher la colonne D (cela je sais faire)

mais dans la texbox1 il faut la colonne i de la ligne associe à la combobox1

mais dans la texbox2 il faut la colonne J de la ligne associe à la combobox

mais dans la texbox3 il faut la colonne K de la ligne associe à la combobox

mais dans la texbox4 il faut la colonne L de la ligne associe à la combobox

mais dans la texbox5 il faut la colonne M de la ligne associe à la combobox

mais dans la texbox6 il faut la colonne N de la ligne associe à la combobox...

le textbox sert à rien par rapport à la combobox

je ne sais pas comment faire

Re-

• on a 7 textbox et 6 données à alimenter.
• l'exemple est probablement faux, tu mentionnes 3 fois la textbox1.

Ci-joint une nouvelle version à tester.

Je te laisse l'adapter si besoin, selon les colonnes que chaque textbox doit alimenter.

Bouben

Merci j'ai modifié le post précèdent

Concernant le resultat c'est ce que je cherche mais j'aimerais avoir une explication sur cet partie

Private Sub CommandButton1_Click()

If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then

Dim Ligne As Long

Dim I As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 6

For I = 1 To 6

If Me.Controls("TextBox" & I).Visible = True Then

Ws.Cells(Ligne, I + 8) = Me.Controls("TextBox" & I)

End If

Next I

End If

With Ws.Range("D2:D10")

.NumberFormat = "0"

.Value = .Value

End With

End Sub

les valeurs en bleu correspond au valeur de decalage -> est-ce bien cela?

Par contre a quoi correspond les valeurs D2:D10?

Bonsoir,

Les données commencent à la ligne 6,la première valeur de la combobox a l'indice 0 => ligne = indice + 6

With Ws.Range("D2:D10")

=> code du fichier initial, non modifié

Bonne soirée

Bouben