VBA verrouillage ligne en fonction de la valeur d'une cellule de celle-ci
Fermé
maipouri973
Messages postés
4
Date d'inscription
mardi 23 juillet 2019
Statut
Membre
Dernière intervention
24 juillet 2019
-
23 juil. 2019 à 16:15
maipouri973 Messages postés 4 Date d'inscription mardi 23 juillet 2019 Statut Membre Dernière intervention 24 juillet 2019 - 24 juil. 2019 à 19:13
maipouri973 Messages postés 4 Date d'inscription mardi 23 juillet 2019 Statut Membre Dernière intervention 24 juillet 2019 - 24 juil. 2019 à 19:13
A voir également:
- VBA verrouillage ligne en fonction de la valeur d'une cellule de celle-ci
- Aller à la ligne dans une cellule excel - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Fonction si et - Guide
- Code de verrouillage oublié - Guide
3 réponses
yclik
Messages postés
3599
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
1 mai 2024
1 482
23 juil. 2019 à 16:25
23 juil. 2019 à 16:25
Bonjour
il y a peut être une solution avec une mise en forme conditionnelle et deux styles de cellules (verrouillée et non verrouillée)
il y a peut être une solution avec une mise en forme conditionnelle et deux styles de cellules (verrouillée et non verrouillée)
Bonjour,
Il faut tout d'abord protéger la feuille.
Après avoir sélectionné la feuille entière, verrouiller toutes les cellules (clic droit, Format de cellule > Protection > cocher "Verrouillée").
Sélectionner la colonne A, puis dévérrouiller ces cellules (clic droit, Format de cellule > Protection > décocher "Verrouillée").
Onglet Révision > Protéger > Protéger la feuille (Autoriser les utilisateurs à sélectionner les cellules déverrouillées).
Placer la procédure suivante dans le module de la Feuille :
Cordialement
Il faut tout d'abord protéger la feuille.
Après avoir sélectionné la feuille entière, verrouiller toutes les cellules (clic droit, Format de cellule > Protection > cocher "Verrouillée").
Sélectionner la colonne A, puis dévérrouiller ces cellules (clic droit, Format de cellule > Protection > décocher "Verrouillée").
Onglet Révision > Protéger > Protéger la feuille (Autoriser les utilisateurs à sélectionner les cellules déverrouillées).
Placer la procédure suivante dans le module de la Feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Columns("A"), Target) Is Nothing Then
ActiveSheet.Unprotect
If Target = "" Then
ActiveSheet.Range("B" & Target.Row).Resize(, Columns.Count - 1).Locked = True
Else
ActiveSheet.Range("B" & Target.Row).Resize(, Columns.Count - 1).Locked = False
End If
ActiveSheet.Protect
End If
End Sub
Cordialement
maipouri973
Messages postés
4
Date d'inscription
mardi 23 juillet 2019
Statut
Membre
Dernière intervention
24 juillet 2019
23 juil. 2019 à 20:24
23 juil. 2019 à 20:24
Gyrus,
Avec cette procédure, j'ai le message d'erreur suivant :
"La cellule ou le graphique est protégé et en lecture seule" et on me demande d'ôter la protection.
Merci de ton aide.
Avec cette procédure, j'ai le message d'erreur suivant :
"La cellule ou le graphique est protégé et en lecture seule" et on me demande d'ôter la protection.
Merci de ton aide.
Lorsque tu as protégé la feuille, as-tu décoché « Sélectionner les cellules verrouillées » ?
maipouri973
Messages postés
4
Date d'inscription
mardi 23 juillet 2019
Statut
Membre
Dernière intervention
24 juillet 2019
24 juil. 2019 à 19:13
24 juil. 2019 à 19:13
Désolé pour cette réponse tardive. Oui j'ai bien décoché "Sélectionner les cellules verrouillées".
23 juil. 2019 à 16:28
Mais il est impératif d'utiliser du VBA car j'utilise déjà de la validation de données pour certaines cellule de la ligne.