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

Bonjour

tu as plusieurs manières de désigner une cellule range ("A3") ou cells(3,1) ou cells(3,"A") ou marginalement range("L3C1")

pour 1 et 2, on cherche le numéro de la dernière ligne remplie et on ajoute

1/ la fonction Find demande ici la dernière (xlprevious) ligne(row) où il y a quelque chose ("*") dans la colonne 1 (1="A", j'aurais pu marqué columns("A"))
la suite des 4 virgules sont des paramètres dont on a pas besoin ici, donc...( voir l'aide sur Find)

2/ on part de la dernière ligne de la feuille (.cells.rows.count permet de trouver la dernière ligne quelque soit la version d'excel <2007- 65536 ou >=2007- 2^20)
on se base sur la colonne A la fonction end(xlup) voir l'aide remonte à la dernière ligne remplie

ces 2 formules donne la dernière ligne en ne tenant compte d'une éventuelle ligne vide insérée dans la colonne entre 2 données
Si tu es sûr de ne pas avoir de trous, tu pourrais utiliser ces 2 syntaxes dans l'autre sens si tu as une étiquette en ligne 1
lig=columns("A").find("";range("A1")).row
lig=range("A1").end(xldown).row
si tu commences à la ligne 1 sans étiquette, le départ est la dernière de la feuille (65536 pour XL2003)


la notation with sheets(N)....end with crée un "bloc " on indique au processeur que l'on travaille dans ce bloc avec les cellules (cells ou range) précédées d'un point: ne pas oublier ce point car sinon XL travaille sur la feuille active (bug classique que je sais faire!)
l'avantage est la sécurité de ton processus et évite les sheets.activate et sheets.select qui sont très lents et dénote une mauvaise connaissance de VBA
Tu peux utiliser with...end with avec d'autres objets (range, checkbox....)

3/ la boucle While cells(lig, "A")<>"" est le + souvent inutile et lente et dénote une très mauvaise connaissance de VBA (j'ai dis le + souvent !!!)

4/ quant à la solution d'insérer une ligne, OK mais impose à la mémoire un calcul de décalage d'adresse et elle est aléatoire: si tu utilises des références de cellules dans une macro par ex: range("A3") si tu insères une ligne avant la ligne la référence dans VBA restera A3 alors que l'adresse réelle est devenue A4. il faudrait alors nommées les cellules pour éviter ce bug ('c'est d'ailleurs conseillé quelque soit la méthode mais...)

un cours VBA très utile et complet à télécharger
https://bidou.developpez.com/article/VBA/

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.

Votre code permet d'incrire une donnee a modifier pour toutes les donnees de la meme ligne . De plus cette personne va ranger des donnees pas de formule pas question de refrences simplement une base de donnees qui ne fera pas des millers de lignes donc la methode la plus simple est l'insertion de ligne. Question simple ---> reponse simple......

??? bof, faut pas se vexer, mon brave

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.

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

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
:)