Re : Macro: Création d'un bouton' enregistrer et imprimer'.
Bonjour,
Est-ce trop compliqué de décrire ton problème dans un français qui soit compréhensible par tous.
A )
Cette expression est incompréhensible : "grand pas en petit"
B ) Si tu veux copier une donnée d'une cellule à une autre, tu dois spécifier à quelle feuille appartiennent ces 2 cellules
- Copier cellule A1 de la feuille "Feuil1" vers la cellule C2 de la feuille Feuil2 OU vers la première cellule libre en
colonne C de la feuil2
Nul besoin d'écrire un roman pour se faire comprendre...
Voici un exemple de macro que tu peux lier à ton bouton :
'-------------------------------------------------------
Private Sub Imprimer_Formulaire()
Dim NextRow As Long
'Copie les données
With Worksheets("Registre")
NextRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & NextRow) = .Range("C2")
.Range("B" & NextRow) = .Range("C6")
End With
'Définis la mise en page
With Worksheets("Formulaire")
With .PageSetup
.PrintArea = Range("B1
6").Address
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.CenterHorizontally = True
.CenterVertically = True
.Zoom = 175
End With
'Tu changes la commande .PrintOut lorsque
'les tests sont terminés et satisfaisants.
.PrintPreview
End With
'Enregistre le fichier
ThisWorkbook.Save
End Sub
'-------------------------------------------------------