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

Verouiller une plage de cellules

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

ORBAN

XLDnaute Occasionnel
Bonjour à vous tous,
Je voudrais verrouiller des feuilles mais j'ai une colonne (toujours la même) dans laquelle l'utilisateur doit pouvoir renseigner une date.
Or quant je verrouille impossible d'écrire dans la cellule "date".
Comment faire ?😕
toutes les autres colonnes doivent être verrouillées (il y des menus déroulant, donc pas de problème)
Merci d'avance.
PS: Porcinet82, crois tu que le vérouillage influenceras ton code ?(c'est toujours le même tableau)
 
Trier par date Trier par votes
Re : Verouiller une plage de cellules

Bonjour Orban,


Je vois 2 options :
Faire un clique droit sur les cellule où l'on doit mettre les dates, Format de cellule, onglet protection decocher Vérouillé avant de mettre une protection (menu outils)

2eme option, que je prefere : Selectionner la plage concernée puis aller dans le menu Données, validation.
Selectionner date dans le menu Autoriser


XanorK
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Bonjour à tous et merci Xanork,
j'ai essayé ta proposition mais j'ai un bug qui me dit:
"Erreur d'exécution 1004. Impossible de définir la propriété Bold de la classe Font" y compris quant j'utilise le menu déroulant des autres cellules.
Le problème est identique avec la feuille entièrement verrouillée ou partiellement😕
Que faire ?
Mais que fait la police ???😡
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Bonjour nat54 et merci,
Mais mon probléme est toujours le même!
Porcinet 82 m'as envoyé un code qui marche super bien, mais dés que je vérouille tout ou partie de ma feuille, je plante!😡
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Re bonjour à tous,
je n'arrives pas à régler mon probléme de verrouillage de céllules.
Je met ci dessous le code, et en italique la ligne qui "plante":

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k&, j&, x%, cel$

If Not Intersect(Target, Range("B7:k" & Range("A65536").End(xlUp).Row)) Is Nothing Then
For j = 11 To 23
cel = cel & Cells(Target.Row, j).Value
Next j
With Cells(Target.Row, 1)
.Font.ColorIndex = 1
.Font.Bold = fasle
.Value = cel
End With
End If
j = 1
For k = 11 To 21
If Not Cells(Target.Row, k).Value = "" Then
With Cells(Target.Row, 1).Characters(Start:=j, Length:=1).Font
.Color = vbRed
.Bold = True
End With
j = j + 3
End If
Next k
If Not Cells(Target.Row, 22).Value = "" Then
With Cells(Target.Row, 1).Characters(Start:=InStr(1, Cells(Target.Row, 1), "/") - 3, Length:=1).Font
.Color = vbRed
.Bold = True
End With
End If
End Sub

PS: Porcinet m'a proposé de faire une macro mais j'ai otujours le même probléme.😡
HELP!!!😕
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Bonsoir a tous,

Orban, peux-tu mettre en pièces jointes un exemple de ton fichier avec tes colonnes protégées ainqi que le code que je t'ai proposé car je ne vois pas trop pourquoi le code merdouille sur la mise en gras du texte, a part si tu n'as pas deverouillé la feuille (ou la colonne A) avant de lancer la macro.

@+
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Bonjour à vous tous, Bonjour au Forum
Bonjour Romain.
Ca n'as rien à voir avec le fil, mais ce matin il pleut très fort sur Dakar, alors j'espère qu'il y aura du soleil sur le forum 😎
Ceci dit et pour répondre à la demande de Porcinet82, je joins un exemple de feuille qui me pose problème.
PS: toutes les autres feuilles sont bâties sur le même modèle.
merci d'avance de votre contribution 🙂
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

Salut Orban, le fil,

Voila ce a quoi doit ressembler ta macro (a mettre bien evidement dans le module de la feuille concernée) :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k&, j&, x%, cel$
 
[COLOR=blue][B]ActiveSheet.Unprotect[/B][/COLOR]
If Not Intersect(Target, Range("B7:k" & Range("A65536").End(xlUp).Row)) Is Nothing Then
    For j = 11 To 23
        cel = cel & Cells(Target.Row, j).Value
    Next j
    With Cells(Target.Row, 1)
        .Font.ColorIndex = 1
        .Font.Bold = fasle
        .Value = cel
    End With
End If
j = 1
For k = 11 To 21
    If Not Cells(Target.Row, k).Value = "" Then
        With Cells(Target.Row, 1).Characters(Start:=j, Length:=1).Font
            .Color = vbRed
            .Bold = True
        End With
        j = j + 3
    End If
Next k
If Not Cells(Target.Row, 22).Value = "" Then
    With Cells(Target.Row, 1).Characters(Start:=InStr(1, Cells(Target.Row, 1), "/") - 3, Length:=1).Font
        .Color = vbRed
        .Bold = True
    End With
End If
[B][COLOR=blue]With Range("A1:H70")
    .Locked = True
    .FormulaHidden = False
End With[/COLOR][/B]
End Sub

Le code en début de macro permet de déverrouiller la feuille afin que la macro puisse s'executer sans problème. Le code de la fin est censé revérouiller les éléments de la feuille que tu as choisis. Je n'ai pas vérifié a quoi cela correspondait, mais je te fais confiance.

@+

PS : Chez moi la macro fonctionne de cette manière, mais la feuille n'as pas l'air d'etre verouiller 😕
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

J'ai suivis tes indications mais je ne comprend pas:
a mettre bien evidement dans le module de la feuille concernée
Je croyais, mécréant que je suis, qu'un module était lié à un classeur et non à une feuille particuliére ?
Comment savoir quel module est attribué à telle feuille?
En fai t j'ai 13 feuilles, mais je ne vois que 3 modules ???😕
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

re,

Tu as 2 genres de modules différents, les modules standards qui sont par défaut nommés Module1, Module 2... et qui se trouvent dans le dossier Modules, et les modules de feuilles présents dans Microsoft Excel Objets et qui correspondent au code applicable a une la feuille concernée lorsqu'il s'agit de macro évenementielle.
C'est à dire que si tu as 13 feuilles, et que tu veux que la macro s'execute sur 5 d'entre elles, tu dois copier le code sur le module de ces 5 feuilles.

Pour voir le module d'une feuille, tu peux egalement faire click droit sur l'onglet de cette feuille, puis prendre Visualiser le code.

@+
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

désolé encore moi,
mais je n'y arrives pas 😡 😡
Voici le code tel qu'il est dans le module de la feuille.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k&, j&, x%, cel$
ActiveSheet.Unprotect
If Not Intersect(Target, Range("B7:k" & Range("A65536").End(xlUp).Row)) Is Nothing Then
For j = 10 To 23
cel = cel & Cells(Target.Row, j).Value
Next j
With Cells(Target.Row, 1)
.Font.ColorIndex = 1
.Font.Bold = fasle
.Value = cel
End With
End If
j = 1
For k = 10 To 21
If Not Cells(Target.Row, k).Value = "" Then
With Cells(Target.Row, 1).Characters(Start:=j, Length:=1).Font
.Color = vbRed
.Bold = True
End With
j = j + 3
End If
Next k
If Not Cells(Target.Row, 22).Value = "" Then
With Cells(Target.Row, 1).Characters(Start:=InStr(1, Cells(Target.Row, 1), "/") - 3, Length:=1).Font
.Color = vbRed
.Bold = True
End With
End If
With Range("A1:H67").Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollRow = 1
Range("A1:H67,J1:W67").Select
Range("J1").Activate
Selection.Locked = True
Selection.FormulaHidden = False
End With
End Sub
Ou dois-je mettre le nom de la macto ? en l'occurence "Sub Verrouillage()"
merci de votre aide
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

re,

Tu n'as pas lu ce que je t'ai ecrit dans mon post de 12h45 ???
En fait j'ai inclus le code de ta macro Verrouillage au sein de la macro que je t'ai proposé, il s'agit des lignes de code en bleues dans mon post de 12h45.

@+
 
Vote positif 0 Vote négatif
Re : Verouiller une plage de cellules

A Romain, et à vous tous
j'ai bien copié ton code dans le module de la feuille, et il y a un module 1 qui c'est fait au moment ou j'ai construit la macro.
Quant je protége la feuille puis fait la macro j'ai le méssage suivant:
"Impossible de définit Locked de la classe renge"
Quant je fais la macro puis verrouille la feuille j'ai le même probléme avec Font ???😕
JE vais fumer une cigarette pour décomprésser.
Merci de votre aide
 
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

P
  • Résolu(e)
XL 2021 Comparaison de cellules avec une autre plage de celllules
Réponses
14
Affichages
821
job75
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
  • Question Question
XL 2010 Sélectionner une plage de cellules à partir d'une cellule nommée
Réponses
4
Affichages
927
Efgé
S
  • Question Question
XL 2019 Recherche d'une date dans une plage de cellules
Réponses
12
Affichages
1 K
Jacky67
C
  • Question Question
XL pour MAC Export en pdf d'une plage de cellule, avec nom de fichier dans une cellule
Réponses
10
Affichages
2 K
Phil69970
R
  • Question Question
XL 2019 Transfert d'une plage de cellules pour les insérées dans un autre fichier
Réponses
1
Affichages
945
Fred0o
D
  • Résolu(e)
Microsoft 365 Autoriser la modification de la couleur de cellules protégées par plage (et utilisateurs)
2
Réponses
16
Affichages
7 K
Delsam
D
O
  • Question Question
XL 2013 Modifier une base de donnée depuis un formulaire USF
Réponses
8
Affichages
2 K
Dranreb
C
  • Résolu(e)
XL 2019 Copier une plage de cellules en paramétré VBA
Réponses
5
Affichages
5 K
Staple1600
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
W
  • Question Question
Microsoft 365 Copier Feuille Macro en effaçant une plage de cellules
Réponses
6
Affichages
899
sousou
R
  • Question Question
VBA ; recherche de valeurs mini sur une plage de façon dynamique
2 3
Réponses
30
Affichages
5 K
Raka
R
S
  • Question Question
Microsoft 365 Copier depuis plusieurs pages d'un fichier une plage de colonnes entre deux cellules comportant un texte particulier
2 3
Réponses
37
Affichages
5 K
softy69
S
F
  • Question Question
XL 2013 Rendre impossible la saisie de doublons dans un formulaire
Réponses
9
Affichages
2 K
jcf6464
K
  • Question Question
XL 2016 nommer et effectuer un calcul sur une plage de cellules dynamiquement
2
Réponses
17
Affichages
3 K
frangy
F
E
  • Question Question
Rechercher plusieurs valeurs dans une plage de cellules
2
Réponses
15
Affichages
8 K
job75
H
  • Question Question
Nommer ou renommer une plage de cellule par une cellule
Réponses
7
Affichages
2 K
hellboy02
H
  • Question Question
Remonter une valeur ALPHA d'une plage en fonction de 2 critères
Réponses
2
Affichages
986
job75
L
  • Question Question
Colonne variable dans fonction SOMME.SI
Réponses
3
Affichages
18 K
Laurent_67
L
K
  • Question Question
XL 2016 Validations differentes pour une meme plage de cellules
Réponses
3
Affichages
752
ksimat
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…