[Excel] date automatique sans mise à jour

Bonjour,

Il est très bien ce script, mais je l’ai testé et il ne fonctionne toujours pas très bien parce qu’à chaque fois que je reviens sur la cellule, et bien elle se met à jour.

Je suis en train de réaliser un document de fiche d’incident.
Dans une première partie j’utilise la date pour générer un numéro, c’est-à-dire :
Ex : 14/02/2007 15 :00
Dans ma cellule je voudrais avoir ceci 20070214-1500.
Pour cela j’ai utilisé la formule classique sous Excel : =MAINTENANT()

Ce que je cherche à faire avec cette cellule et de créer un numéro unique lors de la première ouverture du fichier et qu’elle ne se mette plus a jour, quel soit statique. Surtout impossible de changer le numéro.

Dans la deuxième partie, j’ai ceci :
......| A | B | C | D
13 | N° | Date | Heure | Intervenant
14 | 1 | 14/02/2007 | 14H26 | Toto
15 | 2 | 14/02/2007 | 14H26 | Titi
16 | 3 | 14/02/2007 | 14H26 | Tutu

Ce que je voudrais faire est :
- Dès qu’un non est entré dans la colonne E (Intervenant)
- La date et l’heure se met à jour automatiquement mais une seul fois, sans possibilité de changer, sauf si le nom est supprimer.

Ce que j’ai fait : dans la colonne Date j’ai mis cette formule : =SI(ESTVIDE(D14);"";AUJOURDHUI())
dans la colonne Heure j’ai mis cette formule : =SI(ESTVIDE(D14);"";MAINTENANT())

Il faut savoir que ces deux formules ne sont pas du tout fonctionnelles. Les cellules se mettent à jour systématiquement dès que je rentre un nouvel utilisateur et en plus met à jours celles des autres utilisateurs. Et aussi par la même occasion le numéro d’incident qui est basé sur la date.

Je ne suis pas du tout une personne qui maitrise cet outil, mais j’essai de le faire pour simplifier mon quotidien.

Merci pour la personne qui pourra m’aider a trouvé une solution à mon problème.

Bonjour JvDo,

j'ai testé ton programme VBA sur une feuille vierge et elle fonctionne très bien pour l'application que je souhaite mettre en place.
Cependant pour moi les cellules concernées ne sont pas dans les colonnes A et B.
Pour moi la colonne A est en B et la colonne B est en F !!!
Quelles termes je dois changer dans la programmation VBA pour que cela fonctionne ?
Cordialement

Je vais creer un programme de controle de dates d'esprirations de Produits a ma disposition.
Par exemple, j'ai le produit A que j'ai recu a trois reprises par des fournisseurs differents qui evidement aient differentes dates de Production et d'expirations. Je vais une aide pour creer un fichier de la moyenne de detection de la date d'expiration.
Merci pour ton aide JvDo.

Cordialement.

merci ca ma beaucoup aider !!!!!!!!!!! :)

Bonjour cela fonctionne merci par compte j'ai une petite demande par soucis de perfection.
Quand je rentre un caractère dans la colonne B (2) la date s'affiche correctement dans la colonne F (6).
Cependant serait il possible d'apporter une modification a la macro pour que lorsque j'enlève le caractère dans la colonne B la date dans la colonne F disparaisse ???
Merci d'avance
Cordialement

Bonsoir,
Essaye avec ce code qui est plus complet car il gère l'effacement d'une sélection multizone .
Chez moi, ça fonctionne mais je n'ai pas cherché à tout tester.

Private Sub Worksheet_Change(ByVal Target As Range) 
Application.EnableEvents = False 
Set vtarget = Intersect(Target, Columns(2)) 
If Not (vtarget Is Nothing) Then 
    For Each varea In vtarget 
        For Each vcell In varea 
            If Not (IsEmpty(vcell.Value)) Then
                Range("F" & vcell.Row).Value = Now
            Else
                Range("F" & vcell.Row).ClearContents
            End If
        Next 
    Next 
End If 
Application.EnableEvents = True 
End Sub

Cordialement

Génial,
Cela est très utile merci beaucoup,

Personnellement j'ai une dernière question pour que mon fichier puisse être tip top,

Que dois-je rajouter pour que la macro ne fonctionne que à partir de la ligne N ?

bonjour
juste mettre le N° de colonne (N) voulu à la place (2)
dans la ligne:
Set vtarget = Intersect(Target, Columns(2))
et bien sur remplacer ("F") par le nom de la colonne où vous voulez afficher le résultat;
crdlmnt

Merci,
Mais ce n'est pas là le problème, ca ca marche c'est juste que je voudrais que cette mise en forme ne s'applique que a partir de la ligne N (16 en l'occurrence).
Sinon quand je modifie mon entête j'ai des dates qui arrivent de partout :-/

Je pense bien ajouter un If pour écrire si la ligne est supérieur a 16 alors, et la le reste de la macro.

Mais il me manque la syntaxe ...