1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub Modifier_Click()
Dim no_ligne As Integer
Sheets("Données").Select
no_ligne = ComboBox1.ListIndex + 2
Debug.Print "N° de la ligne choisie : " & no_ligne
If ComboBox1.Value = "" Then
MsgBox ("Veuillez remplir le champs de la recherche!")
Else
Cells(no_ligne, 1) = TextBox1.Value
Cells(no_ligne, 2) = TextBox2.Value
Cells(no_ligne, 3) = TextBox3.Value
Cells(no_ligne, 4) = TextBox4.Value
Cells(no_ligne, 5) = TextBox5.Value
Cells(no_ligne, 6) = TextBox6.Value
Cells(no_ligne, 7) = TextBox7.Value
End If
End Sub |
Partager