Discussion :

[ToFind]

Bonjour à toutes et tous,

Dans le cadre d'un agenda dont la ligne 3 contient les jours, je voudrais verrouiller les cellules 5 à 18 des colonnes qui contiendraient en ligne 3 les termes "sam" et "dim" et ce de manière automatique sans intervention de l'utilisateur.
Avez-vous une idée?
Merci de votre intérêt et de vos réponses.

Guy.

[jfontaine]

Salut,

Une possibilité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim i As Integer
 
Me.Unprotect
 
For i = 2 To 20
 
 
    Select Case Me.Cells(3, i).Value
        Case "sam", "dim"
            Me.Range(Me.Cells(5, i).Address & ":" & Me.Cells(18, i).Address).Locked = True
        Case Else
            Me.Range(Me.Cells(5, i).Address & ":" & Me.Cells(18, i).Address).Locked = False
    End Select
 
 
Next i
 
 
Me.Protect

[ToFind]

Bonsoir,
Merci de cette réponse.
Dois-je bien mettre ce code dans un Module ou dans ThisWorkBook?
D'autre part, je reçois un message d'erreur de compilation me disant "Utilisation incorrecte du mot clé Me".
Qu'en penses-tu?

[SfJ5Rpw8]

Bonsoir,

Ce code doit être mis dans la page de code associé à ta feuille excel , Mereprésente ta feuille à ce moment la ...