problème sur une boucle for

[bichon]

salut a tous

voici ma boucle

Option Explicit
Dim i As Integer

If Metabase.OptionButton1 = True Then
Workbooks.Open FileName:="F:\Metachut2003\Base\Metallis\Ec120met.xls"
For i = 2 To ActiveWorkbook.Sheets("MAQUETM").Range("V65536").End(xlUp).Row Step 23
ActiveWorkbook.Sheets("MAQUETM").Range("V" & i + 1).Value = Saisieinfosmeta.TextBox1
ActiveWorkbook.Sheets("MAQUETM").Range("R" & i).Value = Saisieinfosmeta.TextBox2
ActiveWorkbook.Sheets("MAQUETM").Range("X" & i).Value = Saisieinfosmeta.TextBox3
ActiveWorkbook.Sheets("MAQUETM").Range("U" & i).Value = Saisieinfosmeta.TextBox4
Next i
' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False
End If


ce code ouvre un classeur si un bouton option est selectionné
mon problème est le suivant j'aimerai inserer des données que l'on rentre dans des textbox
pour textbox1 en V3
textbox2 en R2
textbox3 en X2
textbox4 en U2

et ces données doivent s'inserer dans la meme colonne mais toutes les 23 lignes suivantes jusqu'a la fin du doc
donc j'ai cette boucle mais elle ne fonctionne pas
merci de m'aider

bichon

 

[mjp]

salut c JP,

pour moi le probleme est dans la gestion des taches ( beurk !! ) )

DO WHILE... (tantque pas arrivé en bas de la feuille ) MaLigne <> 65000...
MaFeuille.Range("V" & str(MaLigne)) = MaBoite.List(MaBoite.NumLigne)

MaLigne = MaLigne + 23

LOOP


dans le principe c'est ça !!!

@+JP

 

[bichon]

heu oui
est ma ligne c'est une variable que tiniatile ou pas

tu peux m'ecrire le code en entier stp

ca m'ecriera pas sur 65564 pages aiu moins lol?

merci