suppression de ligne

[PAD]

Bonjour le forum,
Salut les Gones, (Parce que vous le valez bien)LOL

Et bien voilà, je cherche par le code ci-dessous à supprimer
Les lignes qui s’ajoutent quand les cellules on des retours à
La ligne, afin de garder la mise en page pour l’impression,
Et la bonne blague, il ne fonctionne pas.

Sub suppr()
Dim derlignpag1 As Long
Dim derlign As Long
Dim colonne1a As String, nomfeuille1 As String
colonne1a = 'C'
nomfeuille1 = 'Devis'
derlignpag1 = 58
'recherche de la dernière ligne écrite
dl1 = Sheets(nomfeuille1).Range(colonne1a & '65536').End(xlUp).Row + 1
With Sheets('Devis')
'supprime la ligne au dessus de 58
    If derlign > 58 Then .Rows(derlign).Delete Shift:=xlDown
End With
End Sub

Si quelqu’un pouvait me dire comment le corriger,
Ce serai vraiment sympas.

A+ PAD

 

[Gorfael]

Salut
Ton problème vient du fait que pour Excel une ligne correspond à un ensemble de cellules disposées horizontalement.
Ce qui fait que si ta cellule fait une hauteur de 20 centimètre, excel ne compte qu'une seule ligne

Soit, tu interdis le renvoi à la ligne automatique avec éventuellement un ajustement automatique,
Soit tu paramètre ton impression pour qu'elle reste sur un seule page
A+

 

[PAD]

Bonjour Goafael,

Merci de ma repondre,
Trés juste, je n'y avais pas pensé,
donc si je change de méthode, par exemple, je numérote les cellules de la colonne A, comment je peux y faire reference pour mon affaire?

Merci d'avance,

A+ PAD

 

[Gorfael]

Salut PAD

donc si je change de méthode, par exemple, je numérote les cellules de la colonne A, comment je peux y faire reference pour mon affaire ?

D'abord, ce que j'ai compris :
tu as une feuille qui te sert à éditer une facture.
Tu as des lignes vierges qui servent à formater ton impresssion : si une ligne est plus haute que normal, tu supprimes 1 ou plusieurs lignes vierges pour récupérer l'espace perdu.

Si c'est ça, tu calcules ta hauteur de page

Sub Macro1()
Dim H_totale As Double
Dim X As Integer
For X = 1 To 58
    H_totale = H_totale + Rows(X).RowHeight
Next
End Sub

et tu as plus qu'à adapter pour soit supprimer les lignes jusqu'à récuperer ta hauteur, soit leur donner(je préfères) un hauteur =0
A+

 

[PAD]

Re Gorfael, le forum,

Bien vue gorfael, je vais adapter.
Par contre, je reviendrai te donner le résultat demain dans la journée.

Bonne soirée,

A+ PAD

EDITER :
Je vais laisser le fichier, [file name=Dev1_20060519172357.zip size=45474]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Dev1_20060519172357.zip[/file]

Message édité par: PAD, à: 19/05/2006 17:23