EXCEL, incrémenter la valeur d'une cellule à chaque ouverture du fichier (résolu)

akon_aug akon_aug
606 contributions
Membre depuis le 08/03/2007
Envoyé le 25/05/2019 à 14:15


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

AKON
Claude40 Claude40
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).

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
akon_aug akon_aug
606 contributions
Membre depuis le 08/03/2007
Envoyé le 26/05/2019 à 09:40


Bonjour à TOUS,
Bonjour Claude40

Merci pour ton post, je vais essayer et je ferai un retour

Merci
AKON
lcouaci
2 contributions
Membre depuis le 26/06/2019
Envoyé le 26/06/2019 à 02:27


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

akon_aug akon_aug
606 contributions
Membre depuis le 08/03/2007
Envoyé le 26/06/2019 à 11:06


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 (+) (+) (+)
AKON
Claude40 Claude40
1 534 contributions
Membre depuis le 24/03/2010
Envoyé le 26/06/2019 à 12:40


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


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 ! [:o)]
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
akon_aug akon_aug
606 contributions
Membre depuis le 08/03/2007
Envoyé le 26/06/2019 à 14:29


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



AKON
Claude40 Claude40
1 534 contributions
Membre depuis le 24/03/2010
Envoyé le 26/06/2019 à 15:51


Bonjour,

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
akon_aug akon_aug
606 contributions
Membre depuis le 08/03/2007
Envoyé le 26/06/2019 à 17:17


Bonjour,
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

« Retour sur la liste des messages de ce forum