problème de boucle Do While

[bichon]

Salut a tous et a toutes les exceliens et exceliennes du forum
j'ai essayé de changer ma boucle for en While do ca marche mais j'ai un peu
bidouillé le code pour que les données de textbox se mettent toutes les 23 lignes
de la feuille du classeur
mais je n'arrive toujours a ecrire le code pour que les donnée s'ecrivent JUSQU A LA FIN
DE LA FEUILLE DU CLASSEUR

voici mon code

'Bouton Imprimer

Private Sub CommandButton1_Click()

If Metabase.OptionButton1 = True Then
Workbooks.Open FileName:="F:\Metachut2003\Base\Metallis\Ec120met.xls"
i = 2
Do While i < Range("V44").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 If


voila un exemple j'ai pas l'impression que mon end xldown fontionne
si je met Do While i < Range("V65534").End(xlDown).Row
ben ca copie les données des textbox jusqua la 65534 ligne alors que je veux juste
jusqu'a la fin du doc

merci a ceux qui me repondront

 

[@+Thierry]

Re JP

Vite fait...

Euh c'est quelle feuille là : Range("V44").End(xlDown).Row ??

car là c'est la feuille active du classeur Ec120met.xls qui est la base de ce loop...

Et en plus si c'est Sheets("MAQUETM")... tu écris dans les Cellules "V" & i....


Enfin c'est rapidos ce que je vois et qui me "shock"

Bon Courage
@+Thierry

 

[bichon]

tu crois qu'en mettant

Do While i < Sheets("MAQUETM").Range("V44").End(xlDown).Row

c'est a cause de ca que ca marche pas?

 

[Alain]

Bonjour,

Essaye avec :

do while i < Sheets("MAQUETM").UsedRange.Rows.Count

Bonne journée.