petit problème sur un xldown avec des steps

[bichon]

Salut a tous et a tous le forum
J'ai a little problème sur un xldown je m'explique
j'ouvre un classeur d'ou j'insere des données de textbox saisie auparavant
ces données doivent se mettre toutes les 23 lignes jusqu'a la fin de la feuille

voici mon code pour l'instant

Option Explicit
Dim i As Long

Private Sub CommandButton1_Click()


Workbooks.Open FileName:="F:\Metachut2003\Base\Metallis\Ec120met.xls"
i = 2
Do While i < Range("V40").End(xlDown).Row
ActiveWorkbook.Sheets("MAQUETM").Range("V" & i + 1) = Saisieinfosmeta.TextBox1
ActiveWorkbook.Sheets("MAQUETM").Range("R" & i) = Saisieinfosmeta.TextBox2
ActiveWorkbook.Sheets("MAQUETM").Range("X" & i) = Saisieinfosmeta.TextBox3
ActiveWorkbook.Sheets("MAQUETM").Range("U" & i) = Saisieinfosmeta.TextBox4
i = i + 23
Loop
' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False

end sub

voila alors pour l'instant ca marche parce que j'ai un peu bidouillé le range du xldown
en fait je met n'importe quelle ligne de l'avant derniere page et il me met le contenu des textbox
ou je veux
mais il est vrai que si on rajoute une feuille ben c'est pas evolutif
j'ai essayé ceci

Do While i < Range("V65536").End(xlUp).Row
a la place de l'autre
mais avec le debogeur on voit qu'il n'insere pas les textbox et qu'il passe directement
au end sub

voila jespere que quelqu'un pourra me sortir de ce leger pétrin
merci

bichon

 

[JOnCAs]

Salut bichon

J'ai testé ton code. Il s'arrete des que tu ecrit quelque chose en dessous de la ligne 40 dans la colonne V.
Une feuille excel a 65536 lignes, alors au lieu de faire du range.end(xldown) dans un do while tu peux :
for i=2 to 65536 step 23
...
...
next i

Bye

 

[bichon]

oui joncas
merci mais ma feuille excel ne fais pas 65536 lignes
elle en fait un certain nombre et j'aimerai copier les données des textbox jusqu'a la fin du doc
si je fais ton code il va me les coller jusqu'a la ligne 65536 alors que je veux juste jusqu'a la fin de la feuille
t'as pas une autre idée????
merci