Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[vba-03] (modification données ListView) Débutant, je sollicite votre aide.

  • Initiateur de la discussion Initiateur de la discussion fadan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

fadan

Guest
Bonjour le forum,

Je m'adresse à vous car je ne sais pas par où commencer pour modifier les données affichées dans une listview.

A partir de textbox, j'ajoute des données dans une listview, mais comment selectionner toute une ligne de la listview pour l'afficher dans les textbox pour ensuite modifier et renvoyer le tout dans la listview au même endroit.

Merci d'avance.
 
Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonsoir fadan
Bobsoir job75

Un exemple sur ce fil
https://www.excel-downloads.com/threads/userform-et-filtre-des-donnees.108668/

Fichier 8122008b.zip

Ci dessous un exemple de code
Code:
' pour écrire dans des textbox
Private Sub Listview1_DblClick()
   TextBox1.Value = Listview1.SelectedItem.Text
    For i = 1 To 4
        Me.Controls("TextBox" & i + 1).value = Listview1.SelectedItem.SubItems(i).text
  
    Next
nulist =  Listview1.SelectedItem.Index
End Sub

' pour mettre à jour la listview
    Listview1.ListItems(nulist).Text = TextBox1.Value
    For i = 1 To 4
    Listview1.ListItems(nulist).SubItems(i).text =  Me.Controls("TextBox" & i + 1).value = 
  
    Next

End Sub

Attention la base de données n'est pas mise à jour.

JP
 
Dernière édition:
Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour le forum,

Je remercie job75 et jp14 pour m'avoir répondu.

J'ai suivi le fil de jp14, et j'espere pouvoir l'adapter à mes bessoins, je reviendrais donc ici pour vous tenir au courant de l'évolution.

Encore merci à vous.
fadan
 
Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour le forum,

J'ai suivi le fil de jp14 que je remercie encore, mais je n'ai pas trouvé la solution car en fait j'alimente une ListView avec les données de textBox mais aussi d'un ComboBox et d'un Label.

Sans avoir trouvé la solution pour modifier les données d'une ListView ce lien m'a permis de découvrir d'autres sources.

J'ai laissé un fichier pour que vous puissiez y voir plus clair.

Encore merci au forum.
fadan
 

Pièces jointes

Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour

Ci joint le fichier avec transfert des données de la listview vers les textbox.
Mise à jour de la listview et de la base de données ( à terminer ).
J'ai rajouté une colonne dans la listview.

A tester

JP
 

Pièces jointes

Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour le forum,

Et merci à jp14 pour vos conseils et votre code pour modifier les données d'une ListView.
J'en reviens à vous car j'ai modifié un peu le code pour n'enregistrer la modification de la ListView qu'avec le bouton "Enregistrer." mais cela pose problème.
Je pensais (en cliquant sur "Enregistrer.") pouvoir supprimer les données de la base qui sont affichées dans la ListView (selon la date du TextBox) et ensuite enregistrer les données de la ListView dans la base, mais j'ai une erreur que j'ai difficile à comprendre.
Pourriez vous me donner un petit coup de pouce?

Encore merci

fadan
 

Pièces jointes

Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour

Ci dessous le code pour supprimer la ligne
Sheets("BDD_Opérations").Rows(lig).Delete Shift:=xlUp
Lig contenant le numéro de ligne.

Ligne à modifier pour éviter l'erreur
For j = 1 To ListViewOperations.ColumnHeaders.Count - 2
de la procédure Private Sub Btn_enregistrer_Click()

Ci dessous le fichier avec une approche différente au niveau de la mise à jour.
Pour éviter de supprimer la base de données, j'ai rajouté dans la listview une colonne pour indiquer l'action à réalisée.
J'ai modifié en conséquence la procédure pour enregistrer.

JP
 

Pièces jointes

Dernière édition:
Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour le forum,

Et encore merci à jp14 pour m'avoir consacré de son temps pour mes soucis de code.

Les boutons "Modifier." et "Supprimer." les données affichées dans la ListView fonctionnent très bien mais si je peux encore vous solliciter car j'aimerais pouvoir, avec un bouton "Ajouter." afficher des données sur la dernière ligne de la listview et mettre à jour la base de données en même temps.
J'ai testé différents code mais sans succès
Un dernier coups de pouce de votre part me permettrais de terminer ce module.
Voici le début de code:
Et encore merci de votre patience envers moi.

fadan


Code:
Private Sub Btn_ajouterOperation_Click()
    ' Ajoute l'opération dans la ListView
    With ListViewOperations
        .ListItems.Add , , Format(Txt_dateDebut, "dd/mm/yyyy") ' Date
        .ListItems(.ListItems.Count).ListSubItems.Add , , Txt_reference.Value ' Référence
        .ListItems(.ListItems.Count).ListSubItems.Add , , Txt_remorque.Value ' Remorque
        .ListItems(.ListItems.Count).ListSubItems.Add , , Txt_operations.Value ' Opération
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Txt_Kms, "##,###,##0.0") ' Kms
        .ListItems(.ListItems.Count).ListSubItems.Add , , ComboBox_tempsTravail.Value ' Temps de travail
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Txt_hDepart.Value, "hh:mm") ' Heure de début d'operation
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Txt_hArret.Value, "hh:mm") ' heure de fin d'opération
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Lbl_dureeOperation.Caption, "hh:mm") ' Durée de l'opération
    End With
' Ici j'ai essayé de mettre à jour la base à partir de votre code mais sans succès
End sub
 
Re : [vba-03] (modification données ListView) Débutant, je sollicite votre aide.

Bonjour le forum,

Je voudrais remercier jp14 pour l'aide qu'il m'a apporté pour résoudre mon problème de modification de ListView.
Je reviendrais surement plus tard pour d'autres problèmes.

En attendant, encore merci à jp14 sans oublier de remercier toutes les personnes qui font de ce site un fabuleux outils de recherche et d'entraide.

Mille merçi à touts

fadan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
38
Affichages
1 K
Réponses
5
Affichages
749
Réponses
69
Affichages
6 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…