Excel : Aperçu des macros

Macro AjouterDates

On désire ajouter une colonne qui contiendra la date des commandes du mois (ex: Oct-96). A l'aide de l'enregistreur (Nom de la macro= AjouterDates) effectuer les opérations suivantes :

Sélectionner E2:E31

Introduire OCT-96 et valider par ctrl+entrée et choisir le format de cellule qui permet d'afficher le mois en trois lettres (mmm-aa)

Sélectionner E1 et introduire le texte DATE
Voici le texte de la macro :
'
' AjouterDates Macro
' Macro enregistrée le 24/10/96 par Jean-Marie Lambert
'
'
Sub AjouterDates()
    Range("E2:E31").Select             (1)
    Selection.FormulaR1C1 = "Oct-96    (2)
    Selection.NumberFormat = "mmm-yy"  (3)
    Range("E1").Select                 (4)
    ActiveCell.FormulaR1C1 = "Date"    (5)
    Range("E2").Select                 (6)
End Sub
Cette macro présente deux inconvénients :

La date sera toujours Oct-96 (instruction 2) :
Selection.FormulaR1C1 = InputBox("Date dans le format MMM-AA")

Le nombre de lignes est toujours le même (E2:E31). Que se passe-t-il si le mois suivant, on a plus ou moins de lignes (instruction 1) ?
Selection.CurrentRegion.Select
Selection.Offset(columnOffset:=4).Resize(columnSize:=1).Select
Voici le texte de la macro modifiée :
Sub AjouterDates()
    Selection.CurrentRegion.Select
    Selection.Offset(columnOffset:=4).Resize(columnSize:=1).Select
    Selection.FormulaR1C1 = InputBox("Date dans le format MMM-AA")
    Selection.NumberFormat = "mmm-yy"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range("E2").Select
End Sub
Revenir à "Exemple de macro commande"