Création d’une macro de saisie
automatique dans un tableau EXCEL
Ici, grâce à InputBox, nous allons voir comment élaborer une macro permettant d’insérer une nouvelle ligne.
La macro va rechercher le bas de la région de données depuis la dernière cellule de la feuille.
Ainsi, quelque soit la position du curseur au moment de l’appel de la macro, la fin de la région de données devrait être atteinte sans aucune difficulté…
Mais nous allons devoir utiliser la commande Selection.end, je vous la présente maintenant :
Selection.end
Permet d’atteindre le début ou la fin d’une région de données.
La syntaxe :
Selection.End(Direction).Select
La description :
Direction peut prendre deux valeurs :
XlUp pour atteindre la première ligne de la région de données.
XlDown pour atteindre la dernière ligne de la région de données.
Dans le cadre de cet exercice, vous devez au préalable créer un tableau contenant 3 colonnes, Noms, Prénoms et Ages.
Voici le code VISUAL BASIC :
Sub ajoutligne()
'
' ajoutligne Macro
' Macro enregistrée le 30/01/2008 par Philippe BOULANGER
'
'
' créer une nouvelle ligne
nom = InputBox("saisissez le nom")
prenom = InputBox("saisissez le prénom")
age = InputBox("saisissez l’âge ")
Range("a65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1,
0).Select
ActiveCell.Value
= nom
ActiveCell.Offset(0,
1).Select
ActiveCell.Value
= prenom
ActiveCell.Offset(0,
1).Select
ActiveCell.Value
= age
End Sub
Philippe BOULANGER