Microsoft 365 Problème déclencheur

[Michest94]

Bonjour le forum,

Je viens régulièrement sur le forum par rapport à mon fichier qui obsolète près à finir à la poubelle renait grâce à certains d'entre vous.
Aujourd'hui le sujet est :
'l' élément déclencheur' (qui déclenche pas )
Accès fichier et vba : ADMIN1967

En feuille documentation

quand je clique sur mes différents liens aucune réaction alors que tous mes chemins sont bons...

Merci pour votre aide

 

[bof]

Bonjour,
La macro se déconnecte sur la ligne :

Range("H7").ClearContents

Car tu as une gestion d'erreur audébut de la macro (On error Goto Fin)
Comme la feuille est protégée 2 lignes auparavant, le ClearContents provoque une erreur et la fin prévue...
A+

 

[Michest94]

Bonsoir,

J'ai constaté ce qui est écrit dans le post précédent #2 mais pour palier à ce problème comment faire ?

 

[soan]

Bonjour Michest, bof,

mais pour palier à ce problème comment faire ?

essaye avec le code VBA ci-dessous. (non testé, car j'ai aucune envie d'entrer dans ton usine à gaz ! )​

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Fin 'pour éviter l'erreur due à ton fichier image sur F:
    Const c01& = 12874308 'couleur 1 : bleu
    Const c02& = 49407    'couleur 2 : jaune
    Dim plg As Range, adresselien$
    Application.ScreenUpdating = 0: ActiveSheet.Unprotect MotDePasse
    With Target
        If .CountLarge <> 3 Then GoTo 1
        If .Column <> 3 Then GoTo 1
        Set plg = Range("C18:E18, C23:E23, C28:E28, C33:E36, C41:E41, C46:E53")
        If Intersect(Target, plg) Is Nothing Then GoTo 1
        plg.Interior.Color = c01: plg.Font.ColorIndex = 2
        With Range(.Address(0, 0))
            .Interior.Color = c02: .Font.ColorIndex = 0
        End With
    End With

1   Range("H7").ClearContents: ActiveSheet.Protect MotDePasse

    'ici, y'a toute la suite de la sub, qui est inchangée

End Sub

au cas où ça planterait de nouveau à cause de la protection, il faudra déplacer encore plus bas la re-protection de la feuille, et en faisant très attention qu'une sortie prématurée par Exit Sub n'est pas située au-dessus, sinon la feuille restera déprotégée ! ​

---

@bof : bravo pour avoir détecté correctement l'erreur ! (surtout que la cause était subtile !)​

soan

 

[Michest94]

Rien de changer en appliquant ton code
Pk une usine à gaz ?
C' est du code ...
Donc pas de solution

 

[soan]

désolé, j'ai écrit « usine à gaz » car il y a plein d'choses, dont beaucoup d'feuilles ; mais j'n'ai pas dit qu'il n'y a pas d'solution ➯ continue de surveiller les futures réponses qui vont te parvenir ; peut-être qu'un contributeur pourra t'apporter la bonne réponse qui te convient ? bonne chance ! ​

soan

 

[Michest94]

Merci! j'espère qu'une solution va me parvenir en effet.
cela serait cool...

 

[Michest94]

Bon bon, pas trop de retour sur ce problème soit impossible à résoudre, soit trop complexe, soit je vais devoir m'orienter sur autre chose pour essayer de faire un équivalent c'est dommage ...