Bonjour,

Je cherche une solution pour le problème suivant, j’ai une feuille protégée avec des cellules verrouillées. Pour permettre la modification d’une cellule j’utilise sur la feuille concernée l’action Worksheet_BeforeDoubleClick. Ceci fonctionne parfaitement, mais j’ai quand-même le message :
« La cellule est protégée …. »

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim Texte As String
 
Dim F_Trait As Object
Dim F_Trait2 As Object
Dim F_Trait3 As Object
 
Set F_Trait = ThisWorkbook.Sheets("Identification")
Set F_Trait2 = ThisWorkbook.Sheets("Presentation_Identification")
Set F_Trait3 = ThisWorkbook.Sheets("Traitement")
 
 
Application.DisplayAlerts = False
 
 
 
' si position autre que colonne 2 : sortie
 
If Target.Column <> 2 Then Exit Sub
 
 
Des_protection_Feuille F_Trait2
 
Select Case Target.Row
 
       Case Is = 6
 
                  Texte = InputBox("Nouvelle adresse email (max 50c)", "Saisie")
 
                  Verification_longeur Texte, 50
 
                  F_Trait.Range("email_tiers").Value = Texte
 
'......
'..... Suite du code
'
 
 
 
Protection_Feuille F_Trait2
 
 
Application.DisplayAlerts = False
 
end sub
Ce n’est pas bloquant mais simplement ennuyant.