Augmenter un numéro grace à une boucle

Question

Je m'excuse par avance pour mon titre, car je pense qu'il n'est pas tres clair ... mais je ne savais pas comment le formuler en une ligne. Voila mon souci, j'ai une base de donnée qui a en colonne A, des numéros ID (unique), et j'ai besoin de copier des lignes existantes dans cette base pour les mettre en fin de mon tableau. Ca j'y arrive ... là ou pose mon problème c'est concernant le numéro d'ID. Je n'arrive pas à le faire augmenter automatiquement. Par exemple, l'utilisateur veut copier 4 lignes, ma macro actuelle copie les 4 lettres sélectionnées en fin de tableau mais les numéros d'ID n'augmentent pas. Je copie la ligne avec l'ID 3, la macro la colle en derniere ligne (55 par exemple) et me la copie 4 fois, ça c'est parfait ... maintenant comment faire pour que mes ID deviennent 56, 57,58 et 59 ??? voici le code que j'ai mis pour info, txtboNbOfCopy correspond à l'endroit ou je trouve le nombre de fois à coller ma ligne selectionnée. Range("A1").Select lastline = Range("A" & Rows.Count).End(xlUp).Row '+ 1 For i = lastline + 1 To ((lastline + 1) + Copy4.txtboxNbOfCopy.Value) Range("A" & lastline + 1).Value = Range("A" & lastline).Value + 1 Next i je vous remercie par avance pour votre aide. Bonne journée Laurent...

funkyfoenky · Accepted Answer

Tu as fait une boucle sans utiliser la variable. Voila comment il faudrait adapter Range("A1").Select lastline = Range("A" & Rows.Count).End(xlUp).Row '+ 1 For i = lastline + 1 To ((lastline + 1) + Copy4.txtboxNbOfCopy.Value) Range("A" & i).Value = Range("A" & i-1).Value + 1 Next i...