Problème fichier excel

Bonjour à tous,

Je me tourne vers vous parce que là je bloque!!
J'ai un fichier Excel qui contient des macros, il marche très bien jusqu'à un moment ou il veut plus rien faire.
J'ai analysé le problème, et je me suis aperçue que mon fichier met au moins 10 s pour insérer un ligne manuellement. Du coup dans mes macros comme j'insère une ligne ça doit faire cracher mon programme.

Ma question est :
- Pour quoi met il autant de temps pour insérer une ligne ou une cellule alors qu'au début il ne le faisait pas??

Je vous met en pièce jointe le fichier.

Merci par avance de votre aide.

Bonjour,

Je ne peux pas ouvrir ton fichier mais quand tu demandes :

Citation:

---

Pour quoi met il autant de temps pour insérer une ligne ou une cellule alors qu'au début il ne le faisait pas??

---

Peut-être te retrouves-tu avec beaucoup de lignes et le traitement est plus long, et je répète, comme je n'ai pas pu voir ton fichier, il faut certainement passer par des variables "tableau".....une idée comme une autre à l'aveugle

Comment puis je faire pour que tu arrive à ouvrir mon fichier?

Citation:

---

Peut-être te retrouves-tu avec beaucoup de lignes et le traitement est plus long

---

Mon fichier contient seulement 20 ligne!

Quand j'enregistre mon fichier sans les macros en .xls le fichier rame encore quand j'ajoute une ligne donc ça vient pas de mes macros.
Y a pas une mémoire vive ou un truk dans le genre qui fait que mon fichier rame quand je modifie la feuille (cad insertion, suppression), le reste marche bien calcul etc...

Merci

Bonjour,

Citation:

---

Mon fichier contient seulement 20 ligne!

---

Probablement en apparence uniquement :
Sélectionne toutes les lignes vide après la dernière et supprimes les :
- sélectionne la première ligne vide
- Maj+Ctrl+flèche Bas
- clic droit / supprimer
Enregistre et ferme le fichier

Patrice

ça n'a rien changer.
Je suis au bout, je comprend vraiment pas ce phénomène.

Le problème vient vraiment de la lenteur de mon fichier mais il fait que 146 Ko donc on peut pas dire que c'est un gros fichier!

re,
Je reviens, eh oui, après mon repas, quand tu dis :

Citation:

---

Comment puis je faire pour que tu arrive à ouvrir mon fichier?

---

enregistres une copie en xls et envoies là, car je précise que tu n'a pas mis ta version malgré les recommandations de Pierre Fauconnier ou du site en général

quand j'enregistre une version xls le fichier passe de 146 Ko a 4Mo du coup je peut pas l'envoyer. j'y comprend rien!! du coup je l'ai mis dans un fichier .RAR ça vous va?

Citation:

---

car je précise que tu n'a pas mis ta version malgré les recommandations de Pierre Fauconnier ou du site en général

---

je comprend pas bien.
c'est ma version dans un fichier rar car on ne pouvait pas metre les fichier xlsm en pièce jointe...

merci

Je n'arrive pas à rouvrir le fichier .xls je peux que les .xlsm et .xlsx

Bonsoir,
Je viens d'arriver chez moi et je peux enfin décompresser ton fichier.
J'aimerai connaître ton but, car en lisant le code, je suis déjà étonné par certaines lignes, dans le "Worksheet_Change" de la feuille "numérotation" :

Code:

---

1 2 3

lg_value_cellule = Len(Target.Address)'ici num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target.Address, num_extract)'ici

---

ça ne serait pas plutot ? :

Code:

---

1 2 3

lg_value_cellule = Len(Target) num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target, num_extract)

---

et ça :

Code:

---

1 2 3

verif = CInt(Range("M4")) verif = CInt(Range("M4")) + 4 txt_verif = CStr(verif)

---

ne vaudrait'il pas mieux? :

Code:

---

txt_verif = Range("B" & Rows.Count).End(xlUp).Row

---

je ne vais pas plus loin, pour l'instant, et j'attends ta réponse sur ton but.

Et d'ailleurs, est-ce ce code qui rame ? chez moi, il ne rame pas mais ne fait rien

Bonjour,

j'ai un peu l'esprit à l'envers des fois et ce
code :

Code:

---

1 2 3 4

lg_value_cellule = Len(Target.adress) num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target, num_extract)

---

ça serait plutot avec ces variable là :

Code:

---

1 2 3 4

lg_adresse_cellule = Len(Target).adress num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target.adress, num_extract)

---

en fait je fait ça pour extraire la lettre de la colonne modifier et le numéro de la ligne y a surement un moyen beaucoup plus simple mais je suis pas un expert alors je bidouille pour arriver a ce que je veut
tout comme ça :

Code:

---

1 2 3 4

verif = CInt(Range("M4")) verif = CInt(Range("M4")) + 4 txt_verif = CStr(verif)

---

qui à pour but de connaitre la grandeur de mon tableau de façon quand on modifie une cellule or du tableau il saute cette procédure et si j'ai bien compris votre code :

Code:

---

Range("B" & Rows.Count).End(xlUp).Row

---

fait la même chose.
Mais c'est pas mon code qui rame, il fonctionne très bien lors des essais.
Certes j'ai pas du écrire dans le plus beau langage VBA mais mon tableur répond à mes attentes.
Ce n'est pas moi qu'utilise ce fichier, mais les utilisateurs me le retourne au bout d'un certains temps parce qu'il marche plus, du moins la procédure Worksheet_Change" de la feuille "numérotation" marche toujours.

Il s'agit de la procédure "ajouter_ligne" "revison" "supprimer_ligne" de la feuille "numérotation". Parce que elle contienne toute soit supprimer une ligne soit insérer une ligne et c'est la dessus que mon fichier rame et finit par planter et c'est ça que je ne comprend pas, pk ce fichier ce met à "lager" de façon aléatoire au bout d'un certain temps comme si il était surcharger.

Je me suis rendu compte qu'en faisant moi même le même fichier, celui si faisait 50Ko alors que celui qui bug 150ko.
J'ai eu la curiosité de changer son extension en .zip pour voir de quoi ce fichier était constitué et j'ai le fichier styles.xml qui est 40 fois plus important et le fichier sheet1.xml aussi, donc ma macro doit gonfler le fichier par je ne sais qu'elle manière, alors qu'il aurait dût être identique.

Je ne peux pas ouvrir ton fichier ...

Citation:

---

Envoyé par clement_la'arn

Bonjour,

j'ai un peu l'esprit à l'envers des fois et ce
code :

Code:

---

1 2 3 4

lg_value_cellule = Len(Target.adress) num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target, num_extract)

---

ça serait plutot avec ces variable là :

Code:

---

1 2 3 4

lg_adresse_cellule = Len(Target).adress num_extract = lg_value_cellule - 3 txt_num_ligne = Right(Target.adress, num_extract)

---

en fait je fait ça pour extraire la lettre de la colonne modifier et le numéro de la ligne y a surement un moyen beaucoup plus simple ....

---

Pour le numéro de colonne :

Code:

---

c = Split(Target.Address, "$")(1)

---

et le numéro de ligne :

Code:

---

l = Split(Target.Address, "$")(2)

---

Patrice

j'ai pu ouvrir ton fichier et je me suis amusé à effacer le code vba. L'insertion de ligne est tout aussi longue, donc le programme ne génère pas ce ralentissement (par contre elles ont pu rendre ce fichier ainsi).

Je n'ai pas le temps de tester mais le plus simple est de refaire un fichier propre.

Copie colle toutes tes feuilles et toutes tes procédures dans un nouveau classeur et je pense que ça devrait aller mieux.

en virant les formatage de la première feuille tout redevient normal (CTRL+A puis la commande effacer les formats de l'onglet accueil). Au passage la feuille xml avec le styles n'a pas changé de taille (ce qui me paraît normal, ce fichier est gros car excel place automatiquement tous ses styles dans ce fichier, ainsi le format n'est pas dépendant de la machine qui l'exécute).

Tu as dû implémenter une hauteur de ligne fixe pour l'ensemble de la feuille ou un truc comme ça. Bien qu'excel 2010 puisse gérer des millions de lignes dans les faits ça met à genou la machine

ok après analyse de ta feuille worksheet1.xml tu as près de 1mo de mise en forme conditionnelle hors dans ta macro tu n'as pas l'air d'en implémenter mais biend e faire des copier coller et des insertions avec des copies de formats.

A mon avis tu as fait de la mise en forme conditionnelle sur des cellules et à force d'exécution de la macro tu les a dupliqué massivement jusqu'à ce que cette feuille soit inmanipulable. Dans le fichier worksheet il y en a plus de 14000.
Tu remarqueras qu'elle n'apparaisse pas dans Excel, en effet la plupart d'entre elles sont en double dans le fichier worksheet. Rien que pour la cellule L5 il y en a plus de 1500...

a quoi serve ces MFC?

Merci, le problème venait bien des MFC qui se sont multiplié avec les copier-coller.
j'ai résolu le problème.


Merci à tous