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

[GG Delcroix]

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

 

[wDog66]

Bonjour,

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

Comme ça à l'arrache 😜

' 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]

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]

Bonjour,
merci pour vos réponses. À l'arrache sera parfait, wDog66 !
FanFan38, les CC sont présents car je ne sait pas faire autrement !
J'apprend beaucoup grâce à vous.
Bonne journée.

 

[fanfan38]

Regarde ce resultat avec des tableaux structurés...

A+ François

 

[GG Delcroix]

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.

 

[fanfan38]

Perso j'utiliserai en E3
=LIGNE()-2
A+ François

 

[GG Delcroix]

Merci beaucoup François et wDog66
Bonne continuation.
GG