XL 2016 souci de code

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088