suprime ligne apres 2 ligne vide se suivent

pralo · 6 Novembre 2018

bonsoir le forum
j'aurais besoin de votre aide s'il vous plait
j'espère que mes explication vont être claire
je laisse une ligne vide entre chaque lignes remplies pour écrire des notes après avoir imprimer
dans la plage ("A5:J44") j'aimerais supprimer les lignes vides après la dernière ligne remplie
faire de même pour la plage ("A45:J85")
puis ajuster la feuille en vertical avant d'imprimer
j'ai essayer des macros du forum mais les entres lignes que je voudrais conserver sont elles aussi supprimer
si quelqu'un a une idée
merci d'avance

job75 · 11 Novembre 2018

Bonjour pralo, le forum,

Code:

Sub Masquer()
Dim r As Range
For Each r In [5:44,46:85].Rows
    r.Hidden = Application.CountA(r) = 0
Next
End Sub

Sub Afficher()
Rows.Hidden = False
End Sub

Bonne journée.

pralo · 11 Novembre 2018

bonjour job75, bonjour le forum
maintenant avec ton code je peux choisir
merci encore pour le temps que tu a passer pour moi
bon dimanche également

suprime ligne apres 2 ligne vide se suivent

pralo

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

pralo

XLDnaute Junior

Discussions similaires