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