1 pièce(s) jointe(s)
copie + effacer données vba
Bonjour,
J'ai besoin de l'aide des pros de vba :
J'ai une macro qui me duplique une page et me la place en dernière place.
(comment puis-je faire pour choisir le nom du fichier qui à été crée (je voudrais une incrémentation mais sans les parenthèse ex. data,data1, data2)
Mon problème et que je n'arrive pas a effacer les données après la copie afin d'avoir une feuille vierge.
et je voudrais que dans les feuilles lors de l'ajout d'une ligne une mise en forme se fasse (comme la ligne du dessus).
voir le fichier ci-joint.
voici mon code l'ajout de feuille fonctionne mais pas effacer le contenu
code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub inserpage()
Dim NomFichier
NomFichier = ActiveWorkbook.Name
Workbooks(NomFichier).Sheets("data").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
'vider contenu de la page copier
NomFichier = ActiveWorkbook.Name
Dim feuille As Worksheet
Set feuille = Sheets(Sheets.Count)
With feuille
For i = .UsedRange.Rows.Count To 6 Step -1
.Range(.Cells(i, 1), .Cells(i, "AB")).Value = ""
Next i
End With
End Sub |
Merci a tous.
warrio
