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

wDog66

XLDnaute Occasionnel

• 2 Novembre 2024

• #2

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 2 Novembre 2024

• #3

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...

 

Vote positif 0 Vote négatif

G

GG Delcroix

XLDnaute Nouveau

Supporter XLD

• 2 Novembre 2024

• #4

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.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 2 Novembre 2024

• #5

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

A+ François

 

Pièces jointes

• manifeste democrateok.xlsm

  34.1 KB · Affichages: 8

Vote positif 0 Vote négatif

G

GG Delcroix

XLDnaute Nouveau

Supporter XLD

• 2 Novembre 2024

• #6

fanfan38 à dit:

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

A+ François

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 2 Novembre 2024

• #7

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

 

Vote positif 0 Vote négatif

G

GG Delcroix

XLDnaute Nouveau

Supporter XLD

• 2 Novembre 2024

• #8

Merci beaucoup François et wDog66
Bonne continuation.
GG

 

Vote positif 0 Vote négatif