• 📝Note

    Notre forum se distingue de la concurence autant par son accueil courtois que par son riche contenu qu'il présente.
    Si vous avez l'intention de vous inscrire et de rejoindre notre communauté, sachez que le contenu du forum sera invisible pour les membres non présentés (0 posteur) ou non encore approuvés !
    De plus, si votre objectif est de ne pas vous présenter, sachez que votre compte sera supprimé dans les 48 heures suivantes votre inscription afin d'éviter d'encombrer inutilement notre base de données.

    ⚠️Avertissement
    L'utilisation d'un VPN ou d'un Proxy est prohibé lors de votre inscription.
    Le but est de protéger notre communauté d'individus malveillants ou indésirables.
    Toute inscription derrière un Proxy ou VPN sera rejetée en tant que SPAM !

Tutoriel 🔒 Verrouiller des cellules selon leur couleur dans Excel

Sylvain

Administrateur
🌟 Introduction

Excel permet d'appliquer un formatage conditionnel aux cellules, modifiant la couleur du texte ou de l'arrière-plan en fonction de règles définies. Toutefois, si vous souhaitez verrouiller des cellules en fonction de leur couleur, il est nécessaire d'utiliser un script VBA, qui ne dépend pas du formatage conditionnel.


🔍 Prérequis

Assurez-vous que l'onglet Développeur est activé dans Excel pour accéder à l'éditeur VBA.


🛠️ Procédure

🔹 Colorer votre cellule


• Commencez par donner une couleur à votre cellule. Nous utilisons ici le jaune basique, facile à référencer.

• Si vous optez pour une autre couleur, utilisez ce site web pour trouver le code couleur nécessaire.

https://www.w3schools.com/excel/excel_format_colors.php

• Le code couleur que j'utilise pour le jaune est #FFFF00.


🔹 Créer le script VBA

• Dans Excel, activez l'onglet 'Développeur', puis cliquez sur le bouton 'Visual Basic'. Collez le script suivant dans 'Cette feuille de calcul' :

Code:
Sub VerrouillerSelonCouleur()

Dim colorIndex As IntegercolorIndex = 65535 ' Code pour jaune

Dim rng As Range

For Each rng In ActiveSheet.UsedRange.Cells

Dim color As Longcolor = rng.Interior.ColorIndexIf (color = colorIndex) Thenrng.Locked = TrueElserng.Locked = FalseEnd If

Next rng

End Sub

• Remplacez le code couleur 65535 par le code de la couleur que vous utilisez. Le code 65535 représente le jaune.


⚠️ Avertissement

Lorsque vous modifiez les cellules, assurez-vous de sauvegarder votre fichier Excel comme un fichier macro-activé, sinon le script VBA ne sera pas sauvegardé.


💡 Conseils

• Le verrouillage via ce script ne protège pas les cellules par un mot de passe mais empêche les modifications accidentelles. Pour une sécurité accrue, envisagez d'utiliser une protection par mot de passe sur la feuille ou le classeur.


🔗 Références

Support Microsoft - Activer l'onglet Développeur

Learn Microsoft - Introduction au VBA

Answers Microsoft - Formatage conditionnel


🔚 Conclusion

Ce script VBA est une méthode efficace pour verrouiller les cellules en fonction de leur couleur dans Excel, permettant de maintenir l'intégrité des données tout en évitant les modifications non souhaitées.
 
Qui a lu ce fil (Lecteurs totaux : 1)

Un don pour TE

Campagne 2024

Aidez-nous à financer l'hébergement
Objectif
325.00 €
Reçu
158.97 €
Cette collecte de dons se termine dans

Record d'assistance en ligne

Membres: 6 le 9 Apr 2024
Invités: 344 le 29 Mar 2024
Record d'assistance : 344 , le 29 Mar 2024

Visiteurs en ligne

Membres
1
Invités
30
Total
31

Statistiques du forum

Discussions
13 200
Messages
23 214
Membres
429
Dernier inscrit
Patinf
General chit-chat
Aides Utilisateurs
  • Personne ne discute en ce moment.
  • Marcel_By_mtr Marcel_By_mtr:
    @demain. Le MaJ de mai est sortie.
    • ok
    Réactions: Richard
  • Marcel_By_mtr Marcel_By_mtr:
    Bonjour T-E
    • Bonjour
    Réactions: Richard
  • Richard Richard:
    Bon mercredi à tous et toutes,10c et ciel couvert,,prévu de 19c en fin d’après-midi avec peut-être un peu de soleil ☀️,,Bonne journée 😉😉
    • Bonjour
    Réactions: Marcel_By_mtr
  • leane64 leane64:
    bonjour tout le monde
    • Bonjour
    • J'aime
    Réactions: Marcel_By_mtr et Richard
  • Sylvain Sylvain:
    Bonne fin de journée, je prends une pause pour le reste de ma journée.
    • J'aime
    Réactions: Marcel_By_mtr et Richard
  • Marcel_By_mtr Marcel_By_mtr:
    @demain
  • Marcel_By_mtr Marcel_By_mtr:
    Bonjour T-E
    • Bonjour
    Réactions: Richard
  • Marcel_By_mtr Marcel_By_mtr:
    out de 13 à 15h
    • J'aime
    Réactions: Richard
  • Richard Richard:
    Bon jeudi à tous et toutes,,frais ce matin avec 4c,, prévu de 20c en fin d’après-midi mais le soleil 🌞 est là pour la journée,,,début des essais libres en F 1 🏎️à Imola,,Bonne journée 😉😉
    • Bonjour
    Réactions: Marcel_By_mtr
  • leane64 leane64:
    bonsoir les amis :)
    • Bonjour
    Réactions: Marcel_By_mtr
  • Marcel_By_mtr Marcel_By_mtr:
    @demain
  • Marcel_By_mtr Marcel_By_mtr:
    Bonjour T-E, bonne fin de semaine.
    • Bonjour
    Réactions: Richard
  • Richard Richard:
    Bon vendredi à tous et toutes,un beau 10c et ciel gris,prévu de 22c en fin d’après-midi avec de la pluie ☔️,,,Ferrari amène des évolutions sur ses voitures à Imola en espérant un gain de vitesse,ce sera à voir demain pour les qualifications 🏎️ Bonne journée 😉😉
    • Bonjour
    Réactions: Marcel_By_mtr
  • Marcel_By_mtr Marcel_By_mtr:
    @Richard, Samedi qualif et dimanche la course... pas de sprint.
    • J'aime
    Réactions: Richard
  • Richard Richard:
    Ferrari semble dominer aux essaies libres---hâte de voir demain matin
  • Marcel_By_mtr Marcel_By_mtr:
    @Richard, je n'ai pas regardé les essais libres
    • J'aime
    Réactions: Richard
  • Marcel_By_mtr Marcel_By_mtr:
    @demain
  • Marcel_By_mtr Marcel_By_mtr:
    Bonjour T-E, bon week-end
    • Bonjour
    Réactions: Richard
  • Richard Richard:
    Bon samedi à tous et toutes,ciel gris et pluie ☔️ ce matin avec 12c,,prévu de 23c en fin d’après-midi avec apparition du soleil ☀️,,,qualif F1🏎️ ce matin à Imola ,,hier Red Bull semblait avoir de la misère,et Ferrari semblait avoir des ailes,,on verra 🤣🤣..Bonne journée 😉😉
    • Bonjour
    Réactions: Marcel_By_mtr
  • Marcel_By_mtr Marcel_By_mtr:
    Une qualif surprenante qui promet un dimanche de qualité.
    • J'aime
    Réactions: Richard
  • Richard Richard:
    Dommage pour Alonso,il part des puits demain,,Piastri a surpris Norris et Ricciardo à bien fait avec une 9 ieme place ,,Verstappen prouve qu’il maîtrise bien sa monture et Perez en arrache de plus en plus 😉😉,,,la course de demain va être intéressante 🧐
    • Pour accord
    Réactions: Marcel_By_mtr
  • Marcel_By_mtr Marcel_By_mtr:
    @demain
  • Richard Richard:
    Recul de 3 place pour Piastri,,donc,départ à la 5 ieme place ( pour avoir nuit a Magnusson dans son tour rapide) ,Leclair part donc 3 ieme 😉😉
      Richard Richard: Recul de 3 place pour Piastri,,donc,départ à la 5 ieme place ( pour avoir nuit a Magnusson dans...
      Retour
      Haut Bas