Excel qui plante une fois sur 2

CAMPASTO · 14 Juillet 2013

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 · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

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

Denis · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

Que donne la solution de Staple?

CAMPASTO · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

Denis à dit:
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 · 17 Juillet 2013

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 · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

Denis à dit:
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 · 17 Juillet 2013

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 · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

Denis à dit:
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 · 17 Juillet 2013

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 · 17 Juillet 2013

Re : Excel qui plante une fois sur 2

Bonsoir à tous

Denis à dit:
...
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 )

Excel qui plante une fois sur 2

CAMPASTO

XLDnaute Nouveau

Pièces jointes

CAMPASTO

XLDnaute Nouveau

Denis

Guest

CAMPASTO

XLDnaute Nouveau

Denis

Guest

Pièces jointes

CAMPASTO

XLDnaute Nouveau

Denis

Guest

CAMPASTO

XLDnaute Nouveau

Denis

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires