Discussion :

[casevanin]

Bonjour, j'ai un fichier qui permet de mettre à jour les factures des clients. lorsque le nom d'un client est saisit, toutes les factures non soldées de ce client s'affichent dans une listview. lorsque je clique sur la première facture de la listview et que j'effectue la mise à jour, pas de problème. mais lorsque j'essaie de faire la mise à jour de la deuxième facture à la dernière facture de la listview, cela se termine par un bug " bug l'objet invoqué s'est déconnecté de ses clients". le problème ne se pose pas pour les premières lignes de factures mais pour le reste ca bug. merci de m'aider à trouver une solution

[Franc]

Bonjour, chez moi le comportement est différent, quand je clique sur une facture à partir de la deuxième, Excel se ferme purement et simplement, sans signaler la moindre erreur.
J'exécute le code pas à pas et tout se déroule normalement et sans erreur, et quand j'arrive au End sub de la macro, Excel se ferme. J'avoue que je ne comprends pas ce qui se passe

[casevanin]

Bonjour, merci pour votre réponse. c'est bizarre, je viens de tester et lorsque je clique sur une facture à partir de la deuxième ligne, excel ne se ferme pas , le message "voulez vous enregistrer une facture apparait" . excusez moi mais est ce que le fichier mscomctl.ocx a été ajouter? un moment j'avais des soucis sans ca. je vous envoi un autre fichier, le bouton se trouve à l’extrême droite

[Franc]

Oui, mscomctl.ocx est présent et le message "voulez vous enregistrer une facture" apparaît. Quand j'introduis un montant dans la textbox "Paiement" et que je clique sur le bouton "Mettre à jour", c'est là qu'Excel se ferme inopinément. Ce n'est d'ailleurs pas une fermeture normale et propre puisque quand j'ouvre à nouveau le fichier, une colonne apparaît à gauche de la feuille et qui indique qu'un document a été récupéré, ce qui arrive en général suite à un plantage d'Excel. J'ai testé les 2 fichiers envoyés et le problème se pose pour les deux. Comme j'ai exécuté le code pas à pas et qu'il n'y a pas d'erreur d'exécution, personnellement je ne vois pas comment aider, désolé

[casevanin]

OK merci pour votre temps

[jurassic pork]

Hello,
Moi aussi j'ai un crash Excel. Quelles sont vos versions d'Excel et en 32 bits et 64 bits ? moi en Excel 2016 32 bits.
Le problème vient sûrement du fait que dans l'événement ItemClick de la ListView , on efface tous les éléments de la Listview et donc l'item n'existe plus avant de sortir du traitement de l'événement.
On peut essayer à la place d'utiliser l'événement ItemClick, utiliser l'événement Click en détectant la ligne qui a été sélectionnée comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub ListViewRecouvre_Click()
Dim i As Integer, ListCount As Integer
ListeCount = ListViewRecouvre.ListItems.Count
For i = 1 To ListeCount
        If ListViewRecouvre.ListItems.Item(i).Selected Then
            rep = MsgBox("Voulez-vous enregistrer cette facture ?", vbOKCancel + vbQuestion, "ENREGISTRER")
            If rep = vbCancel Then Exit Sub
            With UserFormMiseajrRegle
           'Couleur des textbox et alignement texte
             '------------Mise en Forme Police--------------------
           .TextBoxNclient.TextAlign = fmTextAlignCenter
           .TextBoxNclient.ForeColor = &HFFFFFF
           .TextBoxNclient.Font.Bold = True
           '------------TextBox BackColor----------------------
           .TextBoxNclient.BackColor = &HFF&
           .TextBoxNfacture.BackColor = &HC0C0C0
           .TextBoxMontTtc.BackColor = &HC0C0C0
           .TextBoxSolde.BackColor = &HC0C0C0
           '---------Contenu des textbox------------------------
           .TextBoxSolde = CCur(ListViewRecouvre.ListItems(i).ListSubItems(12))
           .TextBoxMontTtc = ListViewRecouvre.ListItems(i).ListSubItems(10)
           .TextBoxNclient = ListViewRecouvre.ListItems(i).ListSubItems(2)
           .TextBoxNfacture = ListViewRecouvre.ListItems(i).ListSubItems(1)
           '---------N° de ligne Facture------------------------
           FacLgn = Feuil1.Range("B:B").Find(.TextBoxNfacture, LookIn:=xlValues, lookat:=xlWhole).Row
           End With
        UserFormMiseajrRegle.Show
        Exit For
        End If
Next i
End Sub

Ami calmant, J.P