Discussion :

[lindette]

Bonjour

Voila j'ai ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

bonsoir
une piste pour toi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lindette]

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

[Gorfael]

Salut lindette et le forum

........
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[fred65200]

bonjour lindette,

Enlève le quadrillage de ton onglet piedpage et

Mets le code suivant dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[lindette]

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

[fred65200]

bonjour,
as tu essayé la seconde solution

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



fred65200