Bonjour,

Je viens de créer un UserForm suite à un tuto mais çà bug.

En effet, j'ai créer 2 TextBox + 1 Bouton de commande.
A chaque fois que je saisi un nom et un prenom, je clique sur le bouton de commande qui va aller inscrire sur la ligne vierge suivante le nom en colonne A grace au TAG 1 et le prenom en colonne B grace au TAG 2 (propriete du bouton de commande).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
With Worksheet("Feuil1")
derligne = .Range("65536").End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
Next
End With
TextBox = ""
End
End Sub
Mais çà bug sur le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
sur Ctrl.

Merci.