Création d'un userform

[nanadomlove]

Bonjour,
je suis nouveau sur le forum alors ne m'en voulez pas si je pose pas les bonnes questions.
après avoir cherché sur le net des tuto excel j'ai finie par trouver se qui m’intéresse mais voila sa ne marche pas comme sa devrait .
le code suivant me dit erreur sur la ligne en rouge
merci d’avance de votre aide

Private Sub CommandButton1_Click()
Dim CTRL As Control
Dim R As Integer
Dim T As Integer
Dim Derligne As Integer
With Worksheets("Feuil1")
Derligne = .Range("a65536").End(x1up).Row + 1
For Each CTRL In userforme1.Controls
R = Val(CTRL.Tag)
If R > 0 Then Feuil1.Cells(Derligne, R) = CTRL
Next
End With
TextBox1 = ""
End

End Sub

 

[CHALET53]

Re : Création d'un userform

Bonjour,

Tu as le chiffre 1 au lieu du l

Derligne = .Range("a65536").End(xlup).Row + 1

a+

 

[Guest]

Re : Création d'un userform

Bonjour et bienvenue,

Déclarer Derligne en type Long au lieu d'integer et

UserForm1 et non UserForme1 ou alors:

For each CTRL In Me.Controls

au lieu de

For each CTRL In userform1.Controls

ME fait référence à l'objet (ici Userform1) qui contient le code.

A+

[edition] Bien vu Chalet53, je ne l'avais pas vu celle là 1 au lieu de l

 

[phlaurent55]

Re : Création d'un userform

Bonjour,

l'USF se nomme UserForm1

dans la ligne ci-dessous, il a été féminisé

For Each CTRL In userforme1.Controls

à+
Philippe

Edit: Bonjour Chalet, Hasco

 

[nanadomlove]

Re : Création d'un userform

Merci pour la rapidité de vos réponses