> 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
69,40 €Carte mémoire microSDXC Samsung Pro Plus 512 Go (160 Mo/s) à 69,40 € livrée
85 € -18%

Amazon Allemagne fait une promotion sur la carte mémoire microSDXC Samsung Pro Plus 512 Go qui passe à 64,88 € (avec la TVA ajustée) au lieu de 100 €. Comptez 4,52 € pour la livraison en France soit un total de 69,40 € livrée. On la trouve à partir de 85 € ailleurs.

Idéale pour les prises de vue 4K UHD et rafale jusqu'à 160 Mo/s en lecture et 120 Mo/s en écriture (UHS-I U3). Particulièrement robuste grâce à sa protection 7 couches : imperméable, résistant à la température, aux rayons X, à l'aimant, aux chocs, aux chutes et à l'usure.


Voir l'offre
Gratuit4 mois d'abonnement à Amazon Music Unlimited gratuits

Amazon vous permet d'essayer son service de streaming musical pendant 4 mois gratuitement. Avec Amazon Music Unlimited, accédez à plus de 50 millions de titres, sans publicité et en illimité sur tous vos appareils : smartphone, tablette, PC/Mac, Fire, Alexa. Vous avez même la possibilité de télécharger vos playlists pour des écoutes hors connexion.

A la fin de ces 4 mois, vous pourrez basculer vers l'offre payante à 9,99 € / mois ou bien arrêter sans frais le service. A noter l'existence d'une offre famille à 14,99 € / mois qui permet jusqu'à 6 utilisateurs d'écouter leur musique à tout moment et sur leurs appareils préférés. Vous pouvez annuler l'abonnement à tout moment.


Voir l'offre
49,99 €Casque sans fil bluetooth Corsair HS70 à 49,99 €
89,99 € -44%

Amazon fait une promotion sur le casque sans fil bluetooth Corsair HS70 qui passe à 49,99 € au lieu de 79,99 €. Avec le micro-casque Corsair Gaming HS70 Bluetooth, jouez selon vos besoins que ce soit en filaire ou en Bluetooth, il vous accompagne partout. Confortable à l'usage grâce à ses oreillettes à mémoire de forme, il se montre à la hauteur de vos attentes et se montre vite indispensable pour vos parties.


Voir l'offre
1,70 €Rallonge USB 2.0 3 mètres à 1,70 €
4 € -58%

Amazon fait une promotion sur la rallonge USB 2.0 d'une longueur 3 mètres qui passe à 1,70 € au lieu de 4 €. D'autres longueurs sont également en promotion : 1 mètre à 1,20 €, 2 mètres à 0,98 € et 5 mètres à 2,70 €


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