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+
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+