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

Résolu

Nyuiadzi Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
Nyuiadzi Messages postés 28 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

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 ?
Trousseau mot de passe iphone - Guide
Mot de passe - Guide
Mettre un mot de passe sur un dossier - Guide
Comment trouver le mot de passe wifi sur son téléphone - Guide
Mot de passe administrateur - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

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 Statut Membre Dernière intervention

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 Statut Membre Dernière intervention 526 > Nyuiadzi Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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 Statut Membre Dernière intervention > Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention

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

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526 > Nyuiadzi Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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+

Nyuiadzi Messages postés 28 Date d'inscription Statut Membre Dernière intervention > Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention

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

question pix mot caché

ordre alphabetique sous word

Mot de passe administrateur Freebox : où le trouver ?

Votre réponse

Discussions similaires