Copie de userform vers feuille excel problème

Résolu/Fermé
Signaler
-
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
-
Bonjour,

Bonjour, J'ai créer un userform de saisie et après validation il recopie sur une feuille Excel.classique vous dites...
or en regardant si ma ligne titi , par ex la zone "mail" est vide et si j'enregistre ma ligne toto aprés titi
et si ma ligne toto a son mail le mail toto est enregistré dans ligne titi.
voici mon code
en resumé les champs obligatoires sont corrects , mais les champs facultatifs ne reste pas sur la même ligne de l'adhérents,
il monte vers la même colonne qui est vide. les 3 premières sont correct car obligatoires (controle de saisie) mais pour le cellule mail ce n'est pas normal qu'il monte dans une autre colonne mail vide.
je pense à Activecell mais je ne sais pas utiliser.
j'ai vraiment besoin d'aide

merci de votre aide

une partie du code

userform1.show
bouton_click_ok()

Sheets("liste d'adhérents").Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TxtBx_titre_p2.Text
Sheets("liste d'adhérents").Range("B65536").End(xlUp).Offset(1, 0).Value = Me.TxtBx_prm_p2.Text
Sheets("liste d'adhérents").Range("C65536").End(xlUp).Offset(1, 0).Value = Me.TxtBx_nom_p2.Text
Sheets("liste d'adhérents").Range("J65536").End(xlUp).Offset(1, 0).Value = Me.TxtBx_mail.Text


2 réponses

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 590
bonjour

Comme ceci tu devrais ne pas embrouiller les lignes :

bouton_click_ok()
Dim ligne as Long
lig = Sheets("liste d'adhérents").Range("A65536").End(xlUp).Offset(1, 0).row
Sheets("liste d'adhérents").Range("A" & lig).Value = Me.TxtBx_titre_p2.Text
Sheets("liste d'adhérents").Range("B" & lig).Value = Me.TxtBx_prm_p2.Text
Sheets("liste d'adhérents").Range("C" & lig).Value = Me.TxtBx_nom_p2.Text
Sheets("liste d'adhérents").Range("J" & lig).Value = Me.TxtBx_mail.Text
0
à gbinforme
un grand merci , impeccable et dire que je ramais pendant 2 jours en tout cas merci pour la réponse juste et rapide
0
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 590
bonsoir eopxy,

Merci de ton message mais c'est plus facile de trouver les erreurs des autres que les siennes propres.
:-)
0