MODIFIER UNE PETITE MACRO (origine Boisgontier)

[urbanito1]

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

 

[urbanito1]

Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

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

bonjour le forum

quelqu'un a-t-il une idée?
peut-être ais-je mal exprimé mon problème?
merci
urbanito

 

[ERIC S]

Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Bonjour

à part jouer avec la protection

dans thisworkbook

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

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

 

[camarchepas]

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 .

 

[camarchepas]

Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

Re moi ,

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

Raison = InputBox("Motif à afficher", "Veuillez saisir le ", "")
If IIf(HrEquipiers = 0, True, False) Then
Déprotege "OngletActif" 'Sous routine permettant de déprotéger
ActiveCell = CInt(HrEquipiers)
Lieu = Split(AdresseZone(ActiveCell.Offset(-1, 0), 0), ":")(0)
If Not Range(Lieu).Comment Is Nothing Then Range(Lieu).Comment.Delete
Range(Lieu).AddComment Raison
Range(Lieu).Comment.Shape.TextFrame.AutoSize = True
Range(Lieu).Comment.Visible = True
Protege "OngletActif" 'sous routine permettant de protéger
End If

 

[urbanito1]

Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

bien le bonjour le forum
Eric
Camarchepas

merci
j'essaie ce soir

je vous tiens au courant
urbanito1

 

[urbanito1]

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

 

[camarchepas]

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.

 

[ERIC S]

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

 

[urbanito1]

Re : MODIFIER UNE PETITE MACRO (origine Boisgontier)

hello bonjour
Eric
Camarchepas
ñerci por lrs comentaires
suis pas un expert, je teste et reviens vers vous
ñmerci
bon dimanche