Sujet Précédent Sujet Suivant

Boutton pour ajouter des enregistrements

Résolu/Fermé
Cecile40 - 24 juil. 2012 à 10:57
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 24 juil. 2012 à 11:31
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

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
24 juil. 2012 à 11:10
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
Réponse 2 / 4
Cecile40 Messages postés 3 Date d'inscription mardi 24 juillet 2012 Statut Membre Dernière intervention 24 juillet 2012
24 juil. 2012 à 11:16
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
24 juil. 2012 à 11:22
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
Réponse 3 / 4
Cecile40 Messages postés 3 Date d'inscription mardi 24 juillet 2012 Statut Membre Dernière intervention 24 juillet 2012
24 juil. 2012 à 11:27
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
24 juil. 2012 à 11:31
Comment utilises tu le code?
Passke moi j'ai pas d'erreur...
0
Réponse 4 / 4
Cecile40 Messages postés 3 Date d'inscription mardi 24 juillet 2012 Statut Membre Dernière intervention 24 juillet 2012
24 juil. 2012 à 11:30
Merci Pijaku, il fallait mettre ActiveCell.Offset(0, 0) au lieu de ActiveCell.Offset(0, -1), je l'ai testé et ça marche
0

Discussions similaires

Comment savoir comment on nous a ajouté sur Snap
Laura -
Lob6 -

15 réponses