Sujet Précédent Sujet Suivant

Macro excel incrémenter formule

Fermé
benemma - 17 janv. 2011 à 14:52
cousinhub29 Messages postés 1009 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 13 février 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

1 réponse

Réponse 1 / 1
cousinhub29 Messages postés 1009 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 13 février 2025 355
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