Lier une valeur variable à un calendrier.
Résolu
dingo123
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
dingo123 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
dingo123 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai un document Excel avec dans une feuille un total de valeurs qui varie tous les jours et un'autre feuille avec des dates. Je voudrais que la valeur de la première feuille soit enregistrée automatiquement tous le jours dans le jour correspondent de la deuxième.
Merci pour votre aide
DIngo123
J'ai un document Excel avec dans une feuille un total de valeurs qui varie tous les jours et un'autre feuille avec des dates. Je voudrais que la valeur de la première feuille soit enregistrée automatiquement tous le jours dans le jour correspondent de la deuxième.
Merci pour votre aide
DIngo123
A voir également:
- Lier une valeur variable à un calendrier.
- Mon calendrier - Télécharger - Santé & Bien-être
- Lier calendrier outlook et gmail - Guide
- Calendrier partagé google - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, peux-tu partager ton fichier?
je pense qu'il est assez simple de faire un peu de VBA qui, chaque fois que tu ouvres ou fermes le fichier, sauve automatiquement le total pour le jour en cours.
est-ce cela que tu cherches?
je pense qu'il est assez simple de faire un peu de VBA qui, chaque fois que tu ouvres ou fermes le fichier, sauve automatiquement le total pour le jour en cours.
est-ce cela que tu cherches?
Comment partager le fichier? Merci
Je voudrais que la valeur en F2 de la "Feuille 2" soit automatiquement copier dans la colonne G de la "Feuille 1" au jour respectif
Merci
- sauvegarder ton fichier comme .xlsm, de façon à pourvoir y créer du vode VBA
- ouvrir le fichier xlsm, faite ALT-F11, double cliquer sur "thisworkbook", et ensuite copier/coller le code ci-dessous dans la fenêtre de droite.
- sauvegarder et fermer
Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call copierF2 End Sub Private Sub Workbook_Open() Call copierF2 End Sub Private Sub copierF2() Dim sh As Worksheet Dim lig As Range Dim cejour As Date, unjour cejour = Int(Now) Set sh = ThisWorkbook.Sheets("Feuille 1") For Each lig In sh.Rows unjour = lig.Cells(1, 1) If IsDate(unjour) Then If Int(unjour) = cejour Then lig.Cells(1, 7).Value = ThisWorkbook.Sheets("Feuille 2").Cells(2, 6).Value Exit For End If End If Next lig End SubEnsuite, à chaque sauvetage et à chaque ouverture du fichier, la valeur en F2 sera sauvée comme souhaité.