comment enregistrer les modifs depuis des text box dans listview et BD

dindin

XLDnaute Occasionnel
Bonjour,

j'ai une BD , qui alimente une listview , après filtrage de cette dernière depuis un combo , et si besoin je dois modifier les infos d'un client afin que je puisse enregistrer les modifs depuis des textbox dans listview et BD en même temps .
ma 2 eme question est comment on pourra éventuellement supprimer un client .
je joins mon fichier .
 

Pièces jointes

  • A exemple_ListView - Copie.xls
    110 KB · Affichages: 55

dindin

XLDnaute Occasionnel
Re : comment enregistrer les modifs depuis des text box dans listview et BD

Merci pour ton fil
je vais essayer de l'adapter , sinon je reviendrai vers toi .
le souci ce que j'ai une listview et je n'arrive pas à trouver le code pour la mettre à jour (en cas de modification des textbox ) en même temps que la BD.
merci à toi
 

dindin

XLDnaute Occasionnel
Re : comment enregistrer les modifs depuis des text box dans listview et BD

Code:
Private Sub CommandButton1_Click() 'enregistrer les modifs
Dim no_ligne As Integer
Sheets("Liste").Select
      no_ligne = ListView1.SelectedItem
        
            Cells(no_ligne, 1) = TextBox2.Value
            Cells(no_ligne, 2) = TextBox3.Value
            Cells(no_ligne, 3) = TextBox4.Value
            Cells(no_ligne, 4) = TextBox5.Value
            Cells(no_ligne, 5) = TextBox6.Value
            Cells(no_ligne, 6) = TextBox7.Value
            Cells(no_ligne, 7) = TextBox8.Value
            Cells(no_ligne, 8) = TextBox9.Value
             Cells(no_ligne, 9) = TextBox10.Value
              Cells(no_ligne, 10) = TextBox11.Value
               Cells(no_ligne, 11) = TextBox12.Value
                Cells(no_ligne, 12) = TextBox13.Value
                 Cells(no_ligne, 13) = TextBox14.Value
                  Cells(no_ligne, 14) = TextBox15.Value
                   Cells(no_ligne, 15) = TextBox16.Value
                    Cells(no_ligne, 16) = TextBox17.Value
                     Cells(no_ligne, 17) = TextBox18.Value
                      Cells(no_ligne, 18) = TextBox19.Value
                      Cells(no_ligne, 19) = TextBox20.Value
                      Cells(no_ligne, 20) = TextBox21.Value
                      Cells(no_ligne, 21) = TextBox22.Value
                      Cells(no_ligne, 22) = TextBox23.Value
                      Cells(no_ligne, 23) = TextBox24.Value
             Cells(no_ligne, 24) = TextBox25.Value
            
     
        
Unload UserForm1

UserForm1.Show
End Sub

en utilisant ce code rien ne se passe , je n'arrive pas à lui dire d'aller modifier la ligne sélectionnée du listview
 

Discussions similaires

Statistiques des forums

Discussions
312 389
Messages
2 087 933
Membres
103 678
dernier inscrit
bibitm