EXCEL, incrémenter la valeur d'une cellule à chaque ouverture du fichier (résolu)
Bonjour Chers TOUS,
J'utilise OFFICE 2013, et je voudrai que dans mon fichier EXCEL, la cellule A6 portant la valeur 100, puisse s'incrémenter à chaque réouverture du fichier Excel,
si dans la journée je l'ai ouvert 5 fois, à la 5è ouverture, A6 doit avoir la valeur 105
Merci
J'utilise OFFICE 2013, et je voudrai que dans mon fichier EXCEL, la cellule A6 portant la valeur 100, puisse s'incrémenter à chaque réouverture du fichier Excel,
si dans la journée je l'ai ouvert 5 fois, à la 5è ouverture, A6 doit avoir la valeur 105
Merci
AKON
Claude40
1 534 contributions
1 534 contributions
Membre depuis le 24/03/2010
Envoyé le 25/05/2019 à 20:41 Modifié par Claude40
Bonjour,
Le tableur étant ouvert, cliquer sur « Développeur », puis sur "Visual Basic" en haut à gauche.
Dans l’espace « Projet- VBAProject » cliquer sur « ThisWorkbook ». Dans la liste déroulante centrale, choisir « WorkBook ». Dans la liste déroulante de droite, choisir « Open ». Entre « Private Sub Workbook_Open() » et « End Sud », placer l’instruction suivante : « Cells(46, 1).Value = Cells(46, 1).Value + 1 » A la prochaine ouverture du classeur si la cellule A46 contenait 100, la valeur passera à 101 et ainsi de suite à chaque nouvelle ouverture, à condition d’avoir enregistré le classeur lors de chaque fermeture. NB : le classeur doit être enregistré avec l’extension xlsm (prenant en charge les macros).
Le tableur étant ouvert, cliquer sur « Développeur », puis sur "Visual Basic" en haut à gauche.
Dans l’espace « Projet- VBAProject » cliquer sur « ThisWorkbook ». Dans la liste déroulante centrale, choisir « WorkBook ». Dans la liste déroulante de droite, choisir « Open ». Entre « Private Sub Workbook_Open() » et « End Sud », placer l’instruction suivante : « Cells(46, 1).Value = Cells(46, 1).Value + 1 » A la prochaine ouverture du classeur si la cellule A46 contenait 100, la valeur passera à 101 et ainsi de suite à chaque nouvelle ouverture, à condition d’avoir enregistré le classeur lors de chaque fermeture. NB : le classeur doit être enregistré avec l’extension xlsm (prenant en charge les macros).
Un bon exposé du problème, c'est déjà un grand pas vers la solution. Dans la mesure du possible, mes solutions sont testées, sur mon système actuel (W10 Pro version 1909), mais peuvent ne pas fonctionner sur tous les Pc
Bonjour à TOUS,
Bonjour Claude40
Merci pour ton post, je vais essayer et je ferai un retour
Merci
Bonjour Claude40
Merci pour ton post, je vais essayer et je ferai un retour
Merci
AKON
Bonjour,
Pourquoi, : « Cells(46, 1).Value = Cells(46, 1).Value + 1 » au lieu de : « Cells(6, 1).Value = Cells(6, 1).Value + 1 » car il a dit A6
Pourquoi, : « Cells(46, 1).Value = Cells(46, 1).Value + 1 » au lieu de : « Cells(6, 1).Value = Cells(6, 1).Value + 1 » car il a dit A6
Bonjour,
Merci Icouaci, j'avais compris comme çà, vu que la cellule est A6
Et 46, n'est que la forme incomplète de 46, regardez comment le 4 ressemble à A
Merci Icouaci, j'avais compris comme çà, vu que la cellule est A6
Et 46, n'est que la forme incomplète de 46, regardez comment le 4 ressemble à A
AKON
Bonjour à tous les deux,
Effectivement, j'avais mal lu l'énoncé ,et il faut remplacer "46" par "6". Le principal est que les instructions fonctionnent. Au fait, ça fonctionne ? car si j'avais mal lu l'énoncé, j'avais bien lu
Et sauf cette intervention de lcouaci, je n'ai pas eu de retour !
Effectivement, j'avais mal lu l'énoncé ,et il faut remplacer "46" par "6". Le principal est que les instructions fonctionnent. Au fait, ça fonctionne ? car si j'avais mal lu l'énoncé, j'avais bien lu
Merci pour ton post, je vais essayer et je ferai un retour
Et sauf cette intervention de lcouaci, je n'ai pas eu de retour !
Un bon exposé du problème, c'est déjà un grand pas vers la solution. Dans la mesure du possible, mes solutions sont testées, sur mon système actuel (W10 Pro version 1909), mais peuvent ne pas fonctionner sur tous les Pc
Bonjour A Tous,
Bonjour Claudio
Désolé, je croyais avoir envoyé un post relativement à ta réaction sur la question.
Effectivement, j'ai apprêté une réponse, mais hélas j'ai omis de l'envoyer, vraiment désolé.
Merci
Bonjour Claudio
Désolé, je croyais avoir envoyé un post relativement à ta réaction sur la question.
Effectivement, j'ai apprêté une réponse, mais hélas j'ai omis de l'envoyer, vraiment désolé.
Merci
AKON
Bonjour,
Tout est bien qui finit bien ! Bonne journée !
Tout est bien qui finit bien ! Bonne journée !
Un bon exposé du problème, c'est déjà un grand pas vers la solution. Dans la mesure du possible, mes solutions sont testées, sur mon système actuel (W10 Pro version 1909), mais peuvent ne pas fonctionner sur tous les Pc
Bonjour,
Merci
A toi de même
Merci
A toi de même
AKON
Discussion trop ancienne
Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.
Nous vous suggérons de créer un nouveau message
9 enregistrements - Page 1/1
« Retour sur la liste des messages de ce forum