Discussion :

[MistyFlip]

Bonjour à tous,

Je rencontre un problème un peu particulier. J'avais réaliser une macro qui fonctionnait normalement et puis d'un seul coup en changent deux trois lignes de code mon fichier excel se retrouve comme "corrompu" et ma macro s’arrête sur les instructions qui modifient la feuille. Même en remettant les anciennes lignes de codes, ça ne résout pas le problème. J'avais déjà rencontrer ce problème et je l'avais solutionner en recréant un nouveau fichier avec un nouveau xla.

Pour tester si le problème provenais bien du fichier et non du XLA j'ai réaliser une macro rappide de test afin de tester les expression qui faisait planter le programme. J'ai placé cette macro dans un module du fichier xlsm et pas celui du XLA. et le résultat est le suivant : les instructions ActiveSheet.Rows(28).Insert, ActiveSheet.Rows(28).Delete arrêtent le code. L'instruction
ActiveSheet.Name = "Test" et ActiveSheet.copy before:= ActiveSheet fonctionne lorsque elle sont utilisée séparément mais elle arrêtent le code quand elles sont utilisée à la suite l'une de l'autre. Voici le code que j'ai réalisé pour tester.

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
 
 
Sub test()
 
    ActiveSheet.Rows(28).Insert '-NOK
    ActiveSheet.Rows(28).Delete '-NOK
    ActiveSheet.Rows(28).Select '-OK
 
    'Les deux vont séparémént mais quand elle sont l'une a la suite de l'autre elles arrète le code
    ActiveSheet.Copy before:=ActiveSheet
    ActiveSheet.Name = "Part2"
 
    MsgBox "test"
 
End Sub

Pour info j'ai déjà rédiger une première question hier où j'avais mis une grande partie de mon code mais comme j'ai un peu mieux cerné mon problème je me suis dit qu'il était opportun d'en créer une nouvelle. Voici le lien :
https://www.developpez.net/forums/d1...sage-d-erreur/

Merci d'avance

[unparia]

Bonjour

Je ne joue jamais au ping-pong entre deux discussions.

Le bout de code que tu montres-là fonctionne (fait ce qu'il dit vouloir faire) sans faille et ne provoque aucun blocage si aucune protection n'en empêche l'exécution.
Précisions (sait-on jamais) : une messagebox ouverte empêche toute continuation tant qu'elle l'est. Idem pour les messages d'alerte (si tu veux créer une feuille sous un nom déjà existant)

[MistyFlip]

Bonjour Unparia,

Tout d'abord merci pour ta réponse

Justement c'est la que réside mon problème c'est que ce code doit normalement fonctionne. Et en effet je viens, d'essayer ce petit code de test en enlevant la référence à mon XLA et le code fonctionne sans problème... Il s'agit donc d'une ligne dans mon XLA qui fait que l'exécution s'arrête sans prévenir.

Tu n'aurais pas une idées sur la raison qui provoquerai un arrêt intempestif sur les lignes qui agisse sur la structure des feuilles ou du classeur (Insert, Delete, Move .... ou renommer une feuille)
Comme ça je dirai que c'est parce que Le code perd une référence et donc il ne sait plus ou il est mais je ne m'explique pas pourquoi

[unparia]

Tu n'aurais pas une idées sur la raison qui provoquerai un arrêt intempestif sur les lignes qui agisse sur la structure des feuilles ou du classeur (Insert, Delete, Move .... ou renommer une feuille)
Comme ça je dirai que c'est parce que Le code perd une référence et donc il ne sait plus ou il est mais je ne m'explique pas pourquoi

Aucune sans tout voir.
Une seule chose est certaine :

J'ai placé cette macro dans un module du fichier xlsm et pas celui du XLA. et le résultat est le suivant : les instructions ActiveSheet.Rows(28).Insert, ActiveSheet.Rows(28).Delete arrêtent le code. L'instruction
ActiveSheet.Name = "Test" et ActiveSheet.copy before:= ActiveSheet fonctionne lorsque elle sont utilisée séparément mais elle arrêtent le code quand elles sont utilisée à la suite l'une de l'autre

Ce que j'ai mis en rouge (et par voie de conséquence ton code) ne sont en aucun cas responsables. Et là s'arrête donc pour moi le traitement de la présente discussion.

[MistyFlip]

En effet, je vais clôturer cette discussion tout en sachant que le problème n'est pas identifier. Je ne sais donc pas si je dois la spécifier comme étant résolue ou non ?

[unparia]

Cette difficulté (ce n'en était d'ailleurs pas une, du moins celle exposée) étant résolue --->> discussion à libérer en effet (Tag RESOLU, oui).