XL 2021 Alimenter X fois d'une base de données en fonction de la valeur d'un TextBox

GG Delcroix

XLDnaute Nouveau
Supporter XLD
Bonjour à toutes et tous,
je souhaiterais ajouter autant de ligne dans la base de donnée que la valeur du Textbox2.
Par exemple si la valeur TextBox2 et égale à 5, ajouter 5 fois la ligne.
Merci pour vos conseils.
Bien à vous.
Jérôme
 

Pièces jointes

  • manifeste democrateok.xlsm
    177.2 KB · Affichages: 9

wDog66

XLDnaute Occasionnel
Bonjour,

Je n'ai pas ouvert votre fichier, mais avec des variables et une boucle tout simplement

Comme ça à l'arrache 😜
VB:
' Exemple dans la colonne A
Dim Ind as Long, Max As Long, dLig as Long
dLig = Range("A" & Rows.count).End(XlUp).Row
Max =  Me.Textbox2.Value
For Ind = 1 to Max
Range("A" & dLig + Ind).Value = "Ajout " & Ind
Next Ind
 

fanfan38

XLDnaute Barbatruc
Bonjour et bienvenu sur le forum
Ce serait bien d'avoir des entetes aux colonnes. Ca permettrai d'utiliser des tableaux structurés qui ont, entre autre, l'avantage de garder les formules même quand ils sont vidés...
A+ François
Ps: Ainsi que quelques explications sur les copier/coller qui sont dans l'userform...
 

GG Delcroix

XLDnaute Nouveau
Supporter XLD
Regarde ce resultat avec des tableaux structurés...

A+ François
François, c'est splendide. Je prend aussi note des transpositions (item) sur l'autre feuille "Manifeste1", nettement plus conventionnelles et plus rapide !
Si éventuellement, je peux encore te demander une information, Je souhaiterais numéroter chaque ligne, après classement alphabétique, en colonne 5 (feuille Manifeste1).
Puis-je abuser ?
Excellent week end à toi.
 

Discussions similaires

Réponses
27
Affichages
1 K
Réponses
7
Affichages
628

Statistiques des forums

Discussions
314 588
Messages
2 110 988
Membres
111 002
dernier inscrit
Lolo73i