XL 2010 ERREUR 1004 DEFINIE PAR OBJET OU APPLICATION

laplayast · 7 Janvier 2017

Bonsoir,
Je veux protéger la feuille et suite à cela, j'ai l'erreur 1004. J'ai rajouté les lignes en rouge au code initial mais ce n'est pas suffisant. Merci de votre aide pour palier ce problème.

Activeworksheet.Unprotect
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [E5:LV30]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("E5:LV30")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
Calculate
Activeworksheet.Protect
End Sub

phlaurent55 · 8 Janvier 2017

Bonjour laplayast,

Je ne pense pas que l'erreur vienne de la protection/déprotection

la ligne:
celluleAvant = Target.Address

devrait se trouver directement à la suite de:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

à+
Philippe

JCGL · 8 Janvier 2017

Bonjour à tous,
Salut Philippe et Meilleurs Vœux à toi et aux tiens.

Peux-tu essayer :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CelluleAvant
CelluleAvant = Target.Address
'MsgBox CelluleAvant
If Not IsEmpty(CelluleAvant) Then
If Not Intersect(Range(CelluleAvant), [E5:LV30]) Is Nothing Then Calculate
End If
ActiveSheet.Unprotect
If Not Application.Intersect(Target, Range("E5:LV30")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
MsgBox "Hello" 'UserForm1.Show
End If
Calculate
ActiveSheet.Protect
End Sub

A+ à tous

Edition : Salut Eric et Meilleurs Vœux itou

ERIC S · 8 Janvier 2017

Bonjour
et

Code:

Activeworksheet.Unprotect

devrait se trouver dans la macro, après Private .....

edit : bonjour JCGL

laplayast · 8 Janvier 2017

Bonjour,

Pendant que vous répondiez, je préparais le fichier pour exemple .

Merci de votre aide.

laplayast · 8 Janvier 2017

Bonjour,

Merci de votre réponse que j'ai testé, elle fonctionne à demi car elle ne protège pas en permanence les cellules concernées.

A bientôt.

JCGL · 8 Janvier 2017

Bonjour à tous,

Peux-tu essayer avec ceci :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim CelluleAvant
    CelluleAvant = Target.Address
    If ActiveCell.Interior.ColorIndex <> xlNone Then Exit Sub
    If Not IsEmpty(CelluleAvant) Then
        If Not Intersect(Range(CelluleAvant), [D5:LV30]) Is Nothing Then Calculate
    End If
    ActiveSheet.Unprotect
    If Not Application.Intersect(Target, Range("D5:LV30")) Is Nothing And Target.Count = 1 Then    'Adapter la plage
        UserForm1.Show
    End If
    Calculate
    ActiveSheet.Protect
End Sub

A+ à tous

laplayast · 8 Janvier 2017

Bonjour,

Après essai, cela fonctionne avec une manip pas conventionnelle. Lors de la création du mot de passe il faut décocher les cellules vérrouillées et déverrouillées.

Merci encore.

XL 2010 ERREUR 1004 DEFINIE PAR OBJET OU APPLICATION

laplayast

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

JCGL

XLDnaute Barbatruc

ERIC S

XLDnaute Barbatruc

laplayast

XLDnaute Occasionnel

Pièces jointes

laplayast

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

laplayast

XLDnaute Occasionnel

Discussions similaires