Verrouiller quelques lignes d'une colonne
Résolu
GenTou
Messages postés
1
Statut
Membre
-
GenTou -
GenTou -
bonjour, et merci d'avance pour votre aide.
je cherche a verrouiller une partie de ma colonne et je n'y arrive pas merci pour votre aide.
voici ma formule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'verrouille les cellules spécifiées sans protéger la totalité de la feuille de calcul
If Target.Column = 11 Then
If Target.range (cells(11,6), cells(11,32)) = Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End Sub
je voudrais verrouiller la colonne 11 de la ligne 6 à la ligne 32
merci beaucoup pour votre aide
je cherche a verrouiller une partie de ma colonne et je n'y arrive pas merci pour votre aide.
voici ma formule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'verrouille les cellules spécifiées sans protéger la totalité de la feuille de calcul
If Target.Column = 11 Then
If Target.range (cells(11,6), cells(11,32)) = Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End Sub
je voudrais verrouiller la colonne 11 de la ligne 6 à la ligne 32
merci beaucoup pour votre aide
A voir également:
- Verrouiller quelques lignes d'une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Verrouiller colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
2 réponses
bonjour
j'ai trouvé une autre formule mais elle ne me protège pas toutes les lignes entre la 6 et la 32 et la idem pour la colonne 12.
'verrouille les cellules spécifiées sans protéger la totalité de la feuille de calcul
If Target.Column = 11 Then
If Target.Row = 6 Or Target.Row = 32 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 2).Select
End If
End If
End Sub
merci pour votre aide
j'ai trouvé une autre formule mais elle ne me protège pas toutes les lignes entre la 6 et la 32 et la idem pour la colonne 12.
'verrouille les cellules spécifiées sans protéger la totalité de la feuille de calcul
If Target.Column = 11 Then
If Target.Row = 6 Or Target.Row = 32 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 2).Select
End If
End If
End Sub
merci pour votre aide
bonne journée