Discussion :

[swissmade]

Bonjour,
J'ai un modèle de document sur une page.
Je copie ce modèle et je le colle sur une autre page pour l'utiliser.
Malheureusement certaine mise ne page ne se conserve pas.
Il s'agit de certain "gras" et de cellule "fusionnée"
Que dois je faire pour que ca conserve cette mise en page?

Code :

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

1
2
3
4
5
6
If Sheets(banque).Cells(1, 1) = Empty Then
            For j = 1 To 18
                Worksheets("modèle Leu").Columns(j).Copy _
                Destination:=Worksheets(banque).Cells(1, j)
            Next j
        End If

D'avance merci

[LeForestier]

Il me semble que la fonction Cells() ne copie que la valeur, utilise plutôt la fonction Range()

[swissmade]

Bon ben j'ai trouvé tout seul
Il sufisai de copier aussi les lignes

Code :

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

1
2
3
4
5
6
7
8
 For j = 1 To 18
                Worksheets("modèle Leu").Columns(j).Copy _
                Destination:=Worksheets(banque).Cells(1, j)
            Next j
            For j = 1 To 59
                Worksheets("modèle Leu").Rows(j).Copy _
                Destination:=Worksheets(banque).Cells(j, 1)
            Next j

C'est certaiement pas la meilleur solution mais ca marche.

MERCI

[jfontaine]

Si ta feuille de destination est vide, tu peux aussi utiliser la copie d'onglet.
De cette façon tu gardes la mise en page

[LeForestier]

un peu plus simple..

Code :

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

1
2
Worksheets("feuil1").Columns("A:J").Copy _
Destination:=Worksheets("Feuil2").Columns("A:J")

Je n'avais pas compris que tu voulais copier toutes les colonnes.
A+

[AlainTech]

Il me semble que la fonction Cells() ne copie que la valeur, utilise plutôt la fonction Range()

Je n'ai jamais constaté de différence de comportement entre les Propriétés Cells et Range (à part que Cells renvoie un Range d'une seule cellule).