Problème codeVBA Formulaire
VBAnovice
-
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train d'essayer de mettre en place un registre unique du personnel avec une fonction formulaire. Le problème c'est que je suis novice dans le domaine et je n'arrive pas à trouver où j'ai pu faire une erreur dans le code. Si quelqu'un pouvez m'éclairer, j'ai une erreur "1004"sur :
derligne = .Range("A65536").End(x1up).Row + 1
dans le code suivant :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("contrats")
derligne = .Range("A65536").End(x1up).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then contrats.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Je suis en train de craquer HELP ! Merci d'avance.
Je suis en train d'essayer de mettre en place un registre unique du personnel avec une fonction formulaire. Le problème c'est que je suis novice dans le domaine et je n'arrive pas à trouver où j'ai pu faire une erreur dans le code. Si quelqu'un pouvez m'éclairer, j'ai une erreur "1004"sur :
derligne = .Range("A65536").End(x1up).Row + 1
dans le code suivant :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("contrats")
derligne = .Range("A65536").End(x1up).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then contrats.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Je suis en train de craquer HELP ! Merci d'avance.
A voir également:
- Problème codeVBA Formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire de reclamation instagram - Guide
- Confirmer le nouvel envoi du formulaire err_cache_miss - Forum Webmastering
- Problème avec Google Chrome - Forum Google Chrome
2 réponses
Bonjour,
xlUp (XL comme Excel) et non x1up.
cf. https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne
A+
xlUp (XL comme Excel) et non x1up.
cf. https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne
A+
VBAnovice
Merci :)
