Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Maj Date

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion amapacha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

amapacha

Guest
Bonjour à vous!

voilà!! je vais essayer de faire court, j'ai un probleme
je souhaiterais que quand on modifie une cellule du pojet 1 par exemple, la date du jour s'affiche et dans la colonne des dates et un commentaire dans la colonne com.
est ce qu'on peut m'aider.?

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Maj Date

Merci à toi philippe ça marche, mais j'ai essayé un truc j'ai ecrit ailleur sur plusieurs cellules j'ai directement copié et collé mais ça donne un message d'alerte.
 
Vote positif 0 Vote négatif
Re : Maj Date

Re,

lorsqu'on copie plusieurs cellules dans la zone coloriée, il faut utiliser ce code (légèrement modifié par rapport à l'autre)

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G40")) Is Nothing Then
debut:
    Message = InputBox("Quelle est la raison de ce changement ?")
If Message = "" Then GoTo debut
For Each cellule In Target
    cellule.ClearComments
    cellule.AddComment
    cellule.Comment.Text Text:="Cellule modifiée le" & Chr(10) & Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss") & Chr(10) & Chr(10) & "Motif :" & Chr(10) & Message
Next cellule
End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Maj Date

Re,

avec un petit plus

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G40")) Is Nothing Then
debut:
    Message = InputBox("Quelle est la raison de ce changement ?")
If Message = "" Then GoTo debut
For Each cellule In Target
    cellule.ClearComments
    cellule.AddComment
    cellule.Comment.Text Text:="Cellule modifiée le" & Chr(10) & Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss") & Chr(10) & Chr(10) & "Motif :" & Message & Chr(10) & "Par: " & Application.UserName
Next cellule
End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Maj Date

Là franchement c'est super! je ne sais pas comment te remercier.
J'essai d'interpreter et comprendre le code si j'ai des questions particulieres je reviendrai soliciter ton genie.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
  • Question Question
Microsoft 365 compter le nombre d'articles expédiés un jour donné
Réponses
2
Affichages
227
Wilmouth Michel
W
S
  • Question Question
Mise en forme conditionnelle
Réponses
3
Affichages
192
Nain porte quoi
N
U
  • Question Question
Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?
Réponses
14
Affichages
442
un internaute
U
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
123
philmaure
P
I
  • Résolu(e)
Microsoft 365 Conversion date stockée en texte
Réponses
3
Affichages
179
Ines99
I
C
  • Résolu(e)
Power Query Jour ouvré précédent si date n'est pas un jour ouvré
Réponses
6
Affichages
244
alexga78
A
H
  • Question Question
Microsoft 365 Gestion des lots en FIFO
2
Réponses
16
Affichages
429
hbb
H
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
429
cathodique
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
239
Ron74
R
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
707
SAMUAL_2023
S
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
690
un internaute
U
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
662
lynyrd
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
625
BLACKHAYES
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
230
job75
P
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
344
Payne
P
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
703
nat54
V
  • Question Question
XL 2016 ou 2019 - fichier recensant les congés, tickets resto et heures supplémentaires
Réponses
0
Affichages
212
vivi21
V
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
1 K
pierrof
P
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
444
anthoYS
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
332
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…