patgravure35
XLDnaute Occasionnel
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
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