Discussion :

[PIERRO12345]

Bonjour,
Ci dessous une macro pour protéger une ligne si la colonne 5 du tableau est "V" (fichier joint)

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oList As ListObject
Set oList = Target.ListObject
If Not oList Is Nothing And Target.Count = 1 Then
lig = Target.Row - 4
If oList.Range(lig, 5) = "V" Then
Target.Offset(, -1).Select
End If
End If
Set oList = Nothing
End Sub

Pour approfondir, est il possible qu'il demande un code "1234" par exemple pour modifier la ligne?
Vous comprenez mon idée?
Merci

[riaolle]

Bonjour,

Tu peux passer par une InputBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim oList As ListObject
    Set oList = Target.ListObject
    If Not oList Is Nothing And Target.Count = 1 Then
        lig = Target.Row - 4
        If oList.Range(lig, 5) = "V" Then
            If InputBox("Veuillez entrer le mot de passe pour modifier : ", "Mot de passe") <> "1234" Then Target.Offset(, -1).Select
        End If
    End If
    Set oList = Nothing
End Sub

Là, j'ai fait un exemple rapide pour te montrer le principe. Mais il faudra compléter avec le cas où la personne clique sur "Annuler" dans l'InputBox.

As-tu testé ton code sur plusieurs cellules ? Je m'étonne de la syntaxe Range(lig, 5). La bonne syntaxe est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("E" & lig)
'------------ou-------------
Cells(lig, 5)

De plus, quand j'ai fait un test rapide (sans oList, mais seulement Cells(lig, 5) ), j'avais une erreur quand je sélectionné une cellule sur une ligne <=4, car la condition Cells(lig, 5) = "V" me faisait aller sur une cellule de ligne <0, ce qui n'existe pas.

Je te laisse voir si ça ne pose pas de pb chez toi.

[PIERRO12345]

Bonjour riaolle,
Super,
Je te remercie.