code remet feuile a son point de départ mais.......

[grisan29]

bonjour a vous tous
j'ai ce code qui me permet lors de la sauvegarde de remettre la feuille a nu c'est a dire remis a neuf la feuille devis, seulement ce code m'efface trop de ligne en bas et j'ai beau changer de codification cela ne change rien, donc j'ai mis 2 lignes de code qui permettent de rajouter 2 lignes (en commentaire ici)qui malheureusement ont été "mangées" par le code
donc

Sub effaceplage()
Dim DLig As Long
With Sheets("facture")
If [MTTC].Row - 8 > 19 Then
    .Range("C19:C" & [MTTC].Row - 8).EntireRow.Delete
ElseIf [MTTC].Row - 8 = 19 Then
   .Range("C19").EntireRow.Clear
    .Range("J5:J9") = ""
End If
'Rows("20:20").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Rows("20:20").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 .Range("c19:M19,O19:P19").Borders(xlEdgeTop).LineStyle = xlContinuous
End With
End Sub

en fait ce code efface jusque la ligne 19 en remontant le bas de page

et j'ai également un petit souci avec la mise en page qui ne prends pas en compte la copie des entete de colonnes ou sont inscrit les articles et aussi celle du dessus et sans faire le bourdurage sous la ligne d'entête
ce code fonctionne bien sans bordure sur un fichier avec une listbox et sur un pc avec windows7 et office 2010
et sur celui ci j'ai windows8 et office 2010 , je ne pense pas qu'il y a un rapport mais?
trève de bavardage je mets le fichier tel que et vous jugerer sur pièce

Pascal

 

[phlaurent55]

Re : code remet feuile a son point de départ mais.......

Bonjour Pascal,

essaie en remplaçant:

.Range("C19:C" & [MTTC].Row - 8).EntireRow.Delete

par:

.Range("C19:C" & [MTTC].Row - 10).EntireRow.Delete

à+
Philippe

 

[grisan29]

Re : code remet feuile a son point de départ mais.......

bonsoir Phlaurent55
j'ai déjà essayer comme tu me le propose et ce n'est pas mieux, c'est pour cela que j'ai joint le fichier

Pascal

de toute façon le fichier a besoin de gens sérieux comme il y en a sur ce forum🙂 pour lui donné un sérieux coup de jeune
ne serait ce que par commencé a réduire certains des codes

Pascal

 

[grisan29]

Re : code remet feuile a son point de départ mais.......

bonsoir a vous tous
il n'y a que Phlaurent55 qui s'interresse a mon fichier, car le fichier peut intéresser des forumeurs qui suivent le post

Pascal

 

[grisan29]

Re : code remet feuile a son point de départ mais.......

bonjour a vous tous
plus personne pour essayer de m'apporter une réponse? merci

Pascal