erreur non gérée

Re : erreur non gérée

salut
tout dépend de ce qu il y a dans le code de ta fonction
workbook_sheetchange

Si la feuille est protégée, lorsque tu la sélectionnes elle réagit plus ou moins bien.
Donc tout dépend du code
tu peux éventuellement tester le nom des pages sélectionnée et réalisé oui ou non le code qui suit dans workbook sheetchane

Cordialement

Re : erreur non gérée

bonsoir à tous et merci de m'aider

j'ai pas vraiment compris ce que Tenormadness me dit:

"tu peux éventuellement tester le nom des pages sélectionnée et réalisé oui ou non le code qui suit dans workbook sheetchane"

qulequ'un pourrait-il m'éclairer
je joint le code complet qui est mis dans le thisworkbook

Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Sheets("accueil").Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TabTemp As Variant
Dim L As Long
Dim V As Variant
'Ne gère pas les sélections de plages
If Target.Cells.Count > 1 Then Exit Sub
'Vérifie la présence du format conditionnel "spécial"
If Target.FormatConditions.Count < 1 Then Exit Sub
If Target.FormatConditions(1).Formula1 = "=mDF" Then
With Sheets("MFC")
'Charge les préférences dans un tableau variant temporaire
L = .Range("A65536").End(xlUp).Row
TabTemp = .Range(.Cells(1, 1), .Cells(L, 1)).Value
'Détermine le format à utiliser suivant la valeur de la cellule
If Target.Value = "" Then
L = 1
Else
For L = 2 To UBound(TabTemp, 1)
'Fonctionne en minuscule/majuscule pour les chaines de caractères
If UCase(Target.Value) = UCase(TabTemp(L, 1)) Then Exit For
Next L
End If
'Gestion des erreurs (impératif, compte tenu de la désactivation des évènements)
On Error GoTo Fin
Application.EnableEvents = False
'Applique le format (sauf les bordures)
.Cells(L, 2).Copy
V = Target.Formula
Target.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Target.Formula = V
'Il semble que sur Mac et dans certaines situations (non ciblées) le format
'conditionnel "spécial" d'origine ne soit pas écrasé par le nouveau, il convient
'donc de s'en assurer avant de réimposer ce format spécial.
If Target.FormatConditions.Count < 1 Then Target.FormatConditions.Add Type:=xlExpression, Formula1:="=mDF"
Application.CutCopyMode = False
Application.EnableEvents = True
End With
End If
Exit Sub
Fin:
'En cas d'erreur dans le code, il convient impérativement de rétablir la gestion des
'évènements d'application pour la suite. Par une gestion d'erreur, on réaffecte la
'valeur True à la propriété Application.EnableEvents et on informe l'utilisateur qu'une
'erreur non gérée est survenue
MsgBox "Erreur non gérée dans la procédure Workbook.SheetChange()" & vbLf & "Erreur : " & _
Err & " " & Err.Description, vbOKOnly, "myDearFriend!"
Application.EnableEvents = True
End Sub

et voilà ce que cela me donne comme message erreur
My Dear Friend

erreur non gérée dans la procédure workbook sheetchane()
erreur 1004 erreur définie par l'application ou par l'objet

cela ne se produit que sur une feuille protégée et a certaines lignes , j'ai une macro de mfc de my dear friend qui fct impec


merci pour les renseignements a venir

Re : erreur non gérée

salut 2 solution
comme ton code vient changer par une mfc ta feuille si elle est proteger

tu a ce message d erreur donc soit le plus simple (j ai pas lu ton code en détail ) tu a 5 - 6 cellule qui sont concerner par un changement quelquonque

et sur ces cellules tu fait format de cellule sous l onglet protection tu decoche l option vérrouillé et a ce moment la quand tu remet la protection de la feuille en place tu peut changer ce que tu veut seulement dans ces cellulles

2 ème solution dans ton code tu peut rajouter au début cette ligne
ActiveSheet.Unprotect Password := "tonmotdepasse"
et a la fin cette autre ligne
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Password := "tonmotdepasse"
a noter que si tu a verrouikké ta feuille sans mot de passe
la partie password et ce qui sui tu l oubli

a+

Re : erreur non gérée

merci à toi et à ce forum

j'ai effectuée la première solution en déverouillant la feuille et en selectionnant les cell qui peuvent être changées, celle-ci étaient bien déveriullée mais les cell étaient masquées, j'ai décocher le masquage et reprotéger la feuille , et apparemment cela refonctionne après plusieurs reouverture du fichier,

l'autre solution ne peut se faire car différentes personnes peuvent modifier certaines cell et pas d'autres


merci

Re : erreur non gérée

ok si ca te va super

petite precision quand meme les 2 lignes de codes
la 1ère ligne ote la protecion et permet a ton code de fonctionner

la 2 ème ligne remet en place la protection automatiquement

voila a +