Se déplacer d'une cellule vers le bas

Bonsoir à tous,

Je vous explique vite fais mon soucis: je souhaiterai me déplacer dans ma boucle for du code ci dessous à " i " cellule en dessous firstCell. Pourriez vous éclairer ma lanterne à ce sujet svp ?

D'avance merci.

        Select Case j
            Case 1: mois = janvier
            firstCell = "B2"
            Case 2: mois = fevrier
            firstCell = "D2"
            Case 3: mois = mars
            firstCell = "F2"
            Case 4: mois = avril
            firstCell = "H2"
            Case 5: mois = mai
            firstCell = "J2"
            Case 6: mois = juin
            firstCell = "L2"
            Case 7: mois = juillet
            firstCell = "B36"
            Case 8: mois = aout
            firstCell = "D36"
            Case 9: mois = septembre
            firstCell = "F36"
            Case 10: mois = octobre
            firstCell = "H36"
            Case 11: mois = novembre
            firstCell = "J36"
            Case 12: mois = decembre
        End Select
        Sheets(1).Range(firstCell).Activate
        For i = 1 To j
' exemple si firstCell = F36 et i=1 je souhaiterai arriver a F37 donc un offset (1,0) pour y coller la valeur de "mavariable"

bonsoir,

range(firstcell).offset(1,0)=mavariable

Bonsoir,

Ton code peut être simplifié

J = 9 'Exemple pour septembre
i = 1 'Décalage de 1 ligne
Adresse = Array("B2", "D2", "F2", "H2", "J2", "L2", "B36", "D36", "F36", "H36", "J36", "L36")
Set firstCell = Range(Adresse(J - 1))
mois = MonthName(J)
firstCell.Offset(i, 0).Select

A+

tout simplement je me suis un peu trop pris la tête je crois

20/10 Merci

EDIT: Merci a toi frangy aussi

h2so4 a écrit :

bonsoir,

range(firstcell).offset(1,0)=mavariable