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

Verrouiller les cellules jaunes dans planning

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

mgrizzly

Guest
Bonjour,
J'ai créé un planning sous excel où les jour fériés ainsi que les weekend se colorent en jaune.
Pour verrouiller les cellules jaunes j'ai fait ce code en VBA :

Sub Verrouiller() ' verrouiller les cellules de couleur jaune

Dim x As Integer
Dim n As Range

For x = 1 To Worksheets.Count
Sheets(x).Unprotect
For Each n In Worksheets(x).[F4:L34]
If n.Interior.ColorIndex = 6 Then
n.Locked = True
End If
Next
Sheets(x).Protect
Next

End Sub

Mais avec ce code le programme verrouille pas seulement les cellules jaune du mois en cours mais aussi celles qui étaient jaune les mois d'avant où celles qui le seront dans les mois après.
Comment faire pour verrouiller seulement celles du mois en cours.

Merci d'avance pour votre aide.
 
Trier par date Trier par votes
Re : Verrouiller les cellules jaunes dans planning

Bonjour

Essayes ainsi

Code: 
Sub Verrouiller() ' verrouiller les cellules de couleur jaune
Dim x As Integer
For x = 1 To Worksheets.Count
If Sheets(x).Name = StrConv(MonthName(Month(Date)), vbProperCase) Then
Sheets(x).Unprotect
Worksheets(x).[F4:L34].Cells.Locked = _
IIf(Worksheets(x).[F4:L34].Cells.Interior.ColorIndex = 6, True, False)
Sheets(x).Protect
End If
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Verrouiller les cellules jaunes dans planning

Merci de m'avoir répondu aussi vite vbacrumble mais aux lignes :

Worksheets(x).[F4:L34].Cells.Locked = _
If(Worksheets(x).[F4:L34].Cells.Interior.ColorIndex = 6, True, False)

cela marque erreur de compilation, erreur de synthaxe.
 
Vote positif 0 Vote négatif
Re : Verrouiller les cellules jaunes dans planning

Ah oui !!!
Le code ne fait plus d'erreur maitenant mais ça ne change rien : je n'ai pas que les cellules jaunes de verrouillées.
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
824
thunder23
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
713
Jacky67
T
  • Résolu(e)
XL 2019 Verrouiller que si cellules vides
Réponses
4
Affichages
770
Tioneb_h
T
  • Question Question
XL 2019 Lien Hypertexte et Verrouillage Cellule
Réponses
9
Affichages
1 K
fanch55
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
3 K
kiki29
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
861
Chaton77
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
72 K
NONO14
N
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
E
  • Résolu(e)
Microsoft 365 Absences dans Planning
2
Réponses
28
Affichages
2 K
ChTi160
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
605
crocrocro
C
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
J
  • Question Question
XL 2016 Affichage onglets d'un classeur dans la listbox d'un userform
Réponses
2
Affichages
900
jeff2318
J
  • Résolu(e)
XL 2019 Copier d'une feuille à l'autre en ignorant la valeur zéro
Réponses
12
Affichages
981
mapomme
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
  • Question Question
XL 2016 Impossible de protéger cellules Verrouillées
2
Réponses
18
Affichages
2 K
TooFatBoy
  • Question Question
XL 2019 ajuster macro copier/coller
Réponses
7
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…