Microsoft 365 Problème déclencheur

Michest94 · 15 Juillet 2021

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 · 15 Juillet 2021

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

VB:

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 · 16 Juillet 2021

Bonsoir,

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

soan · 17 Juillet 2021

Bonjour Michest, bof,

Michest94 à dit:
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 ! )

VB:

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 · 17 Juillet 2021

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

soan · 17 Juillet 2021

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 · 17 Juillet 2021

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

Michest94 · 17 Juillet 2021

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 ...

Microsoft 365 Problème déclencheur

Michest94

XLDnaute Occasionnel

Pièces jointes

bof

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

Discussions similaires