Excel qui plante une fois sur 2

[CAMPASTO]

Bonjour,

Au secours !!!

Mon fichier Excel plante une fois sur 2. Quand il ne plante pas tout fonctionne à merveille. J'ai beaucoup lu sur les forums et n'et rien trouvé qui solutionne mon problème. J'ai pensé que cela venait de mon PC alors j'ai testé la base sur un autre PC, rien n'y fait. Je joins le fichier en espérant que cette bouteille à la mer trouver bon port...

Campasto

 

[CAMPASTO]

Re : Excel qui plante une fois sur 2

Même problème, rien n'y change.

 

[Denis]

Re : Excel qui plante une fois sur 2

Que donne la solution de Staple?

 

[CAMPASTO]

Re : Excel qui plante une fois sur 2

Que donne la solution de Staple?

Pas mieux, le fichier s'ouvre normalement, l'userform (MonUsf) s'ouvre normalement lorsque que je clic sur le bouton plan actions, cela plante lorsque sur cet userform j'active la liste déroulante à droite, aussitôt excel plante.

 

[Denis]

Re : Excel qui plante une fois sur 2

Essais cette version "Light" de ton fichier.
Si ca marche, dans "Private Sub CmbValider_Click()", déverrouille la ligne "MiseAJourUsfVersDossier"
Ensuite idem pour "Private Sub ComboNumDossier_Change()" avec la ligne "MiseAJourDossierVersUsf"
à+
Denis

 

[CAMPASTO]

Re : Excel qui plante une fois sur 2

Essais cette version "Light" de ton fichier.
Si ca marche, dans "Private Sub CmbValider_Click()", déverrouille la ligne "MiseAJourUsfVersDossier"
Ensuite idem pour "Private Sub ComboNumDossier_Change()" avec la ligne "MiseAJourDossierVersUsf"
à+
Denis

Le fichier ne plante plus du tout (c'est déjà bien). Par contre, je peux naviguer dans la liste déroulante mais lorsque je souhaite créer un nouvel enregistrement (3), j'ai le débogueur qui s'active = erreur 438



With Sheets("Data")
.Cells(Parent.Ligne, 1) = Parent.ComboNumDossier.Value

 

[Denis]

Re : Excel qui plante une fois sur 2

Autant pour moi, je commence à m'y perdre!!!
Enlève tous les "Parent." (le point aussi) devant "Ligne,1)"

A mon avis, il faudrait inhiber la ligne suivante :Me.ComboNumDossier.ListIndex = -1
ici dans Private Sub ComboNumDossier_Change()
Else
RAZ
'Me.ComboNumDossier.ListIndex = -1
End If

à+
Denis

 

[CAMPASTO]

Re : Excel qui plante une fois sur 2

Autant pour moi, je commence à m'y perdre!!!
Enlève tous les "Parent." (le point aussi) devant "Ligne,1)"

A mon avis, il faudrait inhiber la ligne suivante :Me.ComboNumDossier.ListIndex = -1
ici dans Private Sub ComboNumDossier_Change()
Else
RAZ
'Me.ComboNumDossier.ListIndex = -1
End If

à+
Denis

J'ai effectué les changements, et inhibé la ligne et le fichier fonctionne nickel SUPER !!! merci beaucoup pour le temps consacré et la patience. Une idée sur l'origine du problème ?

 

[Denis]

Re : Excel qui plante une fois sur 2

re,
Content que ton fichier fonctionne!!
Mais ne nous réjouissons pas trop vite, il faut encore y réintégrer les autres USF (un par un !!!!!) et faire des essais.
A mon humble avis, les 2 grosses modifs, sont la non remise à 0 du combo dans la procédure RAZ et l'utilisation de Sub externes pour alléger le programme du USF.
à+
Denis

 

[Staple1600]

Re : Excel qui plante une fois sur 2

Bonsoir à tous

...
A mon humble avis, les 2 grosses modifs, sont la non remise à 0 du combo dans la procédure RAZ et l'utilisation de Sub externes pour alléger le programme du USF.
à+
Denis

Je plussoie à cet avis de Denis 😉
(et j'ajouterai qu'avoir le gaz à tous les étages (euh pardon dans tous les userforms et dans un code VBA "volumineux", bah c'est dangereux parfois 😉 )