Oui ca je suis d'accord mais la cellule a modifier n'est pas connu elle est rechercher par la recherche depuis la colonne B qui m'affiche toute la ligne
je met ce que j'ai deja mis comme code cela aideras peut être.
Private Sub CommandButton2_Click()
Set objDVD = Application.ThisWorkbook.Worksheets.Item("feuil2")
Let blnvalidRecherche = True
'si pas de titre entrer
If Me.TextBox3.Value = "" Then
Call MsgBox("Veuiller entrer un titre !", vbCritical + vbOKOnly, "Erreur")
Let blnvalidRecherche = False
MsgBox "ce titre n'éxiste pas"
End If
Let lngNBligne = 2
'recherche du DVD
If blnvalidRecherche = True Then
Do While objDVD.Cells(lngNBligne, 1) <> ""
If Me.TextBox3.Value = objDVD.Cells(lngNBligne, 2) Then
TextBox7 = objDVD.Cells(lngNBligne, 1).Value
TextBox8 = objDVD.Cells(lngNBligne, 2).Value
TextBox9 = objDVD.Cells(lngNBligne, 3).Value
TextBox13 = objDVD.Cells(lngNBligne, 4).Value
TextBox14 = objDVD.Cells(lngNBligne, 5).Value
TextBox15 = objDVD.Cells(lngNBligne, 6).Value
TextBox20 = objDVD.Cells(lngNBligne, 7).Value
TextBox21 = objDVD.Cells(lngNBligne, 8).Value
TextBox22 = objDVD.Cells(lngNBligne, 9).Value
TextBox23 = objDVD.Cells(lngNBligne, 10).Value
TextBox27 = objDVD.Cells(lngNBligne, 11).Value
TextBox28 = objDVD.Cells(lngNBligne, 12).Value
TextBox29 = objDVD.Cells(lngNBligne, 13).Value
TextBox31 = objDVD.Cells(lngNBligne, 14).Value
End If
Let lngNBligne = lngNBligne + 1
Loop
End If
End Sub
Private Sub TextBox33_Change()
End Sub
Private Sub CommandButton3_Click()
End Sub
donc ce que je voudrai c'est que je rentre une modif dans le TextBox33_Change() et clique sur CommandButton3_Click() le contenu de la cellule de la colonne 1 change