user forme

[patgravure35]

bonjour a tous et toutes et bonne et heureuses année

vois je comprend pas quelque chose

j'ai créer un user forme pour entrer des donner sur une feuille avec ce code

Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim colonne As Integer
Dim derligne As Integer

derligne = Feuil4("VENTE").Range("A65000").End(x1Up).Row + 1

For Each ctrl In UserForm1.Controls

colonne = Val(ctrl.Tag)

If colonne > 0 Then Feuil4("VENTE").Cells(derligne, colonne) = ctrl
Next

End
End Sub


mais il me met une erreur sur la ligne noter en rouge

quelqu'un peut il me dire pourquoi

merci d'avance

 

[xhudi69]

Re : user forme

Bonjour patgravure35, le Forum,

Une indication pour ta ligne en erreur:

derligne = Sheets("VENTE").Range("A65000").End(xlUp).Row

Mais avec un petit fichier exemple, c'est mieux 🙂

@+ 😎

 

[Dranreb]

Re : user forme

Bonne année.
Ou alors

DerLigne = Feuil4.[A65000].End(xlUp).Row + 1

Si Feuil4 est bien le nom d'objet Worksheet dans le projet VBA représentant cette feuille.

 

[mapomme]

Re : user forme

Bonjour patgravure35,

(...) derligne = Feuil4("VENTE").Range("A65000").End(x1Up).Row + 1 (...) mais il me met une erreur sur la ligne noter en rouge (...)

N'y aurait-il pas aussi une erreur de frappe dans la constante XLUP ? (la deuxième lettre est un L et non le chiffre 1)

 

[patgravure35]

Re : user forme

merci beaucoup et bonne année