supprimer les lignes vides contenant une formules

[PASCAL]

bonsoir,
ayant toujours le même problème, je fais appelle à vous,

ayant une plage de réfèrence en a1:g400 ,je dois supprimer les lignes contenant des formules sans valeur et garder les lignes avec des valeurs , et le tout doit être ramené l'une contre l'autre


ex: a1:g1 aucun valeurs sur la ligne(a supprimer)
a2:g2 valeurs calculer (a garder)
a3:g3 aucun valeurs sur la ligne (a supprimer)
a4:g4 valeurs calculer (a garder)

macro pour ramener et supprimer les lignes

a1:g1 valeurs calculer (a garder)
a2:g2 valeurs calculer (a garder)

 

[Mytå]

Bonsoir le forum

Pascal voit avec ceci si cela pourrait te convenir

Option Explicit
Sub masquer_ligne()
Dim valeur As Range, vide As String, c As Byte
For Each valeur In Range("A1:G400")
If valeur = vide Then c = c + 1
If valeur.Column = 7 Then
If c = 7 Then
Rows("" & valeur.Row & ":" & valeur.Row & "").EntireRow.Hidden = True
End If
c = 0
End If
Next valeur
End Sub
Sub demasquer()
Rows("1:400").EntireRow.Hidden = False
End Sub

A suivre

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

 

[PASCAL]

je te remercie beaucoup, cela fonctionne , mais j'ai encore le probleme suivant, le fait de ramener les lignes vers le haut ne cause aucune insidence sur la lecture à l'écran, mais des je j'imprime elle imprime 18 page

ihih! à tu autre chose à me proposer

 

[Mytå]

Re Pascal et le forum

Je viens de tester la macro et ici quand je demande une impression
seules les lignes a l'ecran sont imprimées.

Joint une feuille pour exemple car la je vois pas


Mytå

 

[lolo]

Bonsoir pascal,
je te conseille de faire des lignes de hauteurs 1.
je pense qu'une macro qui te donne une hauteur de 1 toutes les 2
lignes doit etre possible!
Malheureusement je ne suis pas un expert!
Mytå au secoursssssssss...lol
a+ lolo

 

[PASCAL]

JE AI FAIS AUSSI LE TEST SUR UNE FEUILLE VIERGE, CA FONCTIONNE MAIS DES QUE LES CELLULE CONTIENNE UNE FORMULE CA IMPRIME 18 PAGE


JE TE JOINT LE PROGRAMME, SI TU PEU ME DEPANNER.

 

[PASCAL]

OUBLIE LE PROGRAMME, A+

 

[PASCAL]

DESOLE PAS PU ENVOYER, MAIS CONCERNANT CE PROBLEME, J'AI FAIS UNE MACRO QUI IMPRIME SEULEMENT CE QUI EST DANS LES CELLULES
CE QUI VEUT DIRE QU'ELLE RECONNAIT LA DERNIERE CELLULE PLEINE!!

J'AI BEAU TENTER DE FAIRE UN COPIER COLLER LA VALEUR MAIS ELLE IMPRIME DE TOUT FACON

 

[PASCAL]

re , le forum

y a t'il un moyen de supprimer cette ligne , sans toucher au valeur des cellules