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 :

Code VBA pour bloquer saisie à partir d'un certain nombre de cellule comprenant certaines valeurs


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    responsable d'équipe
    Inscrit en
    Décembre 2017
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : responsable d'équipe
    Secteur : Service public

    Informations forums :
    Inscription : Décembre 2017
    Messages : 51
    Par défaut Code VBA pour bloquer saisie à partir d'un certain nombre de cellule comprenant certaines valeurs
    Bonjour

    J'utilise un tableau pour saisir la position (congé, maladie,... contenu des colonnes P et Q) des personnes pour chaque jour déterminé dans chaque mois et la fonction qu'ils occupent (CDG, VPU...contenu des colonnes R et S).

    Exemple pour le premier jour de chaque mois:
    en E9:E11 il faudrait au minimum 1 cellule ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S).
    en E9:E17 il faudrait au minimum 4 cellules ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S)
    en E9:E29 il faudrait au minimum 9 cellules ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S)
    Je souhaiterais qu'il en soit de même pour toutes les colonnes de E à M.

    J'ai pensais un temps compter chaque valeur possible des colonnes P et Q pour les différentes sélections, mais trop fastidieux et je pense qu'il doit y avoir un code plus adéquat.

    Si vous pouvez m'aider, merci par avance.

    Manu
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert
    Femme Profil pro
    Ingénieur
    Inscrit en
    Octobre 2016
    Messages
    1 703
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2016
    Messages : 1 703
    Par défaut
    Bonjour,

    Par soucis de sécurité, je n'ouvre pas les pièces jointes : https://www.developpez.net/forums/d8...s-discussions/
    Peux-tu plutôt envoyer des copies d'écran pour expliquer la structure de ton classeur ?

    Je n'ai pas tout bien compris avec tes explications (et sans voir le classeur), mais est-ce qu'une mise en forme conditionnelle ne ferait pas l'affaire ? Ou une validation des données ?

  3. #3
    Membre confirmé
    Homme Profil pro
    responsable d'équipe
    Inscrit en
    Décembre 2017
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : responsable d'équipe
    Secteur : Service public

    Informations forums :
    Inscription : Décembre 2017
    Messages : 51
    Par défaut Copie d'écran
    Nom : copie d'écran.jpg
Affichages : 128
Taille : 300,4 Ko

  4. #4
    Membre Expert
    Femme Profil pro
    Ingénieur
    Inscrit en
    Octobre 2016
    Messages
    1 703
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2016
    Messages : 1 703
    Par défaut
    Une proposition avec la mise en forme conditionnelle :
    Cas où il faut minimum 1 cellule qu in'a pas la valeur des cellules P/Q

    Nom : Forum36.PNG
Affichages : 135
Taille : 65,4 Ko

    Dans le cas où il n'y a aucune cellule différentes des cellules P/Q => ça devient rouge

    Nom : Forum37.PNG
Affichages : 132
Taille : 25,5 Ko

  5. #5
    Membre confirmé
    Homme Profil pro
    responsable d'équipe
    Inscrit en
    Décembre 2017
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : responsable d'équipe
    Secteur : Service public

    Informations forums :
    Inscription : Décembre 2017
    Messages : 51
    Par défaut
    Ce tableau est utilisé par une dizaine de personne, ils font des copier/coller des absences(colonnes P et Q) et des fonctions (colonnes R et S).
    Un changement de couleur ne leur suffit pas, je souhaiterais que si il y a un ajout de cellule qui ne rentre pas dans les critères, il y ait un message d'alerte "Trop d'absence" et que le contenu de la cellule collée soit effacée.

    Voici un exemple:

    pour la sélection E9:E11
    il y a E9 et E10 qui comprennent déjà des valeurs de la colonne P, je souhaiterais si il y a un coller d'une valeur de la colonne P ou Q dans la cellule E11, il apparaisse un message d'information "Trop d'absence" et la valeur soit effacée.

    Merci bien

    Nom : test 2.jpg
Affichages : 125
Taille : 307,0 Ko

  6. #6
    Membre Expert
    Femme Profil pro
    Ingénieur
    Inscrit en
    Octobre 2016
    Messages
    1 703
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2016
    Messages : 1 703
    Par défaut
    En effet, là il faut passer par du VBA.
    Je te propose de passer par un événement quand tu changes la valeur d'une cellule.

    Voici la feuille :
    Nom : Forum38.PNG
Affichages : 122
Taille : 26,7 Ko


    Et l'événement dans la feuille de calcul :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Range("M2") = False Then
            Target.ClearContents
            Target.Select
            MsgBox "Trop d'absence"
        End If
     
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 23/11/2016, 18h14
  2. [XL-2002] Code VBA pour colorier des cellules à partir de plusieurs critères
    Par NoodleDS dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/11/2013, 22h05
  3. Code VBA pour la saisie d'un mot de passe
    Par narr255 dans le forum VBA Access
    Réponses: 2
    Dernier message: 24/10/2010, 12h17
  4. Réponses: 1
    Dernier message: 15/11/2007, 07h04
  5. Réponses: 3
    Dernier message: 06/09/2005, 10h27

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