1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 souci de code

Discussion dans 'Forum Excel' démarrée par arthour973, 9 Février 2019.

  1. arthour973

    arthour973 XLDnaute Barbatruc

    Inscrit depuis le :
    13 Décembre 2011
    Messages :
    2287
    "J'aime" reçus :
    100
    Habite à:
    Ezzarha
    Utilise:
    Excel 2016 (PC)
    Bonsoir à toutes et à tous,

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

    Code (Text):
    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,
     
  2. Chargement...

    Discussions similaires - souci code Forum Date
    XL 2010 Résolu par Marcel : souci de code Forum Excel 26 Décembre 2016
    soucis val min et max code vba Forum Excel 24 Avril 2015
    Souci code la tranformation d'une donnée en numérique Forum Excel 12 Mars 2015
    souci code renvoi a la ligne si cellule non vide Forum Excel 31 Décembre 2014
    Soucis pour faire une recherche de pièce grâce à un code Forum Excel 2 Décembre 2014

  3. arthour973

    arthour973 XLDnaute Barbatruc

    Inscrit depuis le :
    13 Décembre 2011
    Messages :
    2287
    "J'aime" reçus :
    100
    Habite à:
    Ezzarha
    Utilise:
    Excel 2016 (PC)
    Dsl, ne cherchez pas !!!
    désolé de vous avoir dérangé.
    Ce code fonctionne
    LOL, je vais me coucher :)
     

Partager cette page