DuplicataRésolu

Question

Bonjour, Je souhaite ajouté des lignes dans listview sans pour autant ajouté les anciennes lignes au BDD

With UserForm2.ListView1
       Set Item = ListView1.ListItems.add(Text:=TextBox1.Value)            'date
           Item.SubItems(1) = TextBox2.Value                                           'ligne
           Item.SubItems(2) = TextBox3.Value                                           'format
           Item.SubItems(3) = ComboBox3.Value                                      'minute d'arrêt
           Item.SubItems(4) = TextBox4.Value                                           'cause d'arrêt
               'Transfert au base de données Arrêt
       For i = 1 To ListView1.ListItems.Count
           Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(1, 0) = ListView1.ListItems(i).Text                 'date
           Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 1) = ListView1.ListItems(i).SubItems(1)    'ligne
           Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 2) = ListView1.ListItems(i).SubItems(2)    'format
           Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 3) = ListView1.ListItems(i).SubItems(4)    'minute d'arrêt
           Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 4) = ListView1.ListItems(i).SubItems(3)    'cause d'arrêt
      Next i
End With

vb95 · Answer

Bonjour

si je comprends bien tu veux rajouter un item dans la listview et dans ton fichier Excel ( au passage Excel n'est pas une BDD mais un tableur)

A partir de la ligne 8 de ton code tu rajoutes dans ton fichier Excel tous les items de la listview .

Pourquoi ne rajoutes tu pas uniquement l'item défini à la ligne 2

okeyl · Answer

Bonjour

j'ai mis un code pour que la listview affiche tout les arrêts selon ( journée/ligne/ et format), pour que je puisse supprimer ou ajouter des arrêts.

le problème qui se pose c'est que dès que j'ajoute un arrêt j'aurais un duplicata des anciens.

vb95 · Answer

Bonjour

Ca j'ai bien compris .

Supposes que tu as 10 arrêts dans ta listview et dans ton fichier Excel . Tu rajoutes un onzième arrêt dans le Listview . Dans ton fichier Excel il faut rajouter uniquement que ce onzième arrêt .

okeyl · Answer

Oui, c'est exactement ce que je veux

vb95 · Answer

Dans ton code de la ligne 8 à la ligne 14 tu transfères toutes les lignes de ta listview dans le fichier Excel .

Tu dois uniquement transférer dans le fichier Excel le dernier item ajouté à la listview .

okeyl · Answer

Oui, mais je ne vois pas comment faire

vb95 · Answer

Set Item = ListView1.ListItems.add(Text:=TextBox1.Value) ' date
With Item
    .SubItems(1) = TextBox2.Value ' ligne
    .SubItems(2) = TextBox3.Value ' format
    .SubItems(3) = ComboBox3.Value ' minute d'arrêt
    .SubItems(4) = TextBox4.Value ' cause d'arrêt
    ' Transfert de l'item dans la base de données Arrêt
    Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(1, 0) = .Text ' date
    Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 1) = .SubItems(1)' ligne
    Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 2) = .SubItems(2) ' format
    Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 3) = .SubItems(4) ' minute d'arrêt
    Feuil6.Range("a" & Rows.Count).End(xlUp).Offset(0, 4) = .SubItems(3) ' cause d'arrêt
End With

Bonjour

Essaie avec ce bout de code

okeyl · Answer

Merci beaucoup vb95 pour ton aide et pour le temps que tu m'accordes

Avant j'avais mis le code de transfert dans la base de donnée dans une commandboutun et le code qui fait le transfère dans la listview dans une autre, et quand je voulais les mettre dans une seul commande il m'a pas venu à l’esprit d'enlever la boucle for

Merci encore une fois

Duplicata

8 réponses

Votre réponse