Coller une formule toutes les 4 lignes avec ou sans VBA

Bonjour,

Après consultation du forum je ne trouve pas la réponse à ma question.

Mon objectif ici est de coller une même formule (=DECALER(HA4;0;0;1;189)) exactement toutes les 4 lignes.

Pour faire simple j'ai la formule ci-dessus dans la cellule S4 et je souhaiterais coller cette même formule toutes les quatres lignes, c'est-à-dire en S8, S12, S16, S20, S24, ..., S89036. Evidemment en faisant cette action ma formule de base changera exemple : en la collant en S24 je vais avoir (=DECALER(HA24;0;0;1;189)).

Pour informations j'ai des données qui sont qui sont entrées dans les lignes intermédiaires (ex : je veux la formule dans S8 puis dans S12 mais j'ai déjà des données dans S9, S10 et S11)

J'aimerais automatiser la chose via VBA si possible car beaucoup de lignes.

Voici l'image : je veux copier ma formule du cercle dans les rectangles de manière automatisé.

J'espère que j'ai été compréhensible.

Je vous remercie par avance.

Hello,

Tu peux mettre un fichier en copie stp ?

Merci d'avance ;)

Bonsoir,

en effet il est demandé dans la charte de déposer un fichier exemple.
Bon, là c'est relativement simple à comprendre, alors voici ma proposition :

Sub TestLRD()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    For i = 1 To 22258
        Range("S4").Copy Destination:=Cells(4 + (i * 4), 19)
    Next i
    Application.Calculation = xlCalculationAutomatic
End Sub

@ bientôt

LouReeD

Merci beaucoup,

Cela fonctionne parfaitement.

Nb : Désolé pour le fichier, j'ai complétement oublié.

Bonne journée,

Loïc DUBOIS

Bonsoir,

merci pour votre retour ! Le code est accessible au niveau compréhension je pense, donc si le nombre de ligne "à sauter" venait à changer alors l'adaptation sera aisée, non ?

Content que ceci vous permette d'avancer dans votre projet.

@ bientôt

LouReeD