Discussion :

[Patafoin]

Bonjour à tous,

Malgré tous mes efforts pour essayer de trouver une solution à mon problème, je n'y suis pas parvenu... Je m'excuse d'avance si la solution a déjà été évoquée quelque part, j'ai cherché des sujets déjà existants mais je n'ai pas trouvé.

Je voudrais créer une macro qui supprime des lignes d'un tableau qui contiennent des formules du type : =SI(D10="";""; Base!C12) si leur résultat est "".

J'avais essayé cette macro qui fonctionne seulement si les cellules sont vides (sans formule) :[/B]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub DétruireLigne()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Cette macro ne fonctionnait pas vu que mes cellules ne sont pas vides même si elle renvoient au résultat "".
J'ai donc essayé de faire F2 puis F9 sur chaque cellule pour remplacer les formules par leur valeur mais la macro ne fonctionne toujours pas.

Que faudrait-il changer dans la macro pour que les cellules dont la formule renvoie à un "" soient supprimées ?

Merci beaucoup,
Patafoin

[Ombak]

Hey, ta cellule étant considéré comme utilisée, je te conseille de faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cells(r,x) = "" Then Rows(r).Delete

[Patafoin]

Merci beaucoup Ombak, ta modification fonctionne très bien.
Cependant J'ai d'autres cellules sur la feuille qui font partie d'un volet de cellules figées qui se suppriment aussi..
Faut-il que je protège ces cellules en question ? Ou alors que je spécifie une plage à supprimer dans VBA ?

[Ombak]

Mhh, si je comprends bien, le soucis c'est que tu as ton tableau et je suppose en dessous d'autres données, tu veux supprimer ls lignes de ton tableau mais sans que tes autres données ne descendent ?

Si c'est ça, je vois deux possibilités :

1) je suis pas sûr que ça marche, mais tu laisses ton if tel quel et tu rajoute un élément dans le then: tu insères une ligne juste après ton tableau, ça devrait tout te remettre en ordre normalement

2) si tu sais précisément où sont tes données après, tu peux créer un variant dans lequel tu récupères toutes les données après le tableau, tu le replaces ensuite où tu veux une fois que t'as fini de virer tes lignes. C'est censé marcher ça en tout cas, mais ça peut rajouter du temps d'exécution malheureusement et faut que tu saches où sont tes données (à peu près)

[Patafoin]

Si tu veux, j'ai un tableau dans lequel il faut supprimer les lignes "vides" et il y a d'autres cellules au dessus du tableau, dans un volet figé qui se suppriment aussi.
Il faudrait peut être définir une plage de cellules dans lesquelles travailler pour la suppression des lignes ? Je n'arrive pas à définir une zone de travail pour que les autres cellules de la feuille qui sont hors du tableau ne soient pas supprimées :/

[Ombak]

Ok, j'ai un peu de mal à voir. Tes données peuvent se trouver à 3 endroit:

- en dessous du tableau : dans ce cas, lorsque tu supprimes une ligne (de ton tableau), en rajouter une en dessous devrais régler le soucis.

- au dessus du tableau : dans ce cas lorsque tu supprimes une ligne ça ne devrait pas gêner, tes données ne se décalent pas

- à gauche ou à droite du tableau : là c'est plus gênant, supprimer ta ligne supprime ces données. Je pense que dans ce cas, la solution la plus simple est de créer un variant dans lequel tu stockes soit ton tableau, soit tes données.
Admettons que tu y stockes le tableau, tu crées un variant de la largeur et longueur de ton tableau au début de ta procédure
tu fais tes modifications sur ce variant
tu recolles ce variant là où se trouvait ton tableau de base, rien n'aura bougé excepté ton tableau du coup

[Patafoin]

Merci beaucoup Ombak, la 3ème option était la bonne !