Bonsoir à toutes et à tous,
Je planche sur un bout de code que je n'arrive pas à faire fonctionner
R concerné est non vide - ne contient pas "A Rappeler" - ne contient pas "Répondeur"
Il ne devrait pas s'exécuter et passer direct à exit sub"
et pourtant il s'exécute.
J'ai travaillé toute la journée sur ce classeur et c'est peut-être la fatigue.
Verriez-vous où est mon erreur ?
Un grand merci comme d'hab
amicalement,
arthour973,
Je planche sur un bout de code que je n'arrive pas à faire fonctionner
Code:
If R = "" Or R <> "A Rappeler" Or R <> "Répondeur" Then
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
R.Offset(0, 2) = ""
R.Offset(0, 3) = ""
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
End If
R concerné est non vide - ne contient pas "A Rappeler" - ne contient pas "Répondeur"
Il ne devrait pas s'exécuter et passer direct à exit sub"
et pourtant il s'exécute.
J'ai travaillé toute la journée sur ce classeur et c'est peut-être la fatigue.
Verriez-vous où est mon erreur ?
Un grand merci comme d'hab
amicalement,
arthour973,