question avec =AUJOURD HUI

[rudy]

bonjour a tous,

en G1 j ai placer la fonction =AUJOURD HUI jusqu a la RAS
par contre ceci et placer sur une fiche de reclamation a la quelle j aurai souhaiter conserver la date de création.
les feuilles sont crée avec le ce code ( quelqu un va se reconnaitre ? )

donc,

y a t il une fonction qui indique la date une seul fois ou faut il modifier se code pour rajouter la date de création ?

Private Sub Worksheet_Change(ByVal Target As Range) 'à l'édition dans l'onglet
Dim sh As Worksheet 'déclare la variable sh (SHeet)

'si l'édition a lieu ailleursqaue dans la colonne A, sort de la procédure
If Target.Column <> 1 Then Exit Sub

For Each sh In Sheets 'boucle sur tous les onglets du classeur
If Target.Value = sh.Name Then ' condition : si le nom édité est le même que celui de l'onglet
MsgBox "Il existe déjà un onglet """ & Target.Value & """ !" ' message
Target.ClearContents 'efface le nom édité
Exit Sub ' sort de la procédure
End If 'fin de la condition
Next sh ' prochain onglet de la boucle

Sheets("reclamation 1").Copy After:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en dernier
ActiveSheet.Name = Target.Value ' renomme l'onglet copié avec la valeur éditée
End Sub



A+

 

[Paritec]

Re : question avec =AUJOURD HUI

Bonjour Rudy,
pourquoi ne pas nommer ta feuille avec la date de ta création?
a+
papou

 

[Papou-net]

Re : question avec =AUJOURD HUI

Bonsoir rudy,

Si j'ai bien compris, et pour figer la date, il suffit d'entrer au clavier : CTRL + ;
Pour entrer l'heure : CTRL + :

Espérant avoir répondu.

Cordialement.

 

[Lii]

Re : question avec =AUJOURD HUI

Bonsoir,

pas sûr d'avoir compris donc à essayer

...
Sheets("reclamation 1").Copy After:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en dernier
ActiveSheet.Name = Target.Value
Activesheet.[G1]= Now 'ou Date
End Sub

 

[rudy]

Re : question avec =AUJOURD HUI

merci de vos réponse
je vais utiliser le Ctrl +
A+