Afficher la date du jour VBA

Résolu/Fermé

dédé65000 Messages postés 11 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 7 octobre 2014 - 3 sept. 2014 à 15:23
dédé65000 Messages postés 11 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 7 octobre 2014 - 6 sept. 2014 à 16:12

Bonjour,

J'aurais besoin d'un petit coup de main en VBA je m'explique,
J'ai un fichier permettant de suivre l'avancement des affaires le statut est soit en chiffrage soit en négociation soit en commande. le statut se sélectionne avec une liste déroulante.
Je souhaiterais qu'à chaque fois que statut passe en commande la date du jour s'affiche dans la cellule d'à côté de ce statut
Je ne sais vraiment pas comment faire, j'ai essayé avec des formules excel mais je ne pense pas que ce soit possible car il faut coller la date du jour en valeur (afin que celle ci ne change pas le lendemain
Quelqu'un peut-il m'aider ?

Merci d'avance

Cordialement
Je joins une image pour excel

A voir également:

Vba date du jour
Vba excel date du jour - Meilleures réponses
Excel vba date du jour - Meilleures réponses
Mettre à jour ses pilotes - Guide
Jm date - Forum Consommation & Internet
Whatsapp date incorrecte ✓ - Forum Mobile
Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word

4 réponses

Réponse 1 / 4

Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 37
3 sept. 2014 à 15:48

Bonjour,
Dans le code de la feuille (pas dans un module) utilisez la procédure évenementielle Worksheet_Change

Par exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A1").Value = Date
End Sub

On peut utiliser en plus de vos conditions sur le Statut l'emplacement à surveiller pour indiquer la date ou l'emplacement où la mettre avec la cellule qui a été modifiée. (Target.Row, target.Column ou Target.Adress)

Réponse 3 / 4

Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 37
5 sept. 2014 à 11:05

Bonjour,

1) Excel ou plutôt le code VBA va faire ce qu'on lui demande dès qu'un changement à lieu dans la feuille grace à la macro évenementielle Worksheet_Change

2) Non, il ne s'agit pas d'une formule, mais bien de la date uniquement, celle-si ne se modifierait qu'avec un nouveau déclenchement de la macro

3) Sans avoir plus de détail ou mieux votre fichier, difficile de comprendre là où vous bloquer.

Si j'ai bien compris avec votre petite image, on a le statut dans la colonne en C. Lorsque celui-ci change et devient "Commande" on indique la date dans la colonne D (sur la même ligne).

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If Target.Value = "Commande" Then Range("D" & Target.Row).Value = Date
End Sub

Travaillez votre macro avec mes commentaires précédant en incluant vos conditions et redites si vous bloquez et où.

Discussions similaires

VBA remplir une textboxt avec date du jour

Récupérer la date du jour sous VBA

Excel VBA, récupération de la date du jour

VBA cellule active date du jour

renommer un fichier txt avec la date du jour avec condition

Fonction SI avec date du jour

Discussions similaires

Newsletters