× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Macro...Date de Mise a jourSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TheCrow
  Posté le 06/03/2015 @ 14:59 
Aller en bas de la page 
Petit astucien

Bonjour, J'ai une petite question, est-ce possible d'avoir une macro qui viendrait mettre automatiquement dans la cellule B1 la date de modification lorsqu'il y a une modification d'information dans la cellule A1

Donc quand quelqu'un change un truc dans la cellule A1, automatiquement la date d'aujourd'hui vient se mettre a jour dans la cellule B1 et elle reste statique jusqu'a temps qu'il fasse un autre changement dans la cellule A1.

Merci de votre aide, TheCrow

Publicité
ferrand
 Posté le 06/03/2015 à 15:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Par exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1").Value = Date
End Sub

A mettre dans le module de la feuille concernée.

NB- S'il y a déjà une procédure _Change dans ce module, tu intègres la ligne de code dans la procédure existante (il ne peut y avoir qu'une seule procédure pour un même évènement...)

TheCrow
 Posté le 06/03/2015 à 16:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Ferrand ca fonctionne parfaitement!!!

Ton aide est toujours apprécié!

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
9,99 €Câble plat Ethernet RJ45 Ugreen Cat 7 10 Gbps 5 m à 9,99 € avec le code E3YDPUMI
Valable jusqu'au 22 Septembre

Amazon fait une promotion sur le câble plat Ethernet RJ45 Ugreen Cat 7 10 Gbps 600 Mhz d'une longueur de 5 m à 9,99 € avec le code E3YDPUMI. On le trouve habituellement à 17,99 €. Pour profiter de l'offre, saisissez le code E3YDPUMI sur la page de paiement. La livraison en point relais est gratuite.


> Voir l'offre
499,99 €PlayStation 5 à 499,99 € [Précommande]
Valable jusqu'au 20 Septembre

La PS5 avec lecteur Blu-Ray sortira le 19 Novembre en France. Il est d'ores et déjà possible de la précommander pour être certains d'avoir son exemplaire à la sortie. La disponibilité étant limitée, régardez régulièrement sur BoulangerAmazonCdiscount, FNAC.


> Voir l'offre
179,99 €Ecran incurvé Acer 27 pouces ED270RPbiipx (FullHD, 165 Hz) à 179,99 €
Valable jusqu'au 22 Septembre

Amazon propose actuellement l'écran incurvé Acer ED270RPbiipx à 179,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 200 €. Cet écran possède une diagonale de 27 pouces, est Full HD (1920x1080), possède une dalle incruvée (courbure 1500R) VA à 165 Hz et dispose d'entrées DP et 2xHDMI.


> Voir l'offre

Sujets relatifs
Mise en forme conditionnel date du jour
Date de mise à jour
date de mise a jour dans Excel
mise à jour libre office
Mise à jour Libre Office
mise a jour de Skype
Word insérer date du jour dans nom du fichier
mise a jour pdf creator 2.01
Money 2005 accéder à la mise à jour automatique des cours
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
Plus de sujets relatifs à Macro...Date de Mise a jour
 > Tous les forums > Forum Bureautique