Modifier listbox et feuille

job75

XLDnaute Barbatruc

• 25 Janvier 2011

• #2

Re : Modifier listbox et feuille

Bonjour Max,

Code:

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+

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 25 Janvier 2011

• #3

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.

 

Pièces jointes

• ListboxSupprimerModifierBD.zip

  20 KB · Affichages: 152

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Janvier 2011

• #4

Re : Modifier listbox et feuille

Bonjour apdf1, job75,

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

Cordialement.

Edit : bonjour Bernard

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 25 Janvier 2011

• #5

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

 

Pièces jointes

• listbox supprime et modifie.zip

  29 KB · Affichages: 178

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 25 Janvier 2011

• #6

Re : Modifier listbox et feuille

Re,

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

Bonne journée à tous

Max

 

Vote positif 0 Vote négatif