Pb saisie de données

cs_ptitluc Messages postés 1 Date d'inscription mercredi 16 juin 2004 Statut Membre Dernière intervention 16 juin 2004 - 16 juin 2004 à 11:45
olanfr Messages postés 46 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 25 novembre 2006 - 16 juin 2004 à 12:37
Bonjour bonjour,

c'est en tant que ptit nouveau, et gros débutant, que j'ose solliciter votre aide :

j'ai créer un formulaire de saisie de données qui me permet donc de rentrer ces données directement dans une feuille de mon classeur. Seul ENORME pb pour moi: chaque nouvelle saisie efface la précédente. En fait une seule ligne est concernée par mes saisies. J'ai essayé différents trucs combinés avec ceci :

Sheets("Feuil2").[A2] = UserForm2.TextBox1

mais je n'arrive pas à lui faire détecter la présence d'un contenu par cellule qui lui ferait alors passer à la cellule de dessous!

Voilà, un gros merci si jamais vous pouvez me sortir de là!!

1 réponse

olanfr Messages postés 46 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 25 novembre 2006
16 juin 2004 à 12:37
Bonjour,
Essaie un truc du genre

Dim i as Integer
i=1
While cells(i,1).value<>""
i=i+1
wend
cells(i,1).value=UserForm2.TextBox1
@+
Olan
0
Rejoignez-nous