Boutton pour ajouter des enregistrements

Résolu
Cecile40 -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour à tous et toutes,

pourriez vous m'aider à compléter ce classeur SVP.
Ce que je veux obtenir : Lorsque je clique sur le bouton, le curseur doit se positionner dans la ligne suivante (A7 puis A8 )pour me permettre de saisir une nouvelle entrée.
Je vous ai mis le lien du classeur. Merci beaucoup.

http://cjoint.com/?BGykYqY2Nz7



A voir également:

4 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Bonjour,

Le code serait donc :
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select

Mais bon ne serait ce pas plus rapide d'appuyer sur "Entrée" ou de cliquer directement dans la bonne cellule plutôt qu'un bouton?
0
Cecile40 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Pijaku,
en fait ce que je veux à la suite de ça c'est d'avoir ce boutton qui passe à la ligne suivante et affiche en même temps la date du jour sans avoir à la saisir chaque fois
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Alors essaie ce code :
Range("A" & Rows.Count).End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = Format(Date, "dd/mm/yyyy")

Il sélectionne la cellule en colonne B en tenant compte de la dernière saisie en colonne A
Puis il indique en colonne A, sur cette même ligne, la date du jour au format voulu
0
Cecile40 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai testé ce code mais j'ai un message d'erreur : erreur d'exécution "1004"
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Comment utilises tu le code?
Passke moi j'ai pas d'erreur...
0
Cecile40 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Pijaku, il fallait mettre ActiveCell.Offset(0, 0) au lieu de ActiveCell.Offset(0, -1), je l'ai testé et ça marche
0