[RESOLU]Plus de "insérer un commentaire" après la macro
Plus de "insérer un commentaire" après la macro [RESOLU] - VB/VBA/VBS - Programmation
Marsh Posté le 27-04-2010 à 16:46:50
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 édité par seniorpapou le 27-04-2010 à 16:52:13
Marsh Posté le 27-04-2010 à 17:02:50
| seniorpapou a écrit : Bonsoir, |
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...
Marsh Posté le 27-04-2010 à 17:58:36
| seniorpapou a écrit : DrawingObjects:=False |
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]](https://forum-images.hardware.fr/images/perso/cerveau petrus.gif "[:cerveau petrus]")
---------------
Mariella << >> Pete Doherty, si tu m'vois...
Marsh Posté le 27-04-2010 à 19:30:15
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
Marsh Posté le 27-04-2010 à 19:39:50
| seniorpapou a écrit : Bonsoir, |
en fait j'avais essayé avec cette syntaxe et là je viens de le refaire mais ça marche pas 
- 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 
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 
edit : apparemment je viens de réussir, en écrivant ça, c'est à dire en inversant les 2 dernières parties
| Citation : With ActiveSheet |
Message édité par Sooshi le 27-04-2010 à 19:51:34
---------------
Mariella << >> Pete Doherty, si tu m'vois...
Marsh Posté le 27-04-2010 à 19:56:00
Je crois vraiment que ça marche 
, 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...
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
Marsh Posté le 26-04-2010 à 17:45:12
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
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...