Discussion :

[mimi13580]

Bonjour le forum,

je suis nouveau, et je début avec les macros.
DONC J'AI BESOIN DE VOUS

j'ai créer un classeur avec plusieurs feuilles. sur ces feuilles, j'ai créer des formulaires à remplir par un opérateur, et une fois le formulaire remplie, l'opérateur click sur un bouton "nouvelle feuille" pour avoir un nouveau formulaire à remplir à la suite de l'initial, sachant que le nouveau formulaire doit être vierge et doit être copier sur la page 2, puis page 3 ect.....afin que l'on puisse imprimer la page désirer.
PS: le bouton "nouvelle feuille" doit me permettre de créer X formulaires à la suite.

Ci-joint un model de mon tableau avec une macro trouvé sur un forum, mais il fait que copier et coller, il manque effacer les cellules X.

http://cjoint.com/?0Kpx6EBtT3f

Merci par avance

[Thautheme]

Bonjour Mimi, bonjour le forum,

C'est marrant mais j'ai déjà travaillé sur ce fichier...
Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim DEST As Range
Dim PL As Range
 
Set DEST = Cells(Application.Rows.Count, 1).End(xlUp).Offset(8, 0)
Set PL = Application.Union(DEST.Offset(13, 5).Resize(3, 3), _
   DEST.Offset(18, 5).Resize(1, 3), _
   DEST.Offset(21, 5).Resize(6, 3))
Range("A1:H27").Copy DEST
PL.ClearContents
End Sub