Besoin d'aide toujours Erreur Fatale

**Le POlonais** · 27/11/2007, 13h11

J'ai ajouté workbook_open()
J'ai supprimé le doubleclick et depuis cela fonctionne mieux et plus rapidement.
Je n'ai plus de plantage pour l'instant.

Je te remercie encore une fois.
Dis mois puisque tu as le fichier.

Je voudrais faire des statistiques sur les postes occupés.
As tu une idée Si oui un début de code.

Merci d'avance

Tu est super!!!!!

Amicalement

Norbert

**ouskel'n'or** · 27/11/2007, 13h29

Désolé mais là je dois partir. Pour le début de code, je compte sur toi

Bon après-midi
A+

**Le POlonais** · 27/11/2007, 17h03

MERCI POUR TOUTAmicalement

Norbert

**Le POlonais** · 30/11/2007, 08h49

Bonjour Ousk',

Je résume la situation :

J'ai 2 userforms
Le premier "Creation" s'affiche par workbook_open en fonction si le mois a déjà été créé.
Celui-ci aucun problème.

Le deuxième s'affiche si je le lance depuis ma barrre d'état personnalisée :

Code :

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

1
2
3
4
5
6
7
8
Sub LancementJournée()
    DoEvents 'Arrête momentanément l'exécution
    'afin que le système d'exploitation puisse traiter d'autres événements
Load LETABLEAU
DoEvents 'Arrête momentanément l'exécution
    'afin que le système d'exploitation puisse traiter d'autres événements
LETABLEAU.Show
End Sub

Il plante aléatoirement il peut fonctionner par exemple 5 fois de suite puis planter et refonctionner après?

Par contre si je fais F8 il s'ouvre toujours sans jamais planter mais ce n'est pas une solution.

Je n'ai pas très bien saisi ce que tu m'as expliquer ou sinon je me suis mal exprimé.

Je voudrais savoir si c'était possible de faire une sorte de auto_open mais qui ne se lancerait que si je clique sur le bouton de ma barre d'état personnalisée

Cordialement

A+

Norbert

**Singular** · 30/11/2007, 10h29

Envoyé par Le Polonais:

Je voudrais savoir si c'était possible de faire une sorte de auto_open mais qui ne se lancerait que si je clique sur le bouton de ma barre d'état personnalisée

Tu n'as besoin que d'une seule procédure que tu appelles dans Workbook_Open de ThisWorkbook et dans la procédure Button_Click de ton bouton de barre personnalisée.

C'est un bug bizarre et ça sent tout comme un pointeur non initialisé en langage C. Si tu ne comprends pas ce que je viens d'écrire, ça veut dire tout simplement que je crois que le problème peut se trouver ailleurs que dans le code que tu as dévoilé dans cette discussion jusqu'à maintenant.

Comment fermes tu ton UserForm? Avec Unload LETABLEAU ou avec LETABLEAU.Hide?

**Le POlonais** · 30/11/2007, 10h52

Bonjour,

Mais j'ai déjà un workbook_open mais affiche un autre Userforms
Ma question c'est est-ce-que créer un deuxième workbook_open
pour me permettre de lancer sans plantage mon deuxième Userforms
celui qui plante de temps en temps

Qu'est ce quec'est qu'un un pointeur non initialisé en langage C?

Je ferme à la validation de ce Userforms par :
Unload LETABLEAU

Je comprend que cet un bug bizarre car en faisant F8 jamais je n'arrive à trouver ou cela plante car il ne plante jamais.

A+

Norbert

**ouskel'n'or** · 30/11/2007, 11h02

Hello l'homme de l'Est,
Je ne sais pas ce que tu as fais avec ton fichier mais je suis dans l'incapacité de t'aider. Impossible de restaurer ma barre d'outils standard, ce qui signifie que la procédure tourne toujours. J'ai l'impression que tu rentres dans une boucle sans en sortir.
Impossible d'arrêter la procédure en question et donc de l'identifier.
Impossible donc d'accéder au code qui tourne toujours.
Quand tout est fermé avec Ctrl + Pause, puis arrêt demandé, elle tourne toujours. J'ai été obligé de passer par le gestionnaire des tâches.
Avant de foutre en l'air mes petites affaires perso, j'ai préféré me retirer...
Un conseil : Ouvre ton fichier en appuyant sur la touche Maj (shift) et parcours ton code pour vérifie toutes les conditions de sorties de boucles.
Ce n'est pas l'ouverture de l'usf qui pose problème, c'est ce que tu fais après. Et il n'est pas certain qu'il s'agisse d'une boucle.
Fais du pas à pas, il y a bien un moment où tu t'apercevras que les choses t'échappent...
Si tu trouves on pourra sans doute arranger ça.
A+

Edit
Je suis rudement brave ! Je viens de refaire un essai et j'ai compris.
Dans ta macro DECOLLAGE tu mets une page de code à la suite de l'ouverture de ton usf...
Tu dois savoir que ce code ne s'exécutera qu'à la fermeture de l'usf Création.
Scinde en deux ta macro. Dans la première ouvre l'usf. Dans la seconde, mets le reste du code et, si besoin est de l'exécuter ici, mets un appel dans l'usf Création, dans Userform_Initialize

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
Sub DECOLLAGE()
 
Worksheets("DATA").Visible = False
Worksheets("Map").Visible = False
 
If Sheets("DATA").Range("A1") = "1" Then GoTo fin 'Si 1 alors je ne fais rien
Sheets("DATA").Range("A1") = "" 'sinon je continue
Load Creation
Creation.Show 'Lancement de la crétion des onglets pour un mois
Fin::
End sub
 
Sub UneAutreMacro
Dim LeVraiMois As Variant
Dim Année As Single
Dim NbJour As Single
'...
'Le reste du code
'...
End Sub
 
Private sub Userform_initialize()
UneAutreMacro
'...
 
End sub

Après tu nous dis car il n'est pas certain que tu n'aies pas "aut' chose" que ce seul problème

Continue a exécuter ton code avec F8, c'est le meilleur moyen pour débugger.

**Singular** · 30/11/2007, 12h14

Après quelques arrêts sur ton code d'ouverture, j'ai identifié plusieurs problèmes dans ton application.

Premièrement, le problème pour lequel tu as parti la discussion n'est pas le bon. Ton UserForm LETABLEAU n'est pas en cause du tout. Tu ne peux même pas aller plus loin que de cliquer sur ton bouton Valider dans le UserForm Creation que tu ouvres par la procédure DECOLLAGE dans Workbook_Open.

On ne peut pas résoudre le problème quand le diagnostic de départ est biaisé par une opinion erronnée...

Les bugs commencent dès le départ.

Tu as mis l'option de recalcul du classeur à 'sur ordre'. Il en découle que le choix du mois dans ton UserForm Creation ne peut rien donner de bon car les formules situées en C1 et C2 sur la feuille invisible "DATA" donne un résultat de #N/A. Il faut donc placer un Application.Calculate juste avant de faire référence à ces adresses dans ton code et ça tourne.

Mais ça plante un peu plus loin car tu précises une mauvaise valeur pour .PrintQuality dans ton bloc With ActiveSheet.PrintSetup. Il ne faut pas lui donner qu'une seule valeur mais un tableau de valeurs style Array(x,y). Si c'est corrigé, ça troune encore jusqu'à la fin de la procédure.

J'ai finalement compris en lisant le code que tu veux faire un classeur qui crée d'autres classeurs.

Tu veux que le UserForm Creation ne s'affiche que dans ton classeur de création. Ensuite, dans les classeurs créés, le double clique fait ouvrir le UserForm LETABLEAU. Ce dernier ne doit pas s'ouvrir dans le classeur original. Ce n'était pas clair dans tes explications.

J'espère avoir résolu ton (tes) problème(s)...

Note: Tu peux oublier ce qui s'est dit sur DoEvents (mais pas sur Cancel = True) et virer le tout. Tu peux aussi remplacer le 'Goto fin' par un Exit Sub.

**Le POlonais** · 30/11/2007, 12h26

Bonjour Homme de l'OR,

Je te remercie pour ton aide mais ce n'est pas l'usf Création qui pose problème mais c'est l'autre usf LETABLEAU qui plante.

Peux tu m'expliquer ceci dans ce fichier
Mais en cherchant j'ai trouvé je te joins le fichier la découverte.

Puis j'ai repris les vieux fichiers et je viens de m'apercevoir que depuis que j'ai mis un MultiPage9 ===> Commentaire dans usf LETABLEAU et ce texte dans dans Userform_Initialize du usf LETABLEAU

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
32
33
34
35
36
37
38
39
40
With TEXTE1 'autorise les retours à la ligne dans les boites de texte
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE2
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE3
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE4
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE5
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE6
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE7
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE8
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE9
.MultiLine = True
.EnterKeyBehavior = True
End With
With TEXTE10
.MultiLine = True
.EnterKeyBehavior = True
End With

C'est une piste d'après toi ou une coincidence.

A+

Norbert

J'ai mangé la suite ce que je voulais dire avant d'inclure ce MultiPage9
il ne plantais jamais et depuis il plante aléatoirement
c'est une piste ou une coincidence
A+
Norbert

**Le POlonais** · 30/11/2007, 12h40

Bonjour Singular,

Application.Calculate est à inclure juste avant ceci

Code :

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

1
2
3
4
5
6
7
If Sheets("Data").Range("B1") = "" Or Not IsNumeric(Sheets("Data").Range("B1")) Then
    MsgBox "l'année saisie n'est pas conforme dans la feuille DATA cellule B1" & vbCrLf _
    & "veuillez renouvler l'initialisation du tableau de service", vbExclamation, "message d'erreur"
    Exit Sub
End If
Année = Sheets("Data").Range("B1")
NbJour = Sheets("Data").Range("C1")

Pour un tableau de style Array(x,y)
tu as un petit exemple?

Merci pour ces corections dans l'usf Creation mais c'est l'autre usf LETABLEAU qui plante, usf Creation ne plantait jamais.

Peut être en corrigeant tout ceci il ne plantera plus.

Merci pour ton aide
A+
Norbert

**ouskel'n'or** · 30/11/2007, 12h51

Juste pour indication, tu aurais intérêt à mettre "tout ça" en dur dans les propriétés des textbox, si leurs paramétrages est définitif. Ça t'éviterait des pages de codes Pièce jointe 22373
Pour ta question, je ne sais pas

Je laisse la place à quelqu'un qui aurait une idée. Par contre, je maintiens ce que je t'ai dit dans ma réponse précédente. Il n'est pas impossible que ton plantage vienne de là. Si tu tentes d'ouvrir ton second userform alors que l'exécution du code en sortie du 1er usf s'exécute, il y a conflit (je n'ai pas détaillé ton code mais deux précautions valent mieux qu'une).
Bonne chance pour la suite.

NB - Ne crée pas de nouvelle discussion sur un même sujet. Tout doublon est supprimé sans préavis -> cf "les règles du forum"

**Singular** · 30/11/2007, 13h47

Je ne comprend pas ce que le .doc apporte en fait de piste, mais je peux tout de suite te dire que le MultiPage dans un Frame n'est pas une bonne idée. Tu n'as pas besoin du Frame puisque le MultiPage est lui aussi un conteneur.

Il est bien possible que ça occasionne le problème.

Le Polonais:

Pour un tableau de style Array(x,y)
tu as un petit exemple?

Regardes l'aide en ligne de la propriété PrintQuality de l'objet PrintSetup...

Le Polonais:

Je te remercie pour ton aide mais ce n'est pas l'usf Création qui pose problème mais c'est l'autre usf LETABLEAU qui plante.

Bien sur que Creation s'affichait. Mais ça plantait dès que tu cliquais sur Valider...

**ouskel'n'or** · 30/11/2007, 14h56

Envoyé par Singular

Bien sur que Creation s'affichait. Mais ça plantait dès que tu cliquais sur Valider...

Oui, ça plante si tu ne rentres pas de date mais ce n'est qu'une gestion d'erreur sans conséquence sur le phénomène observé si tu rentres le mois et l'année. Là, c'est plus embêtant, "quelque chose" continue à s'exécuter sans qu'on puisse déterminer quoi. Comme test, essaie de modifier une barre d'outils dans Excel ou d'en afficher une nouvelle.

**Le POlonais** · 30/11/2007, 16h09

Bonjour Hommes de l'Ouest,

J'ai modifié comme Ouskel'n'or m'a conseillé et aussi ce que Singular
a trouvé.
Le problème c'est que je ne pourrai le tester que Lundi.
Car ce problème se pose uniquement au travail (bureau, XP + Excel 2003 + réseau)
car chez moi ce programme n'a jamais planté malgré que j'ai un vieux coucou amd 350 + Millenium + excel 2000.

Donc Merci Pour vos conseils et à Lundi je vous dirai si cela fonctionne ou pas.

Do zobaczenia (à bientôt)

Pozdrowienam (A+)

Norbert

**ouskel'n'or** · 30/11/2007, 16h30

Envoyé par Le POlonais

car chez moi ce programme n'a jamais planté malgré que j'ai un vieux coucou amd 350 + Millenium + excel 2000.

Mon pauvre ! Et tu t'en vantes ?

Donc, si ça fonctionne sur Millenium, ça devrait fonctionner partout ! Donc, si ça fonctionne sur un vieux clou, et que ça ne fonctionne plus sur un clou plus récent, c'est un pb de vitesse. Vérifie qu'après chaque action d'affichage, de chargement de feuille, enfin, toutes tes actions sollicitant le système tu lui laisses le temps de faire son boulot. Pour ça tu as deux solutions non exclusives, DoEvents placé après chacune de ces actions et Application.screenUpdating = false avant modif de feuille, false que tu repasses à True une fois le code concerné exécuté.
Bonne chance et à lundi.

On t'attends mais n'ouvre pas de nouvelle discussion sur le sujet

Bon ouikend

**Le POlonais** · 30/11/2007, 18h29

Bonsoir,

Je pensais sincèrement que peut être c'était peut être un problème de système d'exploitation.

Je viens de faire les modifications et à lundi

Amicalement

A+

Norbert