Macro excel incrémenter formule

benemma -  
cousinhub29 Messages postés 1114 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite, grâce à un bouton dans un fichier excel, automatiser l'insertion d'une ligne avec incrémentation des formules.

J'ai trouver pour l'instant cette macro, qui m'insère une ligne mais qui me recopie les formules et non les incrémente.

Dim iR&, i&, k&
iR = ActiveCell.Row
Rows(iR).Insert
k = ActiveSheet.UsedRange.Columns.Count
For i = 1 To k
Cells(iR, i).Formula = Cells(iR + 1, i).Formula
Next
End Sub

Avez-vous des idées.

Merci d'avance

1 réponse

  1.
    cousinhub29 Messages postés 1114 Date d'inscription   Statut Membre Dernière intervention   383
     
    Bonsoir, 

    J'ai trouver pour l'instant cette macro


    Ben, si tu avais utilisé l'enregistreur de macro, tu aurais pu trouver "tout seul", un code du genre : 

    Selection.AutoFill Destination:=Range("A2:A15"), Type:=xlFillDefault


    Sachant que "Selection" reste sujet à bien des critères, et que la destination l'est tout autant....

    Mais pour cela, regarde du côté de l'enregistreur...

    Bon courage
    1