Discussion :

[Marco85]

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,

[casefayere]

Bonjour,
un exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marco85]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,