Macro excel incrémenter formule

benemma -  
cousinhub29 Messages postés 1074 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

Réponse 1 / 1
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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