grisan29
XLDnaute Accro
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
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
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
Code:
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 Subet 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