Générer nombres de lignes

[Yazou]

J'ai un fichier excel, j'aimerai que lorsque les utilisateurs entrent dans une case un nombre k, plus bas soit généré k lignes.
Je mis en fichier joint en gros ce que je veux faire, c'est qu'il y ai autant de lignes que de nombre de lots.
Merci d'avance pour vos réponses
Yazou

 

[sylv900]

qu'entend tu par 'générer'?
si c'est inserrer des ligne que tu veux :
nb=range('a1')
for i=1 to nb
Rows(i + 1 & ':' & i + 1).Select
Selection.Insert Shift:=xlDown
next

essaye un truc comme ça...

 

[Yazou]

dans le fichier joint, que j'ai mis dans mon premier poste, on voit à peu prés ce que je ve faire.j'ai un nombre de lots et dessous je doit avoir autant de lignes que de nombre de lots

 

[PascalXLD]

Bonjour

Il n'y a pas de fichier joint

Rappel: fichier zip (minuscules) moins de 50 ko sans caractères spéciaux ni accent

Bonne journée

 

[sylv900]

il doit y avoir un pb avec ton fichier attaché il n'apparait pas...
ce que je t'ai proposé ne te vas pas?

 

[Yazou]

ce qui tu m'a donné comme indication m'aide merci, mais il faut que ça se reinitialise à chaque fois que je change le nombre.
cette fois-ci j'espére avoir bien mis le fichier joint [file name=maquette.zip size=21430]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/maquette.zip[/file]

 

[sylv900]

j'ai tester un truc et ca marche mais je l'ai placer dans le workbook donc ca s'applique à l'ouverture du fichier, mets le plutôt dans un bouton

Private Sub Workbook_Open()
Dim nb As Integer
nbligne = ActiveSheet.UsedRange.Rows.Count

For j = 5 To nbligne
nb = Range('B' & j)
For i = 1 To nb
Rows(j + i & ':' & j + i).Select
Selection.Insert Shift:=xlDown
Next
Next
End Sub


bon courage

 

[sylv900]

yazou,
tu travaille dans un cabinet de géomètre ou autre?

sylvain (promo2005 esgt)

 

[Yazou]

non je ne travaille pas dans un cabinet de géométres. je travaille dans un entreprise qui fait de l'expertise,des devis de matériaux et de produits électroniques.

J'ai fait un petit mix de ce que tu m'as données, j'utilise un textbox pour récupérer le nombre de lignes.Le probléme c'est s'il change le nombre de lignes, ça en rajoute encore, j'ai essayé un delete mais ça supprime des lignes qui ne doivent pas.

 

[sylv900]

ne te prend pas la tete avec la texte box!
rajoute juste un bouton (mise à jour par exemple) dans lequel tu met le code que je t'ai proposé

bon courage