IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Verrouillage Cellules conditionnelles


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de jawed
    Homme Profil pro
    Comptable
    Inscrit en
    Mars 2004
    Messages
    504
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Algérie

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2004
    Messages : 504
    Par défaut Verrouillage Cellules conditionnelles
    Salut le forum
    J’aimerai savoir si c'est possible de verrouiller ou interdire la saisie dans -exemple- les cellules des colonnes "B" et "C" si les données des cellules de la colonne "A" est "1" et si c'est "2" les cellules des colonnes B et C se déverrouilles
    Cordialement

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonsoir,
    Je pense qu'en passant par l'évènement "Worksheet_Change" de la feuille concernée et en ajoutant une condition avec IF, ça devrait faire l'affaire :
    A aménager
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If range("a" & target.row) = 1 then
       msgbox "saisie interdite" : exit sub
    End If
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre éclairé Avatar de jawed
    Homme Profil pro
    Comptable
    Inscrit en
    Mars 2004
    Messages
    504
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Algérie

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2004
    Messages : 504
    Par défaut
    Salut casefayere
    Effectivement ton code fait l'affaire mais il s'affiche dans toutes les cellules ou j'ai écrie 1 dans la colonne A ,esque c'est possible pour qu'il s'affiche seulement dans les cellules des colonnes B & C
    Excuse-moi casefayere mais je suis un néophyte en VBA
    Cordialement

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    omme je l'ai expliqué dans l'évènement "change" de la feuille :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Or Target.Column = 3 Then
       If Range("a" & Target.Row) = 1 Then
          MsgBox "saisie interdite": Exit Sub
       End If
    End If
    End Sub
    Tu pourras améliorer les conditions
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Membre éclairé Avatar de jawed
    Homme Profil pro
    Comptable
    Inscrit en
    Mars 2004
    Messages
    504
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Algérie

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2004
    Messages : 504
    Par défaut
    Merci boucoup casefayere
    c'est parfait

  6. #6
    Membre éclairé Avatar de jawed
    Homme Profil pro
    Comptable
    Inscrit en
    Mars 2004
    Messages
    504
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Algérie

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2004
    Messages : 504
    Par défaut
    Désolé casefayere je croie que j'ai tagué RESOLU trop vite j'ai oublié de te dire que je saisie en utilisant le formulaire d'Excel lorsque je saisie sans utilisé ce dernier ton code fonctionne mais cela ne fonctionne pas si j'utilise le formulaire
    merci d'avance
    a bientot

Discussions similaires

  1. [XL-2007] Verrouillage cellules après saisie
    Par Meuse55 dans le forum Macros et VBA Excel
    Réponses: 37
    Dernier message: 17/11/2017, 18h59
  2. [XL-2007] Verrouillage cellule non vide dans un classeur
    Par ZHNEE dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 03/02/2015, 17h18
  3. Verrouillage cellules VBA
    Par linkcr15 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 01/06/2012, 15h30
  4. [XL-2003] verrouillage cellule après saisie
    Par pythfred dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 03/04/2012, 07h54
  5. couleurs de cellules conditionnelles
    Par ickyspittingdick dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 22/04/2008, 13h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo