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

[AzoR]

Bonjour tout le monde,
J'ai un petit soucis avec un userform. Sur cet userform est présent un bouton qui devrait me permettre d'ouvrir une autre feuille excel mais ce bouton ne fonctionne pas et ma feuille ne s'affiche que lorsque je ferme l'userform ou est présent le bouton.
Voici le code:

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

 

[Iznogood1]

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

Réactive toujours le contrôle d'erreur

On Error Resume Next
Worksheets("Recap").Delete
On Error Goto 0

Tu verras quelle ligne coince.

Je soupçonne la dernière :
.cells(4,2) = TexBox1

Ton code n'est pas propre. Sois plus rigoureux :

.cells(4,2).Value = TextBox1.Text

 

[AzoR]

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

J'ai enlevé le On error resume next
et j'ai modifier la dernière ligne et cela me donne:

 

[Iznogood1]

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

C'est la cas quand ta feuille Récap n'existe pas encore.
-> On error resume next / Wordksheets("Recap").Delete/ On error goto 0

 

[AzoR]

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

Merci de ton aide
Ceci marche en partie mais l'autre feuille ne s'affiche que quand je quitte l'userform et non quand je clique sur ok

 

[job75]

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

Bonjour,

Dans un UserForm, si l'on a comme ici en début de macro :

Application.ScreenUpdating = False

il faut toujours ajouter avant le End Sub :

Application.ScreenUpdating = True

Edit : et aussi réactiver les évènements avec Application.EnableEvents = True

A+

 

[AzoR]

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

Merci beaucoup ça marche
Bonne journée