VBA verrouillage ligne en fonction de la valeur d'une cellule de celle-ci
maipouri973
Messages postés
4
Statut
Membre
-
maipouri973 Messages postés 4 Statut Membre -
maipouri973 Messages postés 4 Statut Membre -
Bonjour,
Je cherche en VBA à verrouiller une ligne si la case A de celle-ci est vide, et ce valable pour chaque ligne de la feuille.
Merci merci de votre aide.
Je cherche en VBA à verrouiller une ligne si la case A de celle-ci est vide, et ce valable pour chaque ligne de la feuille.
Merci merci de votre aide.
A voir également:
- VBA verrouillage ligne en fonction de la valeur d'une cellule de celle-ci
- Partage de photos en ligne - Guide
- Code de verrouillage oublié - Guide
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Formulaire en ligne de meta - Guide
3 réponses
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
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.