Enchaînement MsgBox vbYesNo

Version imprimable

(J'AI MODIFIE LE CODE PRECEDEMMENT POSTE)

Bonjour,
Je cherche le code pour déclencher plusieurs actions sous condition, le problème étant que j'ai l'impression qu'Excel se perd dans mon code entre les If Else End If.

En schématisant

J'ai deux grandes conditions:

Fermeture Simple

Fermeture non simple

Et dans cette dernière, deux sous conditions:

Pause déjeuné

Non pause déjeuné

Dans certains cas, je demande à Excel un enregistrement puis une fermeture

Dans d'autres, une action puis un enregistrement puis une fermeture

Le code:

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Workbook
Sheets("Feuil6").Select
Range("B1").Select
Application.Calculation = xlManual
Sheets("Feuil1").Select
Range("A65536").End(xlUp).Select
 If MsgBox("FERMETURE SIMPLE?", vbYesNo) = vbYes Then
 
 Call EnregistrerAction("FERMETURE SIMPLE")
 On Error GoTo Handler
Handler:
On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
    Workbooks("TIPI0.xlsm").Close True
Exit Sub
 
 Else
 
EnregistrerAction ("FERMETURE SESSION")
 
   If MsgBox("PAUSE DEJ?", vbYesNo) = vbYes Then
       EnregistrerAction ("FERMETURE SESSION DEJEUNE")
       ActiveSheet.Unprotect
 
       MsgBox "A tout de suite " & Environ("UserName")
    Range("B65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
     Selection.Copy
    Range("B65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
      'ThisWorkbook.Save
 
      ActiveSheet.Protect
 
 
      On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
    Workbooks("TIPI0.xlsm").Close True
 
      Exit Sub
 
 
   Else
 
       ActiveSheet.Unprotect
 
       MsgBox "Au revoir " & Environ("UserName")
    Range("E65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
     Selection.Copy
    Range("E65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
      'ThisWorkbook.Save
 
      ActiveSheet.Protect
 
 
      On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
 
    For Each w In Workbooks
       'MsgBox w.Name
   Call EnregistrerAction("FERMETURE " & w.Name)
 
 
    w.Close True
 
 
    Next w
    Workbooks("TIPI0.xlsm").Close True
      Exit Sub
 
    End If
 
      End If
 
 
End Sub

Est ce que quelqu'un peut m'aider à sortir de ce cercle vicieux.

Merci beaucoup

Bonjour,
ça ne résoudra pas ton probleme mais
avant tout, c'est moche les "Select", rien que cette partie

Code:

1
2
3
4
5
6
7
Range("B65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
     Selection.Copy
    Range("B65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

peut être remplacée par

Code:

1
2
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Formula = "=NOW()"
    Range("B" & Rows.Count).End(xlUp) = Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value

adaptes pour le reste

17/06/2016, 16h08
Menhir

Citation:

Envoyé par Kestion100

j'ai l'impression qu'Excel se perd dans mon code entre les If Else End If.

Généralement, c'est plutôt le programmeur qui se perds dans ses structures If. :mrgreen:

Comme le répétait à longueur de cours ma prof d'Histoire/géo de 6è (citant Boileau) : Ce qui se conçoit bien s'énonce clairement et les mots pour le dire viennent aisément.
Transposé à la programmation, donne : écrit clairement ton algorithme et ton code en découlera aisément.

Un conseil : pour éviter de s'y perdre dans les structures If et autres, indente correctement ton code.

Autre conseil : pas de "On Error" en phase de développement.

C'était le meilleur moyen que j'avais trouvé pour rentrer la date du moment auquel l'action se fait sans qu'elle reste en formule pour la figer, c'est un fichier qui me compte mes périodes de temps de travail décomposé en matins et après midis.

Désolé, j'ai retravaillé un peu le code, voici ce qu'il est maintenant:

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Workbook
Sheets("Feuil6").Select
Range("B1").Select
Application.Calculation = xlManual
Sheets("Feuil1").Select
Range("A65536").End(xlUp).Select
 If MsgBox("FERMETURE SIMPLE?", vbYesNo) = vbYes Then
 
 Call EnregistrerAction("FERMETURE SIMPLE")
 On Error GoTo Handler
Handler:
On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
    Workbooks("TIPI0.xlsm").Close True
Exit Sub
 
 Else
 
EnregistrerAction ("FERMETURE SESSION")
 
   If MsgBox("PAUSE DEJ?", vbYesNo) = vbYes Then
       EnregistrerAction ("FERMETURE SESSION DEJEUNE")
       ActiveSheet.Unprotect
 
       MsgBox "A tout de suite " & Environ("UserName")
    Range("B65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
     Selection.Copy
    Range("B65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
 
 
      ActiveSheet.Protect
 
 
      On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
    Workbooks("TIPI0.xlsm").Close True
 
      Exit Sub
 
 
   Else
 
       ActiveSheet.Unprotect
 
       MsgBox "Au revoir " & Environ("UserName")
    Range("E65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
     Selection.Copy
    Range("E65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
 
 
      ActiveSheet.Protect
 
 
      On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
 
    FermerTousClasseurs
      Exit Sub
 
    End If
 
      End If
 
 
End Sub

Ok.

Existe-t-il un moyen pour "attacher" un Else et un End If à son If si on a:

Sub

(A) If MsgBox vbYesNo Yes Then

(B) If Msgbox vbYesNo Yes Then

(B) Else

(B) End If

(A) Else

(A) End If

End Sub

Pour que (A) reste lié à (A) et (B) à (B)?

Je sais bien que mes pinceaux sont parfaitement emmelables est qu'excel ne fait qu'obéir mais cela pourrait aussi correspondre à un fonctionnement d'Excel qui ne repère pas les "rimes croisées ou embrassées"?

Citation:

Envoyé par Menhir

Un conseil : pour éviter de s'y perdre dans les structures If et autres, indente correctement ton code.

Bonjour, Menhir a parfaitement raison et les codes modifiés que tu présentes sont illisibles.

Exemple de code "lisible" avec ton premier programme non modifié :

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim w As Workbook
 
    Sheets("Feuil6").Select
    Range("B1").Select
    Application.Calculation = xlManual
    Sheets("Feuil1").Select
    Range("A65536").End(xlUp).Select
    If MsgBox("FERMETURE SIMPLE?", vbYesNo) = vbYes Then
        Call EnregistrerAction("FERMETURE SIMPLE")
        On Error GoTo Handler
Handler:
 
        On Error Resume Next
        Application.OnTime temps, Procedure:="majHeure", Schedule:=False
        Workbooks("TIPI0.xlsm").Close True
        Exit Sub
    Else
 
        EnregistrerAction ("FERMETURE SESSION")
 
        If MsgBox("PAUSE DEJ?", vbYesNo) = vbYes Then
            EnregistrerAction ("FERMETURE SESSION DEJEUNE")
            ActiveSheet.Unprotect
            MsgBox "A tout de suite " & Environ("UserName")
            Range("B65536").End(xlUp).Offset(1, 0).Select
            ActiveCell.Formula = "=NOW()"
            Selection.Copy
            Range("B65536").End(xlUp).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            'ThisWorkbook.Save
            ActiveSheet.Protect
            On Error Resume Next
            Application.OnTime temps, Procedure:="majHeure", Schedule:=False
            Workbooks("TIPI0.xlsm").Close True
            Exit Sub
        Else
            ActiveSheet.Unprotect
            MsgBox "Au revoir " & Environ("UserName")
            Range("E65536").End(xlUp).Offset(1, 0).Select
            ActiveCell.Formula = "=NOW()"
            Selection.Copy
            Range("E65536").End(xlUp).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            'ThisWorkbook.Save
            ActiveSheet.Protect
            On Error Resume Next
            Application.OnTime temps, Procedure:="majHeure", Schedule:=False
            For Each w In Workbooks
                'MsgBox w.Name
                Call EnregistrerAction("FERMETURE " & w.Name)
                w.Close True
            Next w
            Workbooks("TIPI0.xlsm").Close True
            Exit Sub
        End If
     End If
 
End Sub

A+

Ce que tu décris là est une structure I classique.
Les Else et End If sont liés au If par leur occurence. C'est à dire que tu les ferme dans l'ordre inverse dans lequel tu les as ouverts.
Code:

1 2 3 4 5 6 7 8 9 10 11 (A) If MsgBox vbYesNo Yes Then (B) If Msgbox vbYesNo Yes Then (B) Else (B) End If (A) Else (A) End If
Je le répète : une indentation correcte te permettra d'éviter de te perdre dans tes structures.

Autre conseil : tu n'es pas obligé d'utiliser tout de suite le résultat d'un MsgBox. Tu peux mettre ce résultat dans une variable de type Integer.

Je te donne un exemple :

Si tu écris ça (ce n'est pas un vrai code, ça juste schématique) :
Code:

1 2 3 4 5 6 7 8 9 10 11 If MsgBox = vbYes Then Action A Action B Action C Action D Action E Else Action B Action D Action X End If
Il est plus simple d'écrire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Reponse As Integer Reponse = MsgBox If Reponse = vbYes Then Action A Action B If Reponse = vbYes Then Action C Action D If Reponse = vbYes Then Action E Else Action X End If
Ce type de codage peut simplifier beaucoup ton code dans lequel tu as répété beaucoup d'instructions.

17/06/2016, 17h19
Kestion100

En effet, c'est bien plus clair.

Menhir, dans ton dernier code, si je comprends bien:

Reponse est la réponse de la msgbox (yes ou no) que tu appliques à 3 cas (un par ligne de répétition).
Excel ouvre alors 3 msgbox successives? est applique le bon then à chaque fois?

Est-ce bien cela?

Ca rentrerait bien dans mes plans pour le code alors

Citation:

Envoyé par Kestion100

Reponse est la réponse de la msgbox (yes ou no) que tu appliques à 3 cas (un par ligne de répétition).
Excel ouvre alors 3 msgbox successives? est applique le bon then à chaque fois?
Est-ce bien cela?

Non, pas du tout.
Et c'est tout l'intérêt de la méthode : tu n'ouvre le MsgBox qu'une fois (il n'est écrit qu'une fois dans le code), mais, au lieu d'utiliser directement le résultat dans un If, tu le places dans une variable Interger.
Ensuite, tu peux utiliser ce résultat comme bon te semble dans le reste du code : il est à disposition.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Reponse = MsgBox("Est-ce qu'on ajoute de la confiture ?") Couper le pain If Reponse = vbYes Then Mettre de la confiture Else Mettre du miel End If Donner le gouter à l'enfant Ranger le pain If Reponse = vbNo Then Ranger le miel Else Ranger la confiture End If
La MsgBox ne se trouve qu'une seule fois dans le code et l'utilisateur n'y répond qu'une fois.
Pourtant, dans la suite du code, la réponse, placée dans une variable, est utilisée plusieurs fois.

J'ai repris mon code comme suit, avec une tentative d'indentation plus claire:

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Workbook, Reponse1 As Integer, Reponse2 As Integer
Sheets("Feuil6").Select
Range("B1").Select
Application.Calculation = xlManual
Sheets("Feuil1").Select
Range("A65536").End(xlUp).Select
 
    Reponse1 = MsgBox("FERMETURE SIMPLE?", vbYesNo)
    If Reponse1 = vbYes Then
 
    Call EnregistrerAction("FERMETURE SIMPLE")
    On Error GoTo Handler
Handler:
    On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
    Workbooks("TIPI0.xlsm").Close True
    Exit Sub
 
    If Reponse1 = vbNo Then
 
    EnregistrerAction ("FERMETURE SESSION")
 
         Reponse2 = MsgBox("PAUSE DEJ?", vbYesNo)
 
        If Reponse2 = vbYes Then
        EnregistrerAction ("FERMETURE SESSION DEJEUNE")
        ActiveSheet.Unprotect
 
        MsgBox "A tout de suite " & Environ("UserName")
        Range("B65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Formula = "=NOW()"
        Selection.Copy
        Range("B65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
         Application.CutCopyMode = False
 
 
 
        ActiveSheet.Protect
 
 
        On Error Resume Next
        Application.OnTime temps, Procedure:="majHeure", Schedule:=False
        Workbooks("TIPI0.xlsm").Close True
 
        Exit Sub
 
 
        If Reponse2 = vbNo Then
 
        ActiveSheet.Unprotect
 
        MsgBox "Au revoir " & Environ("UserName")
        Range("E65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Formula = "=NOW()"
        Selection.Copy
        Range("E65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
 
 
 
        ActiveSheet.Protect
 
 
        On Error Resume Next
        Application.OnTime temps, Procedure:="majHeure", Schedule:=False
 
        FermerTousClasseurs
        Exit Sub
 
        End If
 
      End If
 
   End If
   End If
End Sub

je pense que le code ne tourne plus en rond mais les MsgBox apparaissent en doublon, la même question m'est toujours posée 2 fois.

Comment pourrais-je améliorer cela.

MERCI

20/06/2016, 11h29
Menhir

OBO29 t'a montré comment faire des indentation claire pour avoir un code propre.
Applique-le pour éviter de te perdre dans tes structures If.

Citation:

je pense que le code ne tourne plus en rond mais les MsgBox apparaissent en doublon, la même question m'est toujours posée 2 fois.

Tu utilises une macro évènementielle qui se déclenche quand on forme le fichier.
Si, à l'intérieur de cette macro, tu fais des fermeture de ce fichier, la macro va se déclencher elle-même. C'est le serpent qui se mord la queue.

On n'utilise pas de Close sur le fichier qui a déclenché une macro BeforeClose dans cette macro elle-même.
On traite le paramètre Cancel.
https://msdn.microsoft.com/fr-fr/lib.../ff194765.aspx
20/06/2016, 14h19
Kestion100

En effet, pour le BeforeClose, je n'y avais pas pensé.

Deux paires d'yeux vaudront toujours mieux qu'une!!!

Merci

J'essaie avec:

Code:

Application.EnableEvents = False

Code:

Application.EnableEvents = True

ça à l'air de fonctionner pas mal
20/06/2016, 14h24
Menhir
C'est ce qui s'appelle monter une usine à gaz : mettre une rustine sur une erreur plutôt que de réparer l'erreur à la base.
Il serait plus simple et plus logique de ne pas mettre de Close dans une macro BeforeClose.
D'autant plus qu'il n'y en a pas besoin vu que le fichier est déjà en train de se fermer si cette macro a été déclencher.

Tu devrais essayer d'étudier ton code en détail.
Par exemple, est-ce que tu sais à quoi peut te servir ceci :
Code:

1 2 On Error GoTo Handler Handler:
Suivit d'un autre On Error.
Je peux répondre : ça ne sert à rien. Absolument à rien.
Donc, question corolaire : qu'est-ce que ça fait là ?
20/06/2016, 15h17
Marc-L

Salut Menhir !

Citation:

Envoyé par Menhir

C'est ce qui s'appelle monter une usine à gaz : mettre une rustine sur une erreur plutôt que de réparer l'erreur à la base.
Il serait plus simple et plus logique de ne pas mettre de Close dans une macro BeforeClose.

Comme je lui ai déjà indiqué en reformulant ta réponse du post #10 dans sa discussion en doublon, effacée depuis !

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

En effet, il s'agit de scories qu'un œil extérieur et expert pouvait voir du premier regard mais que le cycliste la tête dans le guidon ne voyait plus.
Maintenant, j'en suis à:

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
 
Dim w As Workbook, Reponse1 As Integer, Reponse2 As Integer
Sheets("Feuil6").Select
Range("B1").Select
Application.Calculation = xlManual
Sheets("Feuil1").Select
Range("A65536").End(xlUp).Select
 
    Reponse1 = MsgBox("FERMETURE SIMPLE?", vbYesNo)
    If Reponse1 = vbYes Then
 
    Call EnregistrerAction("FERMETURE SIMPLE")
 
    On Error Resume Next
    Application.OnTime temps, Procedure:="majHeure", Schedule:=False
 
    Exit Sub
Else
 
 
    EnregistrerAction ("FERMETURE SESSION")
 
         Reponse2 = MsgBox("PAUSE DEJ?", vbYesNo)
 
        If Reponse2 = vbYes Then
        EnregistrerAction ("FERMETURE SESSION DEJEUNE")
        ActiveSheet.Unprotect
 
        MsgBox "A tout de suite " & Environ("UserName")
        Range("B65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Formula = "=NOW()"
        Selection.Copy
        Range("B65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
         Application.CutCopyMode = False
 
 
 
        ActiveSheet.Protect
 
 
        On Error Resume Next
        Application.OnTime temps, Procedure:="majHeure", Schedule:=False
 
 
        Exit Sub
 
        Else
 
 
        ActiveSheet.Unprotect
 
        MsgBox "Au revoir " & Environ("UserName")
        Range("E65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Formula = "=NOW()"
        Selection.Copy
        Range("E65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
 
 
 
        ActiveSheet.Protect
 
 
        On Error Resume Next
        Application.OnTime temps, Procedure:="majHeure", Schedule:=False
        Application.EnableEvents = False
        FermerTousClasseurs
 
        Application.EnableEvents = True
        Exit Sub
 
        End If
   Exit Sub
      End If
  Exit Sub
 
   Exit Sub
 
End Sub

qui fonctionne bien mieux.

Au passage, j'ai quand même découvert la méthode "Reponse"!!!!

C'est quand même utile de croiser les points de vues et les expériences!!!!

MERCI!!!!

20/06/2016, 15h58
Kestion100

Oui mais Menhir, lui, apporte des éléments de réponses autre que "idiot"!!!!
20/06/2016, 16h08
Menhir

Citation:

Envoyé par Kestion100

Maintenant, j'en suis à:

Mais tu n'as toujours pas compris le principe d'une indentation propre (malgré de multiples signalements) ce qui rend ton code très désagréable à lire et représente une importante source d'erreur pour toi.

Même chose pour les On Error (voir mon premier message) qui restent encore et dont on se demande à quoi ils servent (peut-être peux-tu nous éclairer) en dehors de compliquer le travail de débugage.

Je te le répète : il faut que tu fasses un nettoyage sérieux de ton code.
20/06/2016, 16h15
Kestion100

Sans les On Error, j'ai essayé, ça plante et ça n'est pas le but recherché, Excel tourne en rond dans le vide, je ne saurai en dire plus.
Quant à l'indentation, le code fonctionnant, et craignant de fourcher au niveau des manips et selon le célèbre adage anglo-saxon when it works don't fix it, je n'en ferai pas plus sur ce code mais garde les précieux conseils par de vers mois pour mes code à venir.
20/06/2016, 16h23
Menhir

Citation:

Envoyé par Kestion100

Sans les On Error, j'ai essayé, ça plante

Donc, à nouveau, au lieu de rechercher d'où vient l'erreur et de la corriger, tu colles dessus une rustine pour qu'elle n'apparaisse plus (ce qui ne l'empêche pas de continuer à causer des problèmes), sachant que forcément ça produira un code erroné.

Citation:

Excel tourne en rond dans le vide, je ne saurai en dire plus.

Ca a forcément une cause et il est certainement possible de le trouver si on se donne la peine de chercher.
Mais avec l'aspect de ton code, forcément, cette recherche n'est pas aisée.

Citation:

pour mes code à venir.

S'ils sont aussi brouillon, il n'est pas sûr que quelqu'un prenne la peine d'y regarder : quand un demandeur ne fait pas d'effort pour présenter son propre travail, je ne vois pas pourquoi d'autres feraient un effort pour lui.