Insertion automatique à une date précise

Bonjour,

Je n'ai aucune connaissance en développement de macro pour Excel.

Je viens vers vous pour savoir si ce que je souhaite est tout d'abord possible et envisager quelques solutions.

Je souhaiterai faire une macro qui à chaque clic sur un bouton (je sais qu'il est possible de lier une macro à un bouton), insère une ligne après la dernière utilisée, remplit quelques colonnes de divers éléments dont la date, et recopie une formule dans l'une des cellules.

1) Est-ce envisageable ou est-ce complètement tordu ?
2) Est-ce possible de le faire dans la feuille courante ? Est-ce également possible de le faire pour toutes les feuilles sauf la première ?

Merci de vos réponses à ces questions. Si je n'ai pas été assez clair, n'hésitez pas à me demander des précisions. Par hasard, si vous avez déjà eu l'occasion de travailler sur des macros similaires, peut-être pourrez-vous m'indiquer où trouver des informations pour effectuer ces opérations.

Cordialement,

Bonjour,
un exemple à adapter

Code:

---

1 2 3 4

Dim lg As Integer lg = ActiveCell.Row Range("a" & lg + 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("c" & lg + 1).FormulaR1C1 = "=TODAY()"

---

bonne journée

Merci casefayere de ta réponse. J'avoue que je n'ai pas forcément tout compris mais cela signifie au moins que ce que je demande semble possible.

Voilà où j'en suis actuellement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test()     For x = 2 To Worksheets.Count - 1   Dim iR&, i&, k& iR = Worksheets(x).Cells(Rows.Count, "A").End(xlUp).Row iR = iR + 1 Worksheets(x).Rows(iR).Insert Worksheets(x).Cells(iR, "A").FormulaR1C1 = Date Worksheets(x).Cells(iR, "B").FormulaR1C1 = Sheets("DONNEES").Cells("1", "A").FormulaR1C1 Worksheets(x).Cells(iR, "D").FormulaR1C1 = Sheets("DONNEES").Cells("1", "B").FormulaR1C1 Worksheets(x).Cells(iR, "E").FormulaR1C1 = Worksheets(x).Cells(iR - 1, "E").FormulaR1C1   Next   End Sub

---

Cela me permet sur toutes les feuilles (sauf la première et la dernière), d'insérer sur la ligne suivant la dernière utilisée sur la colonne A la date, sur la colonne B un intitulé défini dans une autre feuille, sur la colonne D un montant défini sur une autre feuille et de copier la formule de la ligne E du dessus.

C'est déjà pas mal pour moi. Ceci dit, est-ce que ma solution est élégante ? Pourrait-elle être améliorer ?

Merci de vos indications supplémentaires.

Cordialement,