Boutton pour ajouter des enregistrements
Résolu
Cecile40
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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
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
4 réponses
-
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?
-
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-
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
-
-
J'ai testé ce code mais j'ai un message d'erreur : erreur d'exécution "1004"
-
Comment utilises tu le code?
Passke moi j'ai pas d'erreur...
-
-
Merci Pijaku, il fallait mettre ActiveCell.Offset(0, 0) au lieu de ActiveCell.Offset(0, -1), je l'ai testé et ça marche
