Macro qui purge des lignes vides ne fonctionne plus avec mise à jour Windows

Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
- - Dernière réponse : danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
- 17 juil. 2019 à 10:44
Bonjour, j'avais une macro qui fonctionnait à la perfection mais avec des mises à jour Windows, elle ne fonctionnait plus et dépendant des mises à jour, des fois ça se remettait à bien fonctionner sans même la modifier. Cependant, depuis pas mal longtemps, elle ne fonctionne plus du tout et ça me cause un gros problème puisque mon fichier est rendu vraiment trop lourd donc très lent à chaque commande et je ne peux pas désactiver les calculs non plus car j'en ai besoin à chaque fois que ça bouge.

Voici ma macro :

Sub Purger()
Dim last As Variant
Dim ligne_libre As Variant
last = Range("A" & Rows.Count).End(xlUp).Row
MsgBox "La derniere ligne est la " & last & "ième" 'juste pour se contrôler ...
Rows(last + 1 & ":" & Rows.Count).Select
Selection.Delete Shift:=xlUp

End Sub

Merci beaucoup de votre aide ! Sylmarco
Afficher la suite 

2 réponses

Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45
0
Merci
Bonjour,

Bizarre. Quelles sont tes versions d'Excel et de Windows ?

Cordialement.

Daniel
sylmarco
Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
-
Allo Daniel. Je ne suis pas très fort en macros. J'ai copié mon fichier dans un autre classeur. Pour la balance des étapes, je ne sais pas comment faire du tout
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > sylmarco
Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
-
Va sur le site :
https://mon-partage.fr/
Charge ton classeur, copie le "lien de téléchargement" et colle-le dans ta réponse.

Daniel
sylmarco
Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
-
Bonjour Daniel. J'ai mis mon fichier. Peut-être qu'il y a un bogue dedans aussi. Aucune idée mais c'est mon document le plus important à mon travail.

Lien de Téléchargement : https://mon-partage.fr/f/4D0StVWZ/

Merci beaucoup :-)
sylmarco
Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
-
Allo Daniel, J'ai remis mon fichier car il y avait des choses qui ne fonctionnaient pas et j'avais un mot de passe alors je l'ai enlevé alors prends le lien ci-dessous à la place. Je crois qu'il y a vraiment un bug dans mon fichier puisque à chaque fois que je fais un copier-coller ou n'importe quoi, ça prend toujours quelques secondes/minutes au lieu d'être instantané.

https://mon-partage.fr/f/OKawVlow/

Merci beaucoup ! J'ai tellement peur que mon fichier ne fonctionne plus et c'est la base de tout pour faire mon travail. Sylvie :-)
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > sylmarco
Messages postés
50
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
22 octobre 2019
-
Je viens de regarder ce classeur. Je ne constate pas ce problème. Quelle est ta version d'Excel ?

Daniel
Commenter la réponse de danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45
0
Merci
Pense à supprimer les colonnes vides. Il faut aussi enregistrer le classeur pour que la suppression soit prise en compte.

Daniel
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > f894009
Messages postés
14803
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 octobre 2019
-
Facile de le dire maintenant que tu vois le fichier. J'ai proposé cette macro avant de visualiser le classeur, en indiquant de faire la même chose sur les colonnes. Je ne comprends pas le sens de ton intervention. Ce qui est utile, c'est d'aider sylmarco, pas de débiner ce qui est proposé par d'autres. Je ne vois pas que tes messages aient une quelconque utilité.
> danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
-
Allo Danielco. Tout d'abord, je tiens à te remercier pour ton aide.

J'ai tout recopié dans un nouveau fichier et quand je descends ma barre de droite, elle arrive vraiment à ma dernière ligne car je n'ai plus de ligne vide. (Fichier plus rapide car pas mal moins de lignes). Par contre, je viens de m'apercevoir qu'aussitôt que je déplace des lignes, ça m'ajoute des lignes blanches à la fin de nombre de lignes que j'ai déplacées.

J'ai donc essayé de remettre ma macro dans un module de mon classeur (Qui a déjà super bien fonctionné car à chaque fois que je fermais mon fichier et que je l'ouvrais de nous, mes lignes blanches étaient disparues.

Ma macro remise dans mon nouveau fichier est la même qu'avant soit :

Sub Purger()
Dim last As Variant
Dim ligne_libre As Variant
last = Range("A" & Rows.Count).End(xlUp).Row
MsgBox "La derniere ligne est la " & last & "ième" 'juste pour se contrôler ...
Rows(last + 1 & ":" & Rows.Counts).Select
Selection.Delete Shift:=xlUp

End Sub


Maintenant, elle ne fonctionne plus. Elle me dit quelle est ma dernière ligne mais m'affiche maintenant un code d'erreur : Erreur d'exécution '438' Propriété ou méthode non gérée par cet objet

Merci beaucoup à l'avance de ton temps. J'aimerais tellement pouvoir régler ce problème.

Sylmarco
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > Sylmarco -
Je ne peux tester ta macro que sur le classeur que tu m"as transmis. Quelle ligne s'affiche sur le message et sur quelle ligne de la macro se produit l'erreur ?

Daniel
f894009
Messages postés
14803
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 octobre 2019
1177 -
Bonjour,,
Que monsieur se rassure, je vous laisse la place.


Bonne continuation
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > f894009
Messages postés
14803
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 octobre 2019
-
Ce n'est pas le but recherché, au contraire.

Daniel
Commenter la réponse de danielc0