Comment faire référence à une ligne dans une boucle

bonjour à tous ,

j'ai une boucle que je souhaite modifier,

Sub Equipe_par_terrains()

   ' on recherche les terrains ou ce déroule les parties

Dim ligne As Integer
ligne = 3
Do While Cells(ligne, 1).Value <> "Fin"     
     Cells(ligne, 39).Value = "1" 
 ligne = ligne + 1 
 Loop 
End Sub

je voudrais remplacer <> "Fin" par ligne 150 et bien bien essayé Rows(150) le résultat n'a pas été concluant.

merci de votre aide par avance.

Philippe

Bonjour,

Remplacer "Do While Cells(ligne, 1).Value <> "Fin"" par "Do While ligne <= 150", mais s'il faut traiter un nombre défini de lignes autant utiliser l'instruction "For / Next"

Sub Equipe_par_terrains()

   ' on recherche les terrains ou ce déroule les parties

Dim ligne As Integer

For ligne = 3 to 150  ' ou 149 sil la ligne 150 ne doit pas être traitée    
     Cells(ligne, 39).Value = "1" 
Next

End Sub

Cdlt,

Cylfo

Bonjour,

S'il s'agit de mettre 1 à chaque ligne, autant faire ceci( pas de boucle), à moins de ne pas avoir bien cerné la question.

    Range(Cells(3, 39), Cells(150, 39)).Value = 1

Cdlt

bonjour,

merci pour vos réponses, ce n'est pas exactement ce que je souhaité mais ça m'a aidé.

cordialement philippe