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

permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion arvin
  • 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

arvin

XLDnaute Occasionnel
bonjour à tous,

j'utilise cette macro pour permuter le contenu de 2 cellules : c'est très pratique cela évite de faire des copier-coller
mais , j'ai bloqué l'accès à 4 cellules (par outils, protection, mot de passe)
le souci c'est que, bien sur, la macro permutation ne fonctionne plus ou alors il faut que je désactive la protection, mais si je fais cela alors mes 4 cellules ne sont plus bloquées.....

que faire ?

voici la macro permutation :

Sub PermuteCells()
With Selection
If .Areas.Count <> 2 Or .Cells.Count <> 2 Then Exit Sub
x = .Areas(1): .Areas(1) = .Areas(2): .Areas(2) = x
Selection.Font.ColorIndex = 1
End With
Selection.Interior.ColorIndex = xlNone
End Sub
 
Trier par date Trier par votes
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

Bonjour arvin,

Protèges ta feuille avec un code VBA, en ajoutant UserInterfaceOnly:=True
Cela signifie que l'utilisateur n'a pas le droit de modifier les cellules protégées mais que le code VBA en a le droit

Exemple :

Code: 
Activesheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto", UserInterfaceOnly:=True
 
Vote positif 0 Vote négatif
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

bonjour et merci pour la réponse : j'ai donc placé le code ainsi mais je peux maintenant permuter le contenu dans les 4 cellules interdites : y a t il un moyen pour interdire leur accès ? je trouve pas

Sub PermuteCells()
Activesheet.unProtect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto", UserInterfaceOnly:=True
With Selection
If .Areas.Count <> 2 Or .Cells.Count <> 2 Then Exit Sub
x = .Areas(1): .Areas(1) = .Areas(2): .Areas(2) = x
Selection.Font.ColorIndex = 1
End With
Selection.Interior.ColorIndex = xlNone
Activesheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto", UserInterfaceOnly:=True
End Sub
 
Vote positif 0 Vote négatif
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

Bonjour arvin,

Une fois au tu as protégé ta feuille avec UserInterfaceOnly, tu n'as plus besoin de la déprotéger
Le code VBA aura le droit de la modifier comme si elle n'était pas protégée

tu pourras par exemple exécuter ce code à l'ouverture du classeur (Workbook_Open) mais tu n'as plus besoin des Unprotect
Pour les interdictions d'accès, ça dépend si les cellules dont on permute la valeur sont verrouillées ou pas (Format-Cellule, Onglet Protection)
Un petit bout de fichier exemple avec les cas qui ne fonctionnent pas m'aiderait bien à te répondre plus précisément
 
Vote positif 0 Vote négatif
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

bonjour et merci de m'aider : j'enrage car je trouve pas
je t'envoie un bout du fichier
pour utiliser la macro permutation : il faut clic sur une cellule -> en laissant la touche "ctrl" appuyée -> clic sur la 2e cellule -> et appuyer sur la touche "p"
cela fonctionne partout mais je ne veux pas que cela fonctionne sur les cellules que j'ai placées en rouge
j'ai pourtant protéger la feuille + classeur (mot de passe = toto), et verrouillée les cellules rouges....
mais la permutation fonctionne sur ces cellules rouges
comprends pas
 

Pièces jointes

Vote positif 0 Vote négatif
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

Re,

Donc si j'ai bien compris, tu veux que ça fonctionne sauf si une des cellules sélectionnée est verrouillée ?

Code: 
Sub PermuteCells()
  With Selection
    If .Areas.Count <> 2 Or .Cells.Count <> 2 Then Exit Sub
if .Areas(1).locked or .Areas(2).locked then Exit Sub
    x = .Areas(1): .Areas(1) = .Areas(2): .Areas(2) = x
    Selection.Font.ColorIndex = 1
      End With
   Selection.Interior.ColorIndex = xlNone
End Sub

Sinon, une remarque : tu savais que Ctrl+P est le raccourcis pour imprimer dans Excel (et ailleurs), par défaut ?
 
Vote positif 0 Vote négatif
Re : permuter le contenu de 2 cellules mais bloquer l'accès sur 4 cellules

ah oui super !
c'est pas grave si ctrl + p permet d'imprimer , tant que cela bloque la macro, qu'en penses tu ?
en tout cas génial c'est cela que je voulais !!!!
waouh !
je le copie dans mon classeur et te tiens au courant
 
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

F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
851
Zon
Z
T
  • Question Question
XL 2019 VBA: Effacer le contenu de plages de cellules avec critères
Réponses
5
Affichages
2 K
tiitii60
T
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
949
Robert
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
2 K
Yoyo01000
  • Question Question
XL 2019 Insérer le contenu copié au dessus de la ligne sélectionnée
Réponses
10
Affichages
2 K
GALOUGALOU
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
M
  • Question Question
Ameliorer le temps d'execution d'une macro
Réponses
6
Affichages
2 K
M@rion
M
V
  • Question Question
Comparer le contenu de 2 plages de cellules
Réponses
5
Affichages
1 K
pierrejean
T
  • Question Question
Comparer 2 feuilles et copier une cellule de feuille 2 à feuille1, si égalité de réf.
Réponses
1
Affichages
3 K
Toine45
T
N
  • Question Question
double clique sur 1 celllule change la couleur de plusieurs cellules
Réponses
4
Affichages
2 K
noon
N
  • Question Question
VBA - Windows ("x.csv").Activate / "x" var - aller sur le SEUL.csv ouvert
Réponses
3
Affichages
2 K
zebanx
J
  • Question Question
If sur le contenu d'un range + Incompatibilité de type
Réponses
1
Affichages
1 K
job75
K
  • Question Question
Bar de progression
2
Réponses
22
Affichages
5 K
Paf
A
  • Question Question
Récupération de 4 cellules sur X fichiers xls
Réponses
1
Affichages
37 K
anthooooony
A
E
  • Question Question
Copie de cellules sur chaques feuilles du classeur
Réponses
10
Affichages
1 K
excelman
E
C
  • Question Question
Macro interactive pour Copie de cellule
2
Réponses
16
Affichages
2 K
Chri8Ed
C
N
  • Question Question
Gestion données sources d'un graphique par le biais de variables
Réponses
7
Affichages
7 K
Nairolf
N
  • Question Question
Vider un module sans le supprimer, puis recréer du VBA dans ce module-là précisément
Réponses
5
Affichages
3 K
EtienneChouard
D
  • Question Question
VBA - Rechercher une valeur pour changer le contenu des cellules de la ligne
Réponses
7
Affichages
13 K
desinformations
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…