Erreur code VBA pour remplir un tableau avec un Userform

Bonjour,

je voudrais completer un tableau a l'aide d'un userform qui comporte 5 TextBox.

je voudrais que les valeurs s'enregistrent a la dernière ligne vide du tableau et ainsi de suite.

la feuille s'appelle "infirmieres"

mon code indique un erreur sur la ligne en bleu

Private Sub CommandButton1_Click()

Dim derligne As Integer

derligne = Sheets("infirmieres").Range("A456541").End(x1Up).Row + 1

Range("A" & L).Value = TextBox1

Range("B" & L).Value = TextBox2

Range("C" & L).Value = TextBox3

Range("D" & L).Value = TextBox4

Range("E" & L).Value = TextBox5

End Sub

avez vous des suggestions ?

Cordialement

Bonsoir astil,

2 choses à voir rectifier.

La déclaration de la dernière ligne

derligne = Sheets("infirmieres").Range("A456541").End([Surligner]x1Up[/Surligner]).Row + 1

Remplace x1Up par xlUp

Ensuite tu remplaces L par derligne dans les lignes suivantes

Range("A" &[Surligner] L[/Surligner]).Value = TextBox1

Cdt

Henri

rebonsoir

Je ne suis pas encore habitué avec le nouveau forum.

donc corriges comme ceci

derligne = Sheets("infirmieres").Range("A456541").End(xlUp).Row + 1

et

Range("A" & derligne).Value = TextBox1
Range("B" & derligne).Value = TextBox2
Range("C" & derligne).Value = TextBox3
Range("D" & derligne).Value = TextBox4
Range("E" & derligne).Value = TextBox5

Henri

Salut l'équipe,

en supposant que ce soient des contrôles ActiveX...

Private Sub CommandButton1_Click()
'
Dim derligne As Integer
'
iRow = Sheets("infirmieres").Range("A" & Rows.Count).End(xlUp).Row + 1
For x = 1 To 5
    Cells(iRow, x) = Me.Controls("TextBox" & x).Text
Next
'
End Sub

A+

bonjour Henri,

merci pour votre réponse, mais la commande de debogage bloque sur la premiere ligne :

derligne = Sheets("infirmieres").Range("A456541").End(xlUp).Row + 1

merci

Bonjour toutes et tous bon week-end de fin d'année à toutes et tous

merci à Curulis57 et Afeh pour les codes

ci-joint le fichier à voir si cela fonctionne pour toi chez moi çà fonctionne super bien

crdlt,

André

Bonsoir à tous et meilleurs voeux,

Regarde si toutefois ta feuille que tu as nommée "infirmieres" est bien écrite et ne comporte pas de blanc ou d'accent sur le e.

Cdt

Henri