Implémentation de date sous excel 2003
Résolu
jmloulou
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
Pseudo -
Pseudo -
A voir également:
- Implémentation de date sous excel 2003
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Nombre de jours entre deux dates excel - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
9 réponses
Et plus simple encore, sur la méthode change, simplement détecter quelle cellule (A) a changé, et dans la cellule B en regard, placer NOW()
Faire Alt-F11 puis dans le code de FEUILL1, mettre :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rw As Long
If Target.Column = 1 Then
Rw = Target.Row
Range("B" & Rw).Value = Now()
End If
End Sub
Faire Alt-F11 puis dans le code de FEUILL1, mettre :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rw As Long
If Target.Column = 1 Then
Rw = Target.Row
Range("B" & Rw).Value = Now()
End If
End Sub
Salut
Clic droit sur l'onglet de feuille et colle ce code qui contrôlera la plage A2 à A1000 et mettra la date du jour en B
Peut être serait il judicieux d'ajouter une msgbox qui éviterait l'effacement accidentel en B si on reclique sur une cellule déjà renseignée, ainsi qu'une gestion d'erreur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A1000], Target) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
Clic droit sur l'onglet de feuille et colle ce code qui contrôlera la plage A2 à A1000 et mettra la date du jour en B
Peut être serait il judicieux d'ajouter une msgbox qui éviterait l'effacement accidentel en B si on reclique sur une cellule déjà renseignée, ainsi qu'une gestion d'erreur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A1000], Target) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
Mike, ne le prend pas mal, mais tu peux me dire l'intérêt de réécrire un code totalement différent alors que le mien fonctionnait ? C'est vraiment pour dire au gars qui l'a fait qu'il a perdu son temps, ou pour montrer que t'en as une plus grosse ? Ou parce que t'as vraiment que ça à faire de ta vie ? Ce n'est pas la premiere fois, et twice is too much, comme on dit. Pour ma part je n'ai pas vraiment que ça a foutre, aussi je vais tout simplement arrêter d'écrire des bouts de codes, puisque de toutes manières un clampin ou l'autre repassera dans le quart d'heure pour réinventer l'eau tiède. C'est totalement contreproductif, et vain.
Bonjour jmloulou.
Ce ne sera pas évident : La fonction AUJOURDHUI() donne en effet chaque jour, par définition, une date différente !
Ce ne sera pas évident : La fonction AUJOURDHUI() donne en effet chaque jour, par définition, une date différente !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Attention je voudrait que la cellule date ce mette à chaque fois dans la case b par exemple de la même ligne et quel reste sans revenir a la date du jour ou j'ouvre le fichier c'est de la que vient mon souci.
merci pur vos réponse
merci pur vos réponse
Tu as raison, Raymond. En fait ce n'est pas faisable dans une cellule, mais bien en se basant par exemple sur l'événement "change" en VBA.
On parcourt la liste des cellules A, B de 1 à ....
Si B est vide et A est non vide, mettre NOW() dans B
Mais c'est lourd de chez lourd là où sous access il s'agit d'un problème trivial.
On parcourt la liste des cellules A, B de 1 à ....
Si B est vide et A est non vide, mettre NOW() dans B
Mais c'est lourd de chez lourd là où sous access il s'agit d'un problème trivial.
le problème dans mon cas c'est qu'il me faudrait une formule toute faite je suis débutant en excel, je ne connais pas les langages de programmation :-(
Re,
Tu fais un clic droit sur l'onglet de ta feuille et clic sur visualiser le code. C'est la même chose que de faire Alt + touche de fonction F11 (F11 est la touche de fonction en haut du clavier F9, F10 F11 etc ...)
Tu fais un clic droit sur l'onglet de ta feuille et clic sur visualiser le code. C'est la même chose que de faire Alt + touche de fonction F11 (F11 est la touche de fonction en haut du clavier F9, F10 F11 etc ...)