Erreur d'exécution '424

[maniola24]

Bonjour tt le monde,
je vous pris de bien vouloir me corriger.
Private Sub saisiefiche_Click()
'Ouvrire un formulaire de saisie"Entrée"
Worksheets("tableau").Rows(3).Select
Selection.Insert
With UserForm1
.Numfiche.Text = ""
.Emetteur.Text = ""
.Constat.Text = ""
.Description.Text = ""
.Qui.Text = ""
.Quand.Text = ""
.Personne.Text = ""
.Equipement.Text = ""
.Methode.Text = ""
.Environnement.Text = ""
.Matiere.Text = ""
End With
UserForm1.Show
End Sub

 

[Robert]

Re : Erreur d'exécution '424

Bonjour Maniola et bienvenue dans le forum, bonjour le forum,

Bonjour tt le monde,
je vous pris de bien vouloir me corriger.

Corriger quoi (quelle ligne) ? Dis-nous où est le problème et on se fera un plaisir de te corriger...