Répétition d'une macro

Bonjour,

J'ai une feuille Excel dans laquelle figure une macro "Métré" qui permet de faire différents calculs dans la colonne "O".

Cette macro s'applique à un premier chapitre de 9 lignes.

J'aimerais répéter cette macro pour les chapitres suivants sans avoir à recopier toutes les lignes à chaque fois.

Merci pour une éventuelle réponse.

Feever

Bonjour,

une proposition , tu dois cependant enlever une ligne de ton tableur qui rompt la répétition de 9 lignes par bloc. (ligne 375 de l'onglet mavildom)

Sub Métré()
'2017m02
 Application.ScreenUpdating = False
dl = Cells(Rows.Count, 4).End(xlUp).Row
For i = 3 To dl Step 9
With Sheets("Mavildom").Cells(i - 2, 1)
' O3=PLAFOND(F3;3)
    .Range("O3").FormulaR1C1 = "=CEILING(RC[-10],3)"

' O4=ARRONDI.SUP(03*1,05*0)
    .Range("O4").FormulaR1C1 = "=ROUNDUP(R[-1]C*1.05,0)"

' O5=O3/3*2
    .Range("O5").FormulaR1C1 = "=R[-2]C/3*2"

' O6=O3/3*2
    .Range("O6").FormulaR1C1 = "=R[-3]C/3*2"

' O7=O3/3*4
    .Range("O7").FormulaR1C1 = "=R[-4]C/3*4"

' O8=O3/3*4
    .Range("O8").FormulaR1C1 = "=R[-5]C/3*4"

' O9=O3/3
    .Range("O9").FormulaR1C1 = "=R[-6]C/3"

' O10=O3*3
    .Range("O10").FormulaR1C1 = "=R[-7]C*3"

' O11=ARRONDI.SUP(O3*1,05;0)
    .Range("O11").FormulaR1C1 = "=ROUNDUP(R[-8]C*1.05,0)"

    .Range("O1").Select
End With
Next i
 Application.ScreenUpdating = True

End Sub

Je te remercie.

J'ai une suite qui n'a pas le même nombre de lignes (de 8 à 10).

Comment arrêter la macro à une ligne donnée et la faire reprendre 2 lignes plus bas ?

Merci d'avance.

Feever