suppression de ligne et formule en boucle Résolu/Fermé

Question

Bonjour,

Pour ceux qui avaient suivi mon projet, voila ou j'en suis, grâce à un ami informaticien.

Mais je rencontre un problème sur la suppression de ligne vide qui ne se fait pas et je suis obligé de faire 2 fois la macro pour avoir le calcul de 6% de toutes les lignes de la formule, qui se trouve dans ' calcule les prix en cascade pour cde ...

Pourriez vous me dire ou je fais une erreur SVP.

Ci-joint le fichier :

https://www.cjoint.com/?DHmoUCJ2XIZ 

Merci.

Bonne journée.

skk201 · Answer

Bonjour, je jetterai un oeil après ;)

Mais avous essayer de regarder les action de la macro avec le pas détailler ? 

Pour ce faire dans la fenêtre de l'éditeur VB en étant placé dans la macro a lancé appuyé sur F8 et cela lira le code ligne par ligne. Ainsi vous pourrez voir la valeur des différentes valeurs et voir les différentes action de la macro.

Maurice · Answer

Bonjour

Voila une mocro

Sub DelLigne()
' pour supprimer des Ligne on commence a la fin et on remonte
totalRows = 169
   For J = totalRows To 18 Step -1
       ' Si la ligne est vide on la supprime
       If Cells(J, 1) = "" Then
           Rows(J).Delete
       End If
    Next
End Sub

A+
Maurice

pascalou83400 · Answer

Bonsoir Maurice,

Merci pour votre réponse, mais je n'ai pas réussi à mettre le code dans la macro.

Ce code doit remplacer le code que j'ai à la fin et je dois supprimer celui du début  ?

Maurice · Answer

Bonjour

normalment tu Change ta macro boucle

For J = 18 To totalRows 
Par
For J = totalRows To 18 Step -1 

et ca doit etre bon

A tester bien sur sur une copie de ton fichier

A+
Maurice

pascalou83400 · Answer

Bonjour Maurice,

J'ai bien mis le code , je n'ai pas de bug, mais ça ne supprime pas les lignes.

Je ne sais pas si je me suis bien expliqué, je dois supprimer les lignes vides en fin de tableau après avoir actualisé les données via query.

Mais je dois faire en dernière ligne la somme de la colonne AG et AI et mettre TOTAL en AH, donc je rajoute une ligne, et quand je fais la macro , ça ne supprime rien mais ça rajoute une ligne à chaque boucle.

Et je ne comprends pas ce qu'il faut modifier.

A+

Pascal

pascalou83400 · Answer

Bonsoir,

SOS j'ai encore fait un alien, j'ai trouvé comment supprimer les lignes, enfin je pense vu ce que ça fait, et je boucle une 2eme fois pour calculer les prix qui ne se calculent pas à la 1ere boucle.

La boucle est très très longue, ca met 31 mns pour faire la boucle sur les feuilles,
je ne sais pas ou je peux raccourcir les codes.
Merci pour votre aide.

Ci-joint le fichier.

https://www.cjoint.com/?DHntp0YC71V 

Bonne soirée.

Pascal

pascalou83400 · Answer

Re bonsoir,

J'ai trouvé mon erreur dans le tableau pour le problème du temps de la boucle, mais je ne trouve pas le code pouvant supprimer les lignes vides entre ma dernière cellule utilisée de ma colonne 25 et la cellule TOTAL  qui est en dessous.

En sachant que le tableau évolue suivant les données et que je rajoute ma ligne TOTAL en fin de boucle.
Merci pour votre aide.

Bonne soirée.

Pascal

https://www.cjoint.com/?0HoaUHczU87

pascalou83400 · Answer

Je viens de me rendre compte que le code s'arrête sur Next J.

Si une bonne âme pouvez me dire pour quoi, ça serait sympa.

Bon cette fois je vais au lit.

https://www.cjoint.com/?0HocFFFp60e

Bonne nuit 

Pascal

Suppression de ligne et formule en boucle

8 réponses

Discussions similaires

Newsletters