Création d'une feuille excel à partir d'un bouton

Option Explicit
Private Sub CommandButton1_Click() 'Bouton ok


Dim F As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Recap").Delete
Application.DisplayAlerts = True
Set F = ThisWorkbook.Worksheets.Add(after:=Sheets(Sheets.Count))
F.Name = "Recap"

With F
.Cells(1, 4) = "Bilan"
.Cells(3, 1) = "Informations:"
.Cells(4, 6) = "Date:"
.Cells(4, 1) = "Technicien:"
.Cells(6, 1) = "Température ambiante:"
.Cells(7, 5) = "N° de rapport:"
.Cells(8, 5) = "N° d'essais:"
.Cells(5, 6) = "Heure:"
.Cells(10, 1) = "Appareils soumis aux essais:"
.Cells(11, 1) = "Désignation:"
.Cells(12, 1) = "Identification:"
.Cells(11, 5) = "Marque:"
.Cells(12, 5) = "Modèle:"
.Cells(4, 2) = TextBox1
End With

End Sub

Cliquez pour agrandir...