Suppression message d'alerte avec BeforeDoubleClick
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:
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.
