Problème codeVBA Formulaire

Fermé

VBAnovice - 5 oct. 2015 à 13:30
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 6 oct. 2015 à 00:45

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.

A voir également:

Problème codeVBA Formulaire
Formulaire de réclamation facebook - Guide
Formulaire de reclamation instagram - Guide
Le formulaire rempli - Guide
Confirmer le nouvel envoi du formulaire err_cache_miss - Forum Google Chrome
Formulaire de contact le bon coin introuvable - Forum Réseaux sociaux

2 réponses

Réponse 1 / 2

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
5 oct. 2015 à 13:35

Bonjour,

xlUp (XL comme Excel) et non x1up.
cf. https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne

A+

VBAnovice
5 oct. 2015 à 15:24

Merci :)

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
5 oct. 2015 à 13:36

bonjour

faute de frappe !
remplacle 1 par un l (Lminuscule) End(x1up). par End(xlup).

VBAnovice
5 oct. 2015 à 15:26

Merci,
maintenant j'ai une erreur "424' sur le :
If r > 0 Then contrats.Cells(derligne, r) = Ctrl

Pourvu que ce soit la dernière...

une solution?

Merci d'avance

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
6 oct. 2015 à 00:45

contrats ne correspond à rien.
Essaie

 If r > 0 Then .Cells(derligne, r) = Ctrl

L'utilisation de With équivaut à

If r > 0 Then Worksheets("contrats").Cells(derligne, r) = Ctrl

Discussions similaires

Civilité (Mr,Mme,Melle) n' apparait pas lors de l'exécution du formulaire

Bonjour,

Je vous montre la photo imprimé (fait avec le clavier sur la touche (imprim ecran) que j'ai créé 'formulaire en VBA' avec excel 2019 que j'ai nommé

voici le code :

Private Sub CommandButton_AjoutJoueur_Click()
'**************************************
'***** Enregistrement des donnees *****
'**************************************

'**** Civilité *****
ComboBoxCivilite.ColumnCount = 1
ComboBoxCivilite.List = Array("Mr", "Mme", "Melle")

'Nom du Joueur
Cells(1, 2).Value = TextBox_NomJoueur

'Prenom du joueur
Cells(1, 3).Value = TextBox_PrenomJoueur

'Adresse
Cells(1, 4).Va...

Je n'arrive plus à récuperer mon compte Outlook

Bonjour,

ça vas faire maintenant 4 Jours que j'essaye de récuperer mon compte Outlook en remplissant correctement le formulaire de récupération, mais Microsoft m'envois chier à chaque fois, alors que j'inscris des informations cohérent aux comptes, que j'ai déjà utiliser pour récuperer mon compte Outlook, il est normalement associer à mon compte Gmail, mais l'un ne peut pas rattraper l'autre aucun d'entre eux ne saurait récuperer mon compte avec un formulaire et une question secrète que je suis sensé connaitre, là je suis à bout je ne sais plus quoi faire et je ne sais pas comment contacter leurs ingénieurs pour régler mon problème, si ça peut faire avancer les choses, j'ai pu...

Google Chrome : "Nouvel envoi du formulaire"

Bonjour,

Sur Google Chrome, quand je fais une recherche (sur un site quelconque), que je clique sur un résultat et que je fais "Précédent" par la suite, j'ai ce message "Nouvel envoi du formulaire" dans lequel je dois cliquer sur "Actualiser" puis faire "Continuer".
Est-ce qu'il y a moyen de faire tout ça automatiquement et d'enlever ce message récurant qui, il faut le dire, devient agaçant à la fin ?

Merci d'avance,

beredezebe

Problème d'envoi de formulaire

Bonjour,
Je souhaite pouvoir envoyer un formulaire en cliquant sur un input de type Text , j'ai fais plusieurs recherches sur Google mais aucunes ne portent leurs fruits.
Merci

Configuration: Windows 7 / Chrome 23.0.1271.91

Confirmation de l'envoi d'un formulaire html

Bonjour,

Je cherche a demander une confirmation en javascript a l'utilisateur avant que le formulaire html ne s'envoi, j'ai trouver cela mais ca ne marche pas :

Pourriez vous m'aider svp?

Merci d'avance et bonne nouvelle

P.S : jolie nouvelle interface pour le fofo mais il lag pas mal quand meme :(