Suppression de ligne et formule en boucle
Résolu
pascalou83400
Messages postés
277
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Suppression de ligne et formule en boucle
- Formule si et - Guide
- Partage de photos en ligne - Guide
- Forcer suppression fichier - Guide
- Formule somme excel ligne - Guide
- Mètre en ligne - Guide
8 réponses
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.
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.
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
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
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 ?
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 ?
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
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
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
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
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