> Tous les forums > Forum Bureautique
 Insertion automatique de date sous excel 2003Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
cdr
  Posté le 08/02/2008 @ 18:12 
Aller en bas de la page 
Petit astucien

Bonjour,

j'ai un tableau excel avec deux colonnes qui m'intéresse : la colonne A et la colonne B

Je voudrais programmer les cellules de la colonne A pour que la date du jour s'y affiche dès lors que l'on rentre quelquechose dans la cellule correspondante de la colonne B.

Est-ce possible, et si oui, comment ?

Merci par avance.

Publicité
gilbert_rgi
 Posté le 08/02/2008 à 18:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

un exemple

http://cjoint.com/?cisOl7hSCE

Cdlt

RGI

Bérylion
 Posté le 08/02/2008 à 21:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


'lut

à mon avis y cherche plutot :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 2 Then Exit Sub
ActiveCell.Offset(-1, -1) = date
End Sub


sinon, une simple formule =si(estvide(a1);"";aujourdhui()) au format date fait largement la maille...



gilbert_rgi
 Posté le 09/02/2008 à 10:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut Berry

le blème avec =si(estvide(a1);"";aujourdhui())

c'est que demain sera aujourdhui ;-)))

une autre déclinaison

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 2 Then Exit Sub
ActiveCell.Offset(-1, -1).Formula = "=TODAY()"
ActiveCell.Offset(-1, -1)=ActiveCell.Offset(-1, -1).Value
End Sub

Cdlt

RGI

galopin01
 Posté le 09/02/2008 à 11:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour gilbert, le forum,

je suis assez de l'avis de bérylion. Le pire c'est que tu as mis le doigt sur le problème de la fonction AUJOURDHUI() mais tu la réintroduis avec TODAY!

pas la peine de faire compliqué quand on peut faire simple : a mon avis la fonction date doit surement convenir à notre ami.

J'y rajouterai un petit correctif pour corriger d'éventuelles erreurs de décalage :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 2 Then Exit Sub
Target.Offset(0, -1) = Date
End Sub

Mais tout cela me semble encore un peu approximatif à cause du Resume Next : J'ai l'impression qu'il subsiste quelques failles.

A+



Modifié par galopin01 le 09/02/2008 11:17
fth
 Posté le 09/02/2008 à 12:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour les zamis,

Une petite variante si on souhaite pouvoir changer ce que l'on a encodé il y a 3 jours tout en gardant la date d'encodage initiale

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1).Formula = Date
End Sub

gilbert_rgi
 Posté le 09/02/2008 à 14:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

galopin01 a écrit :

bonjour gilbert, le forum,

je suis assez de l'avis de bérylion. Le pire c'est que tu as mis le doigt sur le problème de la fonction AUJOURDHUI() mais tu la réintroduis avec TODAY!

pas la peine de faire compliqué quand on peut faire simple : a mon avis la fonction date doit surement convenir à notre ami.

J'y rajouterai un petit correctif pour corriger d'éventuelles erreurs de décalage :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 2 Then Exit Sub
Target.Offset(0, -1) = Date
End Sub

Mais tout cela me semble encore un peu approximatif à cause du Resume Next : J'ai l'impression qu'il subsiste quelques failles.

A+


Je suis d'accord avec vous c'était seulement une AUTRE approche

Cdlt

RGI

cdr
 Posté le 11/02/2008 à 09:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci à vous tous.
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
19,96 €Casque micro gaming Aukey GH-X1 à 19,96 €
Valable jusqu'au 07 Mai

Amazon fait une promotion sur le casque gaming Aukey GH-X1 qui passe à 19,96 €. Ce casque compatible PC, PS4/PS5, Xbox One et Switch possède des écouteurs de 50 mm et un micro omnidirectionnel avec une réduction du bruit de fond. La télécommande sur fil vous permet de régler le volume de façon précise et analogique, et de couper le son du microphone pour garantir le respect de votre vie privée. Un éclairage RVB est également possible en branche un câble USB.


> Voir l'offre
102,18 €Disque dur externe USB 3.0 Seagate 6 To à 102,18 € livré
Valable jusqu'au 08 Mai

Amazon Allemagne propose actuellement le disque dur Seagate Expansion Desktop Drive 6 To à 95,80 € (avec la TVA ajustée). Comptez 6,38 € pour la livraison en France soit un total de 102,18 € livré alors qu'on le trouve ailleurs à partir de 120 €. Le disque est non soudé et vous pourrez le récupérer pour l'utiliser dans un ordinateur, un NAS, etc. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. 


> Voir l'offre
69,99 €Casque sans fil Sony WH-CH700NL Bluetooth avec réduction de bruit active à 69,99 €
Valable jusqu'au 07 Mai

Cdiscount fait une belle promotion sur le casque sans fil Sony WH-CH700NL Bluetooth qui passe à 69,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 120 €. Ce casque sans fil rechargeable (via micro USB) offre jusqu'à 35h d'autonomie. L'AINC (Artificial Intelligence Noise Cancelling) s'adapte à votre environnement, ce qui vous permet d'éliminer les bruits indésirables lors de vos voyages ou si vous êtes avec d'autres personnes dans une même pièce. Une très bonne affaire.


> Voir l'offre

Sujets relatifs
Cumule de date et heure sous excel 2003
report automatique date et compteur fichier excel.
report automatique date et compteur fichier excel.
Excel 2007, insertion ligne vierge en automatique
Excel 2003, insertion ligne vierge
Perte hyperliens Excel 2003 sous Vista Edition Familiale
Amélioration d'une macro sous excel 97 ou 2003
Sous totaux avec Excel 2003
enregistrement partiel sous EXCEL 2003
soustraire automatique des sous totaux excel 2010
Plus de sujets relatifs à Insertion automatique de date sous excel 2003
 > Tous les forums > Forum Bureautique