Excel - VB - Remplir feuille via Userform [Résolu/Fermé]

Signaler
-
 k.deg -
Bonjour,

Je souhaite créer une sorte de base de donnée. J'ai créer un userform pour pouvoir rentrer mes données plus facilement, mais je ne sais pas comment les exporter vers la feuille Excel..
Je sais les exporter vers une cellule précise, mais ce n'est pas ce que je recherche. Je voudrais que les données s'ajoutent une par une dans les colonnes.

Ca doit être simple et idiot pour vous, mais je ne vois vraiment pas.

Merci d'avance

4 réponses

Messages postés
16376
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2021
3 120
bonjour

par exemple colonne A

dans ton code tu écris cette ligne qui te donne la 1° ligne vide
With sheets("nomdetafeuille") 
   ligvid = .Columns(1).Find("*", , , , , xlPrevious).Row+1 
   .cells(ligvide,"A")=tadonnee_usf 
end with


tu retrouveras très souvent ce genre de pb: trouver la première lige vide, donc mémorise

Il existe d'autres manières
With sheets("nomdetafeuille") 
    ligvid=.cells(.cells.rows.count, "A").end(xlup).row+1 
    .cells(ligvide,"A")=tadonnee_usf 
end with


mais à éviter
lig=1 
while cells(lig,"A")<>""  
lig=lig+1 
wend 
. 
cells(lig+1,"A")=tadonnee_usf 

qui sent le newbie pas très au point

Michel
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
15534
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 janvier 2021
1 440
Bonjour,

Le moyen le plus simple est de copier vos donnees toujours sur la premiere ligne de votre feuille de calcul (onglet) et de faire une insertion de ligne. Ce qui fera descendre d'une ligne les donnes que vous avez copiees.

Bonne suite
Messages postés
16376
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2021
3 120
erreur d'envoi
Bonjour et merci,

Est ce que vous pouvez détaillé vos code ??
Je m'explique : il est bien de connaître les codes, mais il faut les comprendre.. ( et je suis un débutant )
Donc ça serait sympa de votre part :D

Et encore merci pour vos réponse :)
Messages postés
15534
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 janvier 2021
1 440
Bonjour michel_m
Je ne suis pas du tout vexer. Cette personne debute donc elle a bien le temps de se compliquer le vie avec les innombrables facon de programmer pour arriver a ne pas faire grand-chose.
Messages postés
16376
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2021
3 120
sur ta proposition, j'ai marqué 0K, mais j'ai indiqué le risque de cette méthode surtout qu'un débutant ne pensera peut-être pas à nommer les cellules sous l'insertion d'une ligne

les syntaxes que j'ai proposé sont celles indiquées dans tous les bouquins, topos, etc. d'initiation à VBA dignes de ce nom

j'ai répondu la demande d'explication de k.deg, c'est tout et c'est pour lui, j'espère, profitable, plutôt que le déclarer inapte au départ de son apprentisage à comprendre une syntaxe
Messages postés
15534
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 janvier 2021
1 440
Re michel_m
Je vous en remercie pour lui car vous avez une tres bonne demarche,

A bientot peut-etre
Merci tout le monde, c'est beaucoup plus clair :)
Je n'ai pas encore eu le temps de tester, mais il n'y a pas de raison que ça ne marche pas :)

Merci
Merci, ca marche très bien
:)