> Tous les forums > Forum Bureautique
 commentaire + DateSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jo.nat1
  Posté le 20/10/2014 @ 08:03 
Aller en bas de la page 
Petit astucien

Bonjour a tous.

En VBA Excel, peut -on ajouter une date a partir d'une cellule dans un commentaire a la place du nom utilisateur.

Exemple ( en c"olonne A1: A1000", dans "A1" je rentre la date 02/03/1956 et j’insère un commentaire a "A1"

je voudrais que la date se mettre automatiquement dans le commentaire à la place du nom utilisateur {le nom utilisateur doit être effacer}).

J'espère que je suis accès clair dans mes explications.

si quelqu'un à un petit code, je le remercie.

A+

Publicité
qmike549
 Posté le 20/10/2014 à 08:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

tu peux t'inspirer de ceci

Afficher la date du jour dans un commentaire

 
Sub AffichDateComm()
    With Range("A1")
         .AddComment
         .Comment.Text Text:=Format(Now, "yyyy-mm-dd hh:mm:ss")
    End With
End Sub

Source : http://michel.vergriete.perso.sfr.fr/32excelvba.html
jo.nat1
 Posté le 20/10/2014 à 12:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour et merci pour ta réponse.
Malheureusement ce n'est pas ceux que je cherche à moins que je me suis mal exprimé.
Je cherche à rentrer dans les cellules de la colonne "A1: A100" n'importe quelle date, et si je créais un commentaire et le commentaire prend la date de la cellule à la place d'utilisateur.
j'espère que c'est possible !
Merci.

qmike549
 Posté le 21/10/2014 à 12:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Effectivement ce n'est pas bien expliqué sur le premier post !!!

Quel est l'interet de procéder ainsi ?

Mytå
 Posté le 21/10/2014 à 16:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le Forum

A tester

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cmt As Comment

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing And Target.Count = 1 Then

With Target

Set Cmt = .Comment

If Cmt Is Nothing And IsDate(.Value) Then

.AddComment Text:=Format(.Value, "yyyy-mm-dd")

End If

End With

End If

Set Cmt = Nothing

End Sub

Mytå



Modifié par Mytå le 21/10/2014 16:40
jo.nat1
 Posté le 21/10/2014 à 19:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour qmike549.

Pour réponse à ta question, l’intérêt c'est de mettre des images dans les commentaires et les dates correspondent aux images.

les images sont des feuilles de résultats d'analyses photocopier

Voilà.

A+

jo.nat1
 Posté le 21/10/2014 à 19:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Mytâ

Je te remercie pour ta réponse, je m'empresse d'essayer et je te redis cela.

A+

jo.nat1
 Posté le 21/10/2014 à 19:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Rebonsoir Myta

Merci de m'avoir proposé ce code, mais cela ne fonctionne pas

Merci.

Mytå
 Posté le 21/10/2014 à 19:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le Forum

Mon code génère le commentaire à la saisie d'une date dans la cellule.

Il n'y a pas de macro événementielle sur la création de commentaires.

Une solution : Aller dans les options et enlever le nom d'utilisateur, à la création ton commentaire sera alors vide.

Mytå



Modifié par Mytå le 21/10/2014 19:56
Publicité
jo.nat1
 Posté le 21/10/2014 à 20:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci myta

si c'est pas possible alors l'affaire est résolue.

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
27,70 €Clé USB 3.0 Sandisk Ultra 256 Go à 27,70 € livrée
Valable jusqu'au 05 Août

Amazon Allemange propose la clé USB Sandisk Ultra d'une capacité de 256 Go à 23,18 €. Comptez 4,52 € pour la livraison en France soit un total de 27,70 € livrée. On la trouve ailleurs à partir de 40 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.

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


> Voir l'offre
83,60 €Disque dur externe portable Toshiba Canvio Basics 4 To USB 3.0 à 83,60 €
Valable jusqu'au 04 Août

Amazon propose actuellement le disque dur externe portable Toshiba Canvio Basics 4 To USB 3.0 à 83,60 € seulement ! Avec ses 4 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker rapidement et emporter avec vous vos photos, vos films, etc.  La livraison est gratuite.


> Voir l'offre
32,72 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme 256 Go (150 Mo/s) à 32,72 € livrée
Valable jusqu'au 07 Août

Amazon Allemagne fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme 256 Go qui passe à 28,22 €. Comptez 4,50 € pour la livraison en France soit un total de 32,72 € livrée. Cette carte mémoire offre des vitesses jusqu'à 150 Mo/s et est idéale pour les caméras et appareils photo HD. On la trouve ailleurs à partir de 55 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre

Sujets relatifs
Date ???
Ajouter 15 jours à une date (Word)
sommeprod avec date
Etrange ? Date des fichiers Office 2013 récupérés : 1er janvier 1601
report automatique date et compteur fichier excel.
report automatique date et compteur fichier excel.
tarif en fonction de la date
Macro...Date de Mise a jour
Commentaire dans excel
Word insérer date du jour dans nom du fichier
Plus de sujets relatifs à commentaire + Date
 > Tous les forums > Forum Bureautique