copier une feuille par macro

[bpol]

RE,

c'est pas mon jour j'y suis pas aujourd'hui!
j'ai oublié comment on faisait pour créer une nouvelle feuille en copiant une autre par exemple feuil1 avec comme nom de signet une cellule


merci
bpol

 

[Pierrot93]

Re : copier une feuille par macro

Bonsoir bpol

essaye le code ci-dessous :

Sheets("Feuil1").Copy before:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("A1").Value

bonne soirée
@+

 

[bpol]

Re : copier une feuille par macro

Merci Pierrot93

à propos est il possible d'imprimer uniquement les feuilles qui ont les cases de la colonne A remplies? car c'est un tableau très long avec des formules alors je te dis pas le nombre de pages sélectionné pour imprimer

Merci encore
Bpol

 

[Pierrot93]

Re : copier une feuille par macro

Re

peut être en masquant les lignes dont la colonne A est vide.

 

[Pierrot93]

Re : copier une feuille par macro

Re

code ci-dessous; si j'ai bien compris...

Option Explicit
Sub test()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
    If IsEmpty(Cells(i, 1)) Then Rows(i).Hidden = True
Next i

'pour prévisualisation
ActiveSheet.PrintPreview

'pour impression
'ActiveSheet.PrintOut
End Sub

bonne soirée
@+