Date automatique après copie dans une autre cellule
Bonjour, mon problème du jour.
J'ai un fichier sur lequel lorsque l'on renseigne une cellule, je voudrais que dans la cellule à coté, la date se mette automatiquement.
Est ce quelqu’un a une idée?
Fichier joint: 19 feuilles à renseigner.
Colonne F: Heure à renseigner manuellement,
Colonne G: Date en automatique,
Merci de votre aide.
René
Bonjour,
Sur les 19 feuilles nous avons, Camion en colonne F et PT en colonne G.
A priori, ces 2 colonnes ne prévoient pas l'insertion d'une heure et d'une date.
Peux-tu préciser ?
Cdlt.
Bonjour, j'ai mis le mauvais fichier, je répare mon erreur de suite.
Cdt
René
Encore moi, en cherchant dans des vieux postes, j'ai trouvé des formules, "Aujourdhui" pour la date et "Maintenant" pour l'heure qui pourrait m'aider à résoudre mon problème.
J'ai mis cela sur un fichier.
En A1, je renseigne et en B1, je devrais récupérer la date et en C1, je devrais récupérer l'heure.
Mais la formule ne marche pas.
Pourquoi?
René
Re,
Un début de réponse à analyser.
A te relire.
Cdlt.
Re- c'est ce que je cherchais, mais est ce qu'il n'y aurait-il pas la possibilité de renseigner en colonne E, un texte et automatiquement, j'aurai l'heure et la date?
René
Re,
Je réponds à une question et tu poses une nouvelle question !...
Précise ta nouvelle demande.
Cdlt.
Excuses moi, ma demande n'était pas bien réfléchi au départ, ta réponse m'a amené à une autre idée pour que la date et heure soit automatique.
En renseignant en colonne E ( texte ou numéro) que l'on rentre manuellement, la date et heure se mette automatiquement en F et G.
Cdt
René
Re- impossible d'ouvrir le fichier, Excel me dit qu'il est corrompu.
Peux tu y regarder et renvoyer.
Merci
René
Re,
En case nouveau souci, va dans les propriétés du fichier du fichier et débloque le.
Re- j'ai fait ce que tu dis, mais rien n'y fait.
Je ne comprends pas
Cdt
René
Bonjour, et Meilleurs Vœux Jean-Eric.
Cette fois, j'ai réussi à ouvrir le fichier, le résultat est impeccable, exactement ce que je voulais.
Cdt
René
Bonjour, finalement, j'ai réussi à ouvrir le fichier à partir d'un autre ordi.
Par contre problème avec la macro. image ci joint, cela ne marche que sur les feuilles 1 à 19.
Avec l'autre Macro, je renomme les feuilles avec le contenu de la cellule C2.
Le nom de la feuille est une suite de 10 chiffres, avec toujours 45 pour les 2 premiers.
Je joins le fichier avec le résultat de la macro que je viens de faire
De ce faite la macro ne marche pas, est ce que tu aurais une solution?
Cdt
René
Bonjour,
Mes meilleurs vœux pour cette nouvelle année.
Essaie ainsi :
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim lCount As Long
lCount = Replace(Sh.CodeName, "Feuil", "")
Select Case lCount
Case 1 To 19:
If Sh.Cells(2, 3).Value = 0 Then
MsgBox "Vous allez nommer cette feuille ''0'' car c'est cette valeur qui figure dans C2 !", 16
End If
Sh.Name = Cells(2, 3).Value
Case Else:
End Select
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const RNG As String = "$E$5:$E$52"
Dim lCount As Long
lCount = Replace(Sh.CodeName, "Feuil", "")
Select Case lCount
Case 1 To 19:
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Sh.Range(RNG)) Is Nothing Then
If Not IsEmpty(Target) Then
With Target
.Offset(, 1).Value = FormatDateTime(Time, vbShortTime)
.Offset(, 2).Value = FormatDateTime(Date, vbShortDate)
End With
End If
End If
Case Else:
End Select
End SubJean-Eric, je viens de faire des essais, problème résolu, encore merci pour ton aide.
Cdt
René
Bonjour, j'ai une macro qui a été réalisé sur un fichier qui renseigne automatiquement l'heure et la date quand on renseigne en colonne E, feuille 1 à 19.
Je viens de m'apercevoir que la date qui se renseigne en colonne G est au format: Mois/Jour/Année.
Je voudrais que le format soit: Jour/Mois/Année.
Fichier joint
Merci de votre aide.
Cdt
René