Discussion :

[EJO64]

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.

[zenpbb]

Bonjour,

Essaie de rajouter

Code :

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

Cancel = True

où tu veux dans ta procédure.

[EJO64]

Merci !! cela fonctionne bien

Pour les personnes intéressées

expression .BeforeDoubleClick(Target, Cancel)

Cancel : Required Boolean

False when the event occurs. If the event procedure sets this argument to True, the default double-click action isn't performed when the procedure is finished.