Modifier listbox et feuille

[apdf1]

Bonjour,

J'aimerais via mon bouton, Modifier une adresse dans ma listbox et sur ma feuille.

Ci joint mon fichier.

Je vous remercie par avance

Cordialement

Max

 

[job75]

Re : Modifier listbox et feuille

Bonjour Max,

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

A+

 

[CBernardT]

Re : Modifier listbox et feuille

Re,

Salut job75

Une version un peu différente avec utilisation d'une variable tempon IndexLig = .ListIndex + 9 chargée au moment du double click.

Utilisation d'une boucle sur les Textbox et les cellules correspondantes.

 

[Papou-net]

Re : Modifier listbox et feuille

Bonjour apdf1, job75,

Voici ma version de code à mettre dans CommandButton3_Click :

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

Cordialement.

Edit : bonjour Bernard

 

[jp14]

Re : Modifier listbox et feuille

Bonjour à tous

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.

A tester

JP

 

[apdf1]

Re : Modifier listbox et feuille

Re,

Je vous remercie a tous ces super à toi Jp14, Papou, Bernard, Job 75 ....

Bonne journée à tous

Max