Sujet Précédent Sujet Suivant

Macro excel incrémenter formule

Fermé
benemma - 17 janv. 2011 à 14:52
cousinhub29 Messages postés 1041 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 avril 2025 - 17 janv. 2011 à 15:17
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
A voir également:

1 réponse

Réponse 1 / 1
cousinhub29 Messages postés 1041 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 avril 2025 357
17 janv. 2011 à 15:17
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