inserer ligne code vba

Bonjour

Voila j'ai ce code:

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("piedpage").Select ActiveWindow.SmallScroll Down:=-9 Range("A1:F8").Select Selection.Copy Sheets("DEVIS").Select [A65536].Select Selection.End(xlUp)(2).Select ActiveSheet.Paste End Sub

---

qui fonctionne bien mais j'aimerais mettre des conditions
- si le nombre total de lignes est superieur à 40 on colle le pied de page
- si le nombre total de ligne est inferieure à 40 on ajoute des lignes jusqu'à 40

pensez-vous que cela soit possible???
Merci d'avance pour votre aide
Linda

bonsoir
une piste pour toi.

Code:

---

1 2 3 4 5 6 7 8 9

Sub InsererPiedDePage() 'on recherche la dernière ligne de la colonne A de la feuille DEVIS derli = Sheets("DEVIS").Columns(1).Find("*", , , , , xlPrevious).Row 'on cherche le multiple de 40 derli = Application.Ceiling(derli, 40) 'on colle Sheets("piedpage").Range("A1:F8").Copy Sheets("DEVIS").Range("A" & derli + 1) End Sub

---

Tiens nous au courant. Je ne sais pas si ça correspond à ta demande.
Donne plus de précisions

Salutations

fred65200

Bonjour

merci beaucoup pour ton aide, c'est exactement cela que je recherchais.
par contre j'ai un probléme de "A1" à "A8" j'ai une image et cela ne me la prend pas, en fait cela selectionne à partir de LA LIGNE 9 ???
et dans la selection que je colle comme pied de page j'ai des formules de calcul et donc des resultats mais il n'apparaissent pas???
si tu as une idée merci d'avance
Linda

Salut lindette et le forum

Citation:

---

Envoyé par lindette

........
qui fonctionne bien mais j'aimerais mettre des conditions
- si le nombre total de lignes est superieur à 40 on colle le pied de page
- si le nombre total de ligne est inferieure à 40 on ajoute des lignes jusqu'à 40
......................
pensez-vous que cela soit possible???

---

Un peu succint comme descriptif du problème :
si tu as moins de 40 lignes (dernière ligne non-vide en A)
On ajoute des lignes jusqu'à 40 ? Quelles lignes ? Coller le format d'une ligne de référence (mais laquelle ?) ne suffirait pas ?

Si tu as 40 lignes :
On fait quoi ? Cas non prévu dans le descriptif

si tu as Plus de 40 lignes (dernière ligne non-vide en A)
tu as 80 lignes : tu colles le pied de page en ligne 81 ? en ligne 40 ?
Ne serait-il pas plus simple d'avoir le pied de page dans la mise en page prévue, et ajouter un Saut de page en ligne modulo 40 ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test_2() Dim X As Long X = Sheets("DEVIS").[A65536].End(xlUp).Row If X < 40 Then Sheets("DEVIS").Cells(X, 1).EntireRow.Copy Sheets("DEVIS").Rows(X & ":40").PasteSpecial xlPasteFormats Sheets("piedpage").Range("A1:F8").Copy Sheets("DEVIS").Range("A40") Else Sheets("piedpage").Range("A1:F8").Copy Sheets("DEVIS").Range("A" & X + 1).PasteSpecial xlPasteAll Sheets("piedpage").Range("A1:F8").Copy Sheets("DEVIS").Range("A40").Insert Shift:=xlDown End If End Sub

---

Teste ça et/ou explique correctement ton problème
A+

bonjour lindette,

Enlève le quadrillage de ton onglet piedpage et

Mets le code suivant dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub InsererPiedDePage() 'on recherche la dernière ligne de la colonne A de la feuille DEVIS derli = Sheets("DEVIS").Columns(1).Find("*", , , , , xlPrevious).Row 'on cherche le multiple de 40 derli = Application.Ceiling(derli, 40) 'on copie le pied de page sous forme d'image Sheets("piedpage").Range("A1:F8").CopyPicture xlScreen, xlBitmap 'et on colle Application.Goto Sheets("DEVIS").Range("A" & derli + 1) ActiveSheet.Paste End Sub

---

Dis nous si ça te convient. Dans la ngative, envoie un classeur sans donnée personnelle

ou applique la solution de Gorfael

Citation:

---

Ne serait-il pas plus simple d'avoir le pied de page dans la mise en page prévue, et ajouter un Saut de page en ligne modulo 40 ?

---

Cordialement

Bonjour

Merci pour vos réponses.
la première solution de Fred65200 me convient mais il me reste toujours
- le probléme du logo qui est sur la feuille Devis de A1 à A8 qui n'apparait pas quand je veux imprimer
et
- dans le pied page j'ai le montant du devis mais cela colle le pied page sans les données.
j'espére que vous comprendrez car ce n'est pas toujours facile à expliquer.
Pour information j'essaie de créér ce logiciel pour une personne AVEUGLE, c'est pour cela que le maximum doit être automiser
Merci encore beaucoup de votre aide
Linda

bonjour,
as tu essayé la seconde solution

http://www.developpez.net/forums/sho...41&postcount=5



fred65200