IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Incorporer date si modification dans cellules


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2011
    Messages
    233
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 233
    Points : 63
    Points
    63
    Par défaut Incorporer date si modification dans cellules
    Bonjour,

    J'aimerais intégrer dans ma feuille 1 en B3 la date et l'heure si la somme qui se trouve entre P4 et P40 de ma feuille 2 se modifie.

    Est ce que quelqu'un pourrait m'aider SVP, j'ai beau chercher sur les divers FORUM je ne trouve pas

    Merci

    Manu

  2. #2
    Expert éminent Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 754
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 754
    Points : 9 396
    Points
    9 396
    Par défaut
    Bonjour,

    Une solution avec une cellule tampon (ici la cellule A1 de la feuille 2)

    - Saisir dans A1 le montant de la somme de P4 à P40 (Uniquement lors de la mise en place)
    - Mettre le code ci dessous dans l'évenement Worksheet_Change de la feuille 2
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Column = 16 And Target.Row >= 4 And Target.Row <= 40 Then
        If Application.WorksheetFunction.Sum(Range("P4:P40")) <> Range("A1").Value Then
            Sheets("Feuil1").Range("E3").Value = Now
            Range("A1").Value = Application.WorksheetFunction.Sum(Range("P4:P40"))
        End If
    End If
     
    End Sub

Discussions similaires

  1. Date de modif de cellule dans EXCEL
    Par abcrabcr dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 14/10/2012, 18h58
  2. [XL-2007] rapatrier les dates du calendrier dans cellules
    Par fthem dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 11/08/2011, 10h37
  3. Modification dans cellule de fichier fermé
    Par edelweisseric dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/04/2009, 19h43
  4. ajouter automatiquement la date de modif dans une table?
    Par Nadaa dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 12/10/2007, 03h45
  5. recuperation de la date de modification dans access
    Par cyberm41 dans le forum Access
    Réponses: 5
    Dernier message: 07/10/2005, 16h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo