Avoir les N° et dates automatiquement comme dans Accèss

Résolu/Fermé

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019 - 17 févr. 2016 à 07:11
Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019 - 17 févr. 2016 à 17:09

Bonjour,
D'abord expliqué un peu mon projet.
J'ai un fichier Excel dans lequel je saisie les données (recettes) dans un tableau en utilisant un style de tableau Excel. Les données sont disposées comme suit:
1ère colonne = N° (1, 2, 3, 4,.....,n)
2ème colonne = Date (date de l'opération)
3ème colonne = compte
4ème colonne = libellé
5ème colonne = Montant

Alors ce que je souhaiterais :
1) Pouvoir avoir les N° automatiquement à chaque changement de ligne (qui se fait avec la touche tabulation)
2) Pouvoir avoir automatiquement la date du jour (qui ne change pas après) sans être obligé de la saisie (j'ai déjà essayé avec la formule "Aujourd'hui()" sans succès étant donné qu'avec cette formule, les dates sont mise à jour à la réouverture du fichier).

Merci d'avance pour vos contributions
Cordialement

A voir également:

Paramètrez la messagerie pour ranger automatiquement dans le dossier famille les mails envoyés par tonton@pixmail.org contenant le mot cousin. quel mot apparaît ?
Mettre un mot de passe sur un dossier - Guide
Comment trouver le mot de passe wifi sur son téléphone - Guide
Trousseau mot de passe iphone - Guide
Mot de passe administrateur - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
17 févr. 2016 à 07:29

Bonjour,

Voici une proposition qui utilise une procédure évènementielle (WorkSheet.Change).
A chaque saisie d'un nouveau compte, le numéro et la date s'inscrivent automatiquement.
https://www.cjoint.com/c/FBrgAP8k3CM

A+

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019
17 févr. 2016 à 09:37

Merci pour votre réponse, c'est exactement ce que je veux. Mais mon soucis c'est comment l'appliqué à mon fichier qui a une présentation et une mise en forme différente du fichier que vous me proposez. Merci si vous avez une solution pour moi

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019
17 févr. 2016 à 11:31

Tu as 2 solutions :

1) tu cherches à comprendre le code afin de l'adapter à la configuration réelle.
Pour t'aider, voici le code commenté

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si plusieurs cellules sont modifiées, on sort de la procédure
    If Target.Count > 1 Then Exit Sub
    'Si la cellule modifiée appartient à la colonne "Compte"
    If Target.Column = 3 And Target.Row > 1 Then
        'On incrémente le numéro de compte dans la feuille "Base"
        Sheets("Base").Range("A2") = Sheets("Base").Range("A2") + 1
        'On affecte ce numéro au nouveau compte
        Target.Offset(, -2) = Sheets("Base").Range("A2")
        'On note la date du jour
        Target.Offset(, -1) = Date
    End If
End Sub

2) tu envoies un fichier exemple avec cette même configuration afin que je l'adapte.
Pour cela, tu peux utiliser https://www.cjoint.com/

A+

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
17 févr. 2016 à 14:03

D’abord merci beaucoup pour vos contributions et votre disponibilité.
Je vous envoie le fichier pour voir ce que vous pouvez faire.
Toutefois, il y a un petit problème avec le code : c’est que les numéros s’incrémentent automatiquement comme prévu mais cela continu même en cas de rectification ou suppression des données dans une cellule déjà saisie, ce qui est un peu embêtant.
L’idéal est que la numérotation et la date ne change que lorsque je change de ligne (nouvelle ligne vide). Cordialement

Ci-joint mon fichier exemple https://www.cjoint.com/c/FBrm6CXGJzp

Voici ton fichier en retour.
Les numéros d'ordre se suivent. J'ai donc placé simplement une formule pour les déterminer.

https://www.cjoint.com/c/FBroH1GlrHM

A+

Merci beaucoup. J'ai eu gain de cause, en tout cas après mes premiers essais.
Je vais continué à tester le fichier et vous faire le retour si possible en cas de besoin. Encore une fois merci beaucoup pour votre disponibilité
Cordialement

Discussions similaires

mails envoyés qui n'arrivent pas au destinataire

Ranger mails dans différents dossiers créés

courriers indisirable

manon

comment donner les droits sur fichier partage