Formule Aujourd'hui [Excel] Résolu/Fermé

Question

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 

Configuration: Windows 7

Mike-31 · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

Formule Aujourd'hui [Excel]

3 réponses

Discussions similaires