Private Sub CommandButton3_Click()
Dim lig As Long
lig = ListBox1.ListIndex + 1
Range("E8").Offset(lig) = TextBox4 'adresse
Range("F8").Offset(lig) = TextBox5 'CP
Range("G8").Offset(lig) = TextBox6 'ville
End Sub
Voici ma version de code à mettre dans CommandButton3_Click :
Code:
Private Sub CommandButton3_Click()
Dim Nom As String, i As Long
Nom = TextBox1.Text
With Sheets("Feuil1")
For i = 6 To 2 + .UsedRange.Rows.Count
If .Cells(i, 2) = Nom Then .Cells(i, 5) = TextBox4.Text
Next
End With
End Sub
Ci joint un fichier avec une autre approche, utilisation d'une listview, ce qui permet de modifier la base de donnée et l'affichage sans être obligé de supprimer la ligne de la listbox.
Un double click sur la colonne permet de trier les données sauf pour les dates, sans perdre le numéro de la ligne de la base de donnée.