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

MODIFIER UNE PETITE MACRO (origine Boisgontier)

Créer une discussion

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

urbanito1

XLDnaute Occasionnel
Bonsoir à la communauté,

la petite macro en annexe permet de conserver l'historique dans la rangée de cellules choisies

mais on peut supprimer - effacer le commentaire et l'historique se perd

comment faire pour empêcher la suppression et ainsi tjs conserver l'historique?

merci
urbanito
 

Pièces jointes

Trier par date Trier par votes
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)


bonjour le forum

quelqu'un a-t-il une idée?
peut-être ais-je mal exprimé mon problème?
merci
urbanito
 
Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonjour

à part jouer avec la protection

dans thisworkbook

Code: 
Private Sub Workbook_Open()
'Protège toutes les feuilles
Dim i As Single
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="", userinterfaceonly:=True
Next
End Sub

et dans ta feuille

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 2 Or Target.Column = 9 Or Target.Column = 12 Or Target.Column = 14 Or Target.Column = 16 Or Target.Column = 31 Or Target.Column = 34 Then
    On Error Resume Next                        ' active la gestion d'erreur
    Err = 0
    ActiveSheet.Unprotect
    temp = Target.Comment.Text                  ' Commentaire existe t-il?
    If Err <> 0 Then Target.AddComment          ' Création commentaire
    Target.Comment.Text Text:=Target.Comment.Text & _
       Target.Value & " Modifié par:" & NomUtil() & _
         " Le " & Now & vbLf
    Target.Comment.Visible = True
    Target.Comment.Shape.Select
    Selection.AutoSize = True
    Target.Comment.Visible = False
    On Error GoTo 0                             ' désactive la gestion d'erreurs
  End If
  Application.EnableEvents = True
  ActiveSheet.Protect
End Sub
 
Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonjour ,

En 2 mots , tu cherches à empêcher la suppression d'un commentaire ?

Ps : Bonjour Eric S , bon mon post devient obsoléte , mais me permet de te saluer .
 
Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Re moi ,

une solution sans la gestion d'erreur, cela fait plus pro

 
Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonsoir le forum
Eric, Camarchepas

je souhaite empêcher la suppression du commentaire tout en pouvant ajouter des commentaires sur la même cellule

la macro Eric fonctionne très bien mais empêche d'ajouter un commentaire

j'ignore si c'est possible

--
Camarchepas : où dois-je copier le code...? dans la feuille? dans thisworkbook?

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonjour Urbanito Eric S,
Tu veux juste le beurre, l'argent du beurre, le lait et la crémiére ... lol, mais si tu veux modifier sans rien effacer, pas trés simple, mais bon rien d'impossible, il faut juste voir combien tu es prêt à faire d'efforts et là tu vas je pense déboucher sur un code assez lourd.
Bon je m"explique : Dans Excel , le commentaire est vraiment sympa , mais comme objet sécurité à la base , pas le top.

1 risque , lors de la 2° saisie l'utilisateur peut effacer ou modifier une partie de ce qui à été saisie avant.
donc je pense qu'il faut une sauvegarde quelque part de ce qui est saisie au fil de l'eau .
COmbien donc peut-il y avoir de commentaire sur une feuille dans ton utilisation.

Peut être qu'une sauvegarde sur une feuille cachée associée dans la même cellule pourrait être la solution .
Peut _on avoir une feuille dédiée , ça c'est toi qui vois
Une sauvegarde dans un fichier text nommé comme la cellule : Ex : de nom fichier "Com_Feuil1_a3.log" et écrit en mode ajout
Dans ce cas , il faut prévoir un dossier pour cette sauvegarde.
Je pense également que la saisie directe dans le commentaire, n'ai pas le top,
il faudrait passer par un formulaire , qui pourrait d'ailleur servir de loupe , et donner une certaine rigueur de saisie.

Voilà , juste pour la réfléxion , bien que tous ce qui est cité au dessus est réalisable. mais tu le devine ce confort s'il n'est pas bien pensé au départ deviens vite une usine à Gaz.
En tout cas , tu viens de me donner une idée qu'il va falloir que je test c'est sur .

Dis nous si une de ces hypothèses tiens la route ou si c'est trop. De plus , je ne suis pas sur que des commentaires de 3 metres de haut soit trés efficaces et très lisibles , avec un formulaire tu peux en plus de la sécurité apporter du confort de lecture et par exemple afficher portion par portion le commentaire en forçant d'ailleurs au moment de la saisie l'horodatage.

Bon , j'arrête là , guides nous car pour le moment , le seul décisionnaire ne peut être que toi.
 
Vote positif 0 Vote négatif
Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonjour

je pens que cela marche MAIS il faut que tu réessaies en

1/ déprotégeant ta feuille
2/ sélectionnant les cellules dans lesquelles l'utilisateur pourra écrire
3/ propriété cellule protection et tu décoches verrouiller

4/ tu reprotèges et tu essaies
 

Pièces jointes

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

Discussions similaires

O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
1 K
Olihoes
O
M
  • Question Question
XL 2010 Macro pour modifier les params d'impression ?
2 3
Réponses
40
Affichages
4 K
ManuXZ
M
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
124
patricktoulon
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
616
ali591
A
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
155
Lu76Fer
W
  • Question Question
XL 2016 Supprimer une image.JPG puis Intégrer une nouvelle.JPG au-dessus du groupe de cellules A13:A14
Réponses
4
Affichages
578
Webperegrino
W
  • Résolu(e)
XL 2010 Déplacer liste tri validation de données
Réponses
10
Affichages
685
Orson83
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
9 K
TooFatBoy
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
577
un internaute
U
M
  • Résolu(e)
Microsoft 365 [Résolu] Macro extraction de dates
Réponses
6
Affichages
1 K
maxime45
M
O
  • Question Question
XL 2016 Problématique écritures comptables - formule Excel et Macro VBA simple
Réponses
9
Affichages
1 K
fanfan38
L
  • Question Question
XL 2016 Comment faire une liste sans doublons de plusieurs colonnes avec des contenus doublonnés sur différentes lignes SANS TCD
Réponses
10
Affichages
1 K
chris
C
  • Question Question
XL 2010 grâce à une userform modifier une ligne dans deux feuilles
Réponses
3
Affichages
898
ccia
C
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
910
Lu76Fer
B
  • Résolu(e)
XL 2019 Appliquer une macro à plusieurs fichiers d'un dossier - Débogage ?
Réponses
9
Affichages
1 K
Bastien43
B
  • Résolu(e)
XL 2019 Copier une ligne en fonction d'une de la valeur d'une cellule dans une autre feuille.
Réponses
6
Affichages
1 K
Zhavina
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
W
  • Résolu(e)
Microsoft 365 Insertion Image dans une Feuille et Ratio conservé
2
Réponses
23
Affichages
4 K
patricktoulon
F
  • Question Question
XL pour MAC MACRO POUR AFFICHER LE DETAIL D'UN TCD à PARTIR D'UNE CELLULE
Réponses
4
Affichages
2 K
florestan75
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…