Formule Aujourd'hui [Excel]
Résolu
olympiklyon
Messages postés
69
Statut
Membre
-
olympiklyon Messages postés 69 Statut Membre -
olympiklyon Messages postés 69 Statut Membre -
Bonjour,
J'ai un problème avec la fonction =Aujourdhui. J'ai une colonne I où j'insère un nombre et dans la colonne J au même niveau la date du jour d'aujourd'hui. J'aimerais figer cette date automatiquement. De même pour K et L, pour M et N ainsi que pour O et P.
Merci d'avance
J'ai un problème avec la fonction =Aujourdhui. J'ai une colonne I où j'insère un nombre et dans la colonne J au même niveau la date du jour d'aujourd'hui. J'aimerais figer cette date automatiquement. De même pour K et L, pour M et N ainsi que pour O et P.
Merci d'avance
A voir également:
- Formule aujourd'hui excel ne fonctionne pas
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Pas de signal tv aujourd'hui - Guide
- Liste déroulante excel - Guide
- Excel mise en forme conditionnelle formule - Guide
3 réponses
Salut,
En VBA seulement
clic droit sur l'onglet de ta feuille/Visualiser le code dans la partie vide
colle ce code qui inscrira la date dans tes colonnes de J à P si tu as saisie une donnée en I
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Target <> "" Then Range(Target.Offset(0, 1), Target.Offset(0, 7)) = Date
End If
End Sub
En VBA seulement
clic droit sur l'onglet de ta feuille/Visualiser le code dans la partie vide
colle ce code qui inscrira la date dans tes colonnes de J à P si tu as saisie une donnée en I
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Target <> "" Then Range(Target.Offset(0, 1), Target.Offset(0, 7)) = Date
End If
End Sub
Re,
pour faire simple et te permettre de modifier le code (concerne les plages de la ligne 1 à 100
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
pour faire simple et te permettre de modifier le code (concerne les plages de la ligne 1 à 100
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
Re,
Si tu enregistres sous le fichier oui le code est copié
si tu fais un copier/coller du fichier également
mais tu auras aussi vite fait de modifier les plages dans le code exemple pour
Range("I2:I100") si tu veux que la plage de déclenchement couvre de I2 à I1500 Range("I2:I1500")) etc
ensuite un simple clic droit sur l'onglet de feuille concernée/Visualiser le code et coller le code
Si tu enregistres sous le fichier oui le code est copié
si tu fais un copier/coller du fichier également
mais tu auras aussi vite fait de modifier les plages dans le code exemple pour
Range("I2:I100") si tu veux que la plage de déclenchement couvre de I2 à I1500 Range("I2:I1500")) etc
ensuite un simple clic droit sur l'onglet de feuille concernée/Visualiser le code et coller le code
Je me suis peut-être mal exprimer. J'aimerais que J agisse seulement avec I, L avec K, N avec M et P avec O !!