[XL-2007] Code macro non fonctionnel lorsque feuille protégée

[capi81]

Salut le forum

Merci de me donner un coup de main avec le code macro ci-dessous.
En effet, lorsque je protège la feuille, la macro ne fonctionne pas totalement bien.
Tout fonctionne bien sauf le code macro qui permet de transformer les valeurs de certaines cellule en format date.
Y'a t-il possibilité de rendre le code moin lourd afin qu'il puisse bien fonctionner?

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim outdNumberFormat As String
Dim ValSaisie
Dim P As Integer
 
On Error GoTo fin
 
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B18,B22,B23,B38,B47"), Target) Is Nothing Then
    outdNumberFormat = Target.NumberFormat ' Récupère l'ancien format de cellule
    Target.NumberFormat = "@" ' Force en standart
    If IsNumeric(Target) = True Then ' Si c'est un nombre
      If (Len(Target) = 7 Or Len(Target) = 8) Then ' Longueur 7 ou 8 caractères
        If IsDate(Left(Target, Len(Target) - 6) & "/" & Mid(Target, Len(Target) - 5, 2) & "/" & Right(Target, 4)) Then
          ' Vérifie si une fois transformé on obtient une date
          Application.EnableEvents = False
          With Target
            .Value = Left(Target, Len(Target) - 6) & "/" & Mid(Target, Len(Target) - 5, 2) & "/" & Right(Target, 4)
            .NumberFormat = "m/d/yyyy"
          End With
          Application.EnableEvents = True
        Else
          ' On n'obtient pas de date donc on remet le format de cellule d'origine
          Target.NumberFormat = outdNumberFormat
        End If
      Else
        ' La longueur n'est ni 7 ni 8 donc on remet le format de cellule d'origine
        Target.NumberFormat = outdNumberFormat
      End If
    Else
      ' Ce n'est pas un nombre donc on remet le format de cellule d'origine
      Target.NumberFormat = outdNumberFormat
    End If
  ElseIf Not Intersect(Range("B11,B30"), Target) Is Nothing Then
    Application.EnableEvents = False
    ValSaisie = Target
    Application.Undo
    P = InStr(Target, ValSaisie)
    If P > 0 Then
      Target = Left(Target, P - 1) & Mid(Target, P + Len(ValSaisie) + 1)
      If Right(Target, 1) = ":" Then
        Target = Left(Target, Len(Target) - 1)
      End If
    Else
      If Target = "" Then
        Target = ValSaisie
      Else
        Target = Target & ":" & ValSaisie
      End If
    End If
    Application.EnableEvents = True
ElseIf Range("B4").Value = "CH PARTICULIER" Then
    If Target.Address = "$B$5" And Target.Value <> "" Then
    Range("B7").Select
    ElseIf Target.Address = "$B$31" And Target.Value <> "" Then
    Range("B33").Select
    ElseIf Target.Address = "$B$37" And Target.Value <> "" Then
    Range("B39").Select
    ElseIf Target.Address = "$B$39" And Target.Value <> "" Then
    Range("B42").Select
        ElseIf Target.Address = "$B$42" And Target.Value <> "" Then
    Range("B44").Select
    ElseIf Target.Address = "$B$44" And Target.Value <> "" Then
    Range("B48").Select
    ElseIf Target.Address = "$B$48" And Target.Value <> "" Then
    Range("B49").Select
    Call Macro10
    'Range("E3").Select
    Range("E3").Select
    Else: GoTo fin
    End If
Else: GoTo fin
  End If
 
fin:
  Application.EnableEvents = True   ' Dans tous les cas on remet les évènements en service
  Exit Sub
End Sub

[jfontaine]

Bonjour,

Si la feuille est protégée, il te faut la déprotéger avant de faire une modification dans cette dernière (même si modification en VBA)

Code :

1
2
3
Me.Unprotect "Mot de Passe"
...
Me.Protect "Mot de Passe"

Tu peux aussi ne pas protéger le format des cellules

[capi81]

Merci pour votre proposition.
Si la feuille est hors protection, un utilisateur pourrait effacer mes données (formule et autres) ; ce qui remetrait la qualité de mon fichier.
Au faite je veux qu'on retravail le code pour le rendre plus lisible.
Comme je l'ai dis, j'ai des macros qui fonctionnent bien qu'en bien même la feuille est protégée.
Je me suis dis qu'il s'agit d'un problème de code (sa lisibilité).

[ZebreLoup]

La proposition de jfontaine ne remet pas en cause l'intégrité de ton fichier. Cela déprotège la feuille seulement le temps de l'execution de la macro. L'utilisateur ne pourra pas toucher au classeur pendant ce temps de toute façon.
Et pour ce qui est d'avoir certaines procédures qui fonctionnent même classeur protégé, c'est logique, ça dépend si la procédures modifie des cellules protégées.