Changer de colonne après des boucles while

Sub Macro1()

Sheets("paramètres_Végét").Select

' On se place automatiquement sur le premier taux de croissance qui permettra d'initialiser les boucles
Range("I21").Select

'On déclare les variables qui vont accueuillir les seuils successifs permettant le changement de saison
Dim a As Byte
Dim b As Byte
Dim c As Byte

For compteur6 = 1 To 5

'Les seuils varient en fonction de la ressource considérée
'On part du fait qu'on connaît la cellule active pour indiquer où se situent les seuils relativement à cette cellule


a = ActiveCell.Offset(-5, -3).Value
b = ActiveCell.Offset(-4, -3).Value
c = ActiveCell.Offset(-3, -3).Value

'Ensuite on boucle avec les While

While ActiveCell.Value < a
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Hiver"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value < c
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "dP"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value > c
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "P"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value < b
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "ete"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value > b
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "A"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value > a
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "f A"
ActiveCell.Offset(1, -1).Select
Wend
While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Hiver"
ActiveCell.Offset(1, -1).Select
Wend

ActiveCell.Offset(-36, 10).Select


Next compteur6

'On remet la cellule active au début de la page, sinon, elle se retrouve à perpèt'
Range("I21").Select

End Sub

Cliquez pour agrandir...