Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1510 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU]Plus de "insérer un commentaire" après la macro

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[RESOLU]Plus de "insérer un commentaire" après la macro

n°1987725
Sooshi
Posté le 26-04-2010 à 17:45:12  profilanswer
 

Bonjour,
 
Une amie a du créer un tableau Excel qui sera utilisé par des néophytes, et dans ce but elle est passée par une macro pour pouvoir insérer une ligne, et reprendre les valeurs de 2 colonnes de la ligne originelle.
Elle a du également passer par une protection de la feuille.
 
Le souci est qu'après l'éxécution de la macro, il n'y a plus la possibilité d"insérer un commentaire" dans les cellules, et ce sur tout le tableau.
 
Je vous joins la macro, y'a t-il quelque chose à faire pour retrouver la possibilité d'insérer un commentaire ?
 
Merci
 

Citation :


Sub Macro3()
 
With ActiveSheet
        .Protect vbNullString, , , , True
        .Range("A1" ).Copy .Range("A1" )
        .Unprotect vbNullString
End With
Dim R As Integer
R = ActiveCell.Row
Rows(R).Select
Selection.Insert Shift:=xlDown
Range("C" & R + 1).Select
Selection.Copy
Range("C" & R).Select
ActiveSheet.Paste
 
Application.CutCopyMode = False
Range("A" & R + 1).Select
Selection.Copy
Range("A" & R).Select
ActiveSheet.Paste
 
Application.CutCopyMode = False
Range("B" & R + 1).Select
Selection.Copy
Range("B" & R).Select
ActiveSheet.Paste
 
Application.CutCopyMode = False
Range("A" & R).Select
 
With Sheets("Feuil1" )
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
 
 
With ActiveSheet
        .Protect vbNullString, , , , True
        .Range("A1" ).Copy .Range("A1" )
        .Protect vbNullString
End With
 
 
End Sub


Message édité par Sooshi le 28-04-2010 à 19:09:21

---------------
Mariella <<  >> Pete Doherty, si tu m'vois...
mood
Publicité
Posté le 26-04-2010 à 17:45:12  profilanswer
 

n°1988119
seniorpapo​u
Posté le 27-04-2010 à 16:46:50  profilanswer
 

Bonsoir,
 
le  :  .Protect Contents:=True, UserInterfaceOnly:=True  
empêche aussi la saisie des commentaires
Cordialement
 
edit:
ta question était peut-être : comment conserver cette ligne de code et autoriser le insert comment?
dans ce cas je ne sais pas....

Message cité 1 fois
Message édité par seniorpapou le 27-04-2010 à 16:52:13
n°1988129
Sooshi
Posté le 27-04-2010 à 17:02:50  profilanswer
 

seniorpapou a écrit :

Bonsoir,
 
le  :  .Protect Contents:=True, UserInterfaceOnly:=True  
empêche aussi la saisie des commentaires
Cordialement
 
edit:
ta question était peut-être : comment conserver cette ligne de code et autoriser le insert comment?
dans ce cas je ne sais pas....


merci pour cette réponse
 
en effet la question posée est celle à laquelle tu as pensé dans ton edit  
 
en fait pour être plus clair :  
dans excel, lorsqu'on protège la feuille en autorisant la modification des objets, on peut continuer à insérer des commentaires
là, après l'utilisation de la macro, la feuille est protégée mais sans permettre la modification des objets
y a-t-il un paramètre à ajouter quelque part ou une commande moins stricte que le .Protect Contents ?


---------------
Mariella <<  >> Pete Doherty, si tu m'vois...
n°1988131
seniorpapo​u
Posté le 27-04-2010 à 17:05:07  profilanswer
 

DrawingObjects:=False
Cordialement

n°1988159
Sooshi
Posté le 27-04-2010 à 17:58:36  profilanswer
 

seniorpapou a écrit :

DrawingObjects:=False
Cordialement


désolé d'abuser de tes services mais je le mets où ça ?
j'aurais du commencer par dire que j'y connais absolument rien en VB  [:cerveau petrus]


---------------
Mariella <<  >> Pete Doherty, si tu m'vois...
n°1988198
seniorpapo​u
Posté le 27-04-2010 à 19:30:15  profilanswer
 

Bonsoir,
.Protect Contents:=True, UserInterfaceOnly:=True,   DrawingObjects:=False  
 
En fait je me suis contenté d'enregistrer un macro et de lire le vba qui a été généré.
 
Cordialement

n°1988200
Sooshi
Posté le 27-04-2010 à 19:39:50  profilanswer
 

seniorpapou a écrit :

Bonsoir,
.Protect Contents:=True, UserInterfaceOnly:=True,   DrawingObjects:=False  
 
En fait je me suis contenté d'enregistrer un macro et de lire le vba qui a été généré.
 
Cordialement


 
en fait j'avais essayé avec cette syntaxe et là je viens de le refaire mais ça marche pas  :sweat:  - l'option "insérer un commentaire" n'est toujours pas affichée
en tout cas merci pour le temps passé à essayer de résoudre mon problème  :jap:
 
en ajoutant ce que tu m'as indiqué, il y a quand même une différence
à partir de l'application de la macro, j'ai toujours pas "insérer un commentaire", ça c'est clair
parcontre si j'ote la protection de la feuille manuellement et que je la remets, l'option "modifier les objets" est déjà cochée - j'espère que c'est clair  :D
 
edit : apparemment je viens de réussir, en écrivant ça, c'est à dire en inversant les 2 dernières parties
 

Citation :

With ActiveSheet
        .Protect vbNullString, , , , True
        .Range("A1" ).Copy .Range("A1" )
        .Protect vbNullString
End With  
 
With Sheets("Feuil1" )
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False
End With
 


 


Message édité par Sooshi le 27-04-2010 à 19:51:34

---------------
Mariella <<  >> Pete Doherty, si tu m'vois...
n°1988206
Sooshi
Posté le 27-04-2010 à 19:56:00  profilanswer
 

Je crois vraiment que ça marche  :bounce: , je verrais ça demain avec l'amie responsable du tableau pour être sur que c'est bien ce qu'elle voulait obtenir.
Encore merci seniorpapou, je l'indiquerai dans le [RESOLU] si c'est bien OK  ;)


---------------
Mariella <<  >> Pete Doherty, si tu m'vois...

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU]Plus de "insérer un commentaire" après la macro

 

Sujets relatifs
[Résolu][php]récupération de données d'un fichier .txt[VBS] passé d'une macro à ...autoit
Scheme : inserer une image dans un objet.comment inserer authentification dans un site
[Résolu] Bug: le texte est gros aléatoirement...Macro oublie des cellules [Résolu]
LTI-LIB: Problèmes d'installation [Résolu][RESOLU]Accéder méthode ou objet autre Frame
[resolu] Probleme de syntaxe dans un UPDATE 
Plus de sujets relatifs à : [RESOLU]Plus de "insérer un commentaire" après la macro


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR