instruction d'arret pour une boucle itérative

[martinjl]

Bonjour,
dans un classeur de deux feuilles, la 'feuille1'
comporte une série de dates dans laquelle chaque
date est répétée 8 fois, dans la 2eme feuille 'marées'
j'ai une valeur pour chaque date.
je veux recopier la valeur figurant sur la feuille marées pour une date donnée,
sur les 8 lignes de la date correspondante de la feuille1.
J'ai réussi à écrire la macro qui le fait, mais je
n'arrive pas à l'arréter quand elle est arrivée à la dernière
valeur e la feuille 'marées'.
J'ai essayé avec les différentes instructions
Do...Loop Until
Do Until....Loop
mais ça ne marche pas

Voici ma macro et un extrait du fichier à traiter

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 03/03/2006 par martinjl
' essai pour feuille 1

'
Sheets('marées').Select
ActiveCell.Select
Do Until Range('B1') = Empty
Sheets('Feuil1').Select
ActiveCell.Select
Sheets('marées').Select
ActiveCell.Offset(1, 1).Range('A1').Select
Selection.Copy
Sheets('Feuil1').Select
ActiveCell.Offset(1, 1).Range('A1:A8').Select
ActiveSheet.Paste
ActiveCell.Offset(7, -1).Range('A1').Select
Application.CutCopyMode = False
Sheets('marées').Select
ActiveCell.Offset(0, -1).Range('A1').Select
Loop
End Sub [file name=copiecoefdate.zip size=5337]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiecoefdate.zip[/file]

 

[Gruick]

Bonjour,
C'est peut-être le test
Do Until Range('B1') = Empty
J'y verrai plutôt
Do Until isempty(Range('B1'))
Ca devrait marcher.
Hi

 

[pierrejean]

bonjour martin
salut gruick

martin je te propose une solution qui ne se limitera pas à A8 [file name=copiecoefdate_20060303132455.zip size=7163]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiecoefdate_20060303132455.zip[/file]

 

[martinjl]

Bonjour Gruick et Pierrejean
merci pour vos réponse.
la proposition de Gruick me donne le meme resultat: pas de fin à la boucle.
Avec la macro de Pierrejean, j'ai un message:
Erreur de compilation
variable non définie (variable n surlignée)
????
merci si vous pouvez m'éclairer!
PS: dans mon fichier d'origine, j'ai 254 lignes pour la feuille 'marées'
jlm

 

[pierrejean]

re martin

mea culpa

je n'avais pas declaré les variables
(j'utilise rarement l'option explicit)

vois si cette fois cela tourne

en ce qui concerne ce que tu as ecris :
B1 restera vide tant que tu n'y mettras rien [file name=copiecoefdate_20060303135616.zip size=8210]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiecoefdate_20060303135616.zip[/file]

 

[martinjl]

re bonjour,
Un très grand merci à Pierrejean, ça marche impec sur mon fichier de travail.
Je vais maintenant essayer de comprendre le code pour m'améliorercar je débute, c'était ma première macro!
encore merci à ceux qui m'ont répondu
@+
jlm