XL 2016 souci de code

arthour973

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

Je planche sur un bout de code que je n'arrive pas à faire fonctionner :confused:

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,
 

Discussions similaires


Haut Bas