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

Excel Discussion :

besoin d'aide sur un 'Data Validation' conditionné [XL-365]


Sujet :

Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    septembre 2018
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : septembre 2018
    Messages : 15
    Points : 8
    Points
    8
    Par défaut besoin d'aide sur un 'Data Validation' conditionné
    Bonjour,

    J'ai besoin de vos lumières car je cherche à faire la chose suivante:

    Sur une feuille excel, voici une version simplifiée du fichier: Book2.xlsx, j'ai plusieurs cellules (toutes sur la meme colonne) qui sont des 'data validation' avec plusieurs choix possible.

    Je crée cette feuille au travers d'un script VBA qui remplis le tableau avec un fichier texte, une fois les données importées je les traite.
    Dans l'absolu j'initialise les cellules de la colonne G à une valeur 'NA', l'un des utilisateurs pourra modifier cette valeur en choisissant parmi la liste donnée.

    Plusieurs personnes vont manipuler le fichier, l'une de ces personnes aura la charge d'attribuer à une ou plusieurs équipes une ligne, en ajoutant un "X" dans les cellules de D4 à F7 dans l'exemple.
    Et j'aurais voulu avoir un conditionnement sur les cellules de la colonne G; mettons que la cellule D4 reçoit un 'X' alors la cellule G4 prendrait automatiquement la valeur de la liste 'pas fait' et par la suite l'utilisateur pourra modifier la cellule G4 à sa guise.

    la question est : est-il possible de préparer la cellule G4 à cela?

    Merci

  2. #2
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    juillet 2014
    Messages
    2 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : juillet 2014
    Messages : 2 477
    Points : 5 361
    Points
    5 361
    Par défaut
    Citation Envoyé par marcds31 Voir le message
    mettons que la cellule D4 reçoit un 'X' alors la cellule G4 prendrait automatiquement la valeur de la liste 'pas fait'
    Bonjour,

    Tu devrais regarder les macros évènementielle, notamment "worksheet_change"
    https://silkyroad.developpez.com/VBA...Feuille/#LII-E
    J'aimerais bien aller vivre en Théorie, car en Théorie tout se passe bien.

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    septembre 2018
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : septembre 2018
    Messages : 15
    Points : 8
    Points
    8
    Par défaut
    Merci c'est pas mal, mais du coup je suis embeté, est ce que c'est possible lors de la création de ma feuille de lui integrer ce bout de code par exemple::

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
        'Désactive l'évènement
        Application.EnableEvents = False
        'modification dans la cellule Qx si Jx est modifiée
        If Target.Column = 10 And Target.Row > 4 And Not (IsEmpty(Target.Value)) Then
            Range("Q" & Target.Row).Value = "Not done"
        ElseIf Target.Column = 10 And Target.Row > 4 And IsEmpty(Target.Value) Then
            Range("Q" & Target.Row).Value = "N/A"
        End If
        'Réactive l'évènement
        Application.EnableEvents = True
    End Sub
    Car effectivement en utilisant la notion d'evenement ça marche bien, mais je ne sais pas comment faire pour inserer le code dans la feuille en vba, est ce meme possible?

  4. #4
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    juillet 2014
    Messages
    2 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : juillet 2014
    Messages : 2 477
    Points : 5 361
    Points
    5 361
    Par défaut
    Citation Envoyé par marcds31 Voir le message
    Merci c'est pas mal, mais du coup je suis embeté, est ce que c'est possible lors de la création de ma feuille de lui integrer ce bout de code par exemple
    De rien, je crois que c'est possible mais ça dépasse mes compétences, je suis sûr d'avoir déjà vu une demande résolue sur le sujet, essaye de faire une recherche sur le forum.
    J'aimerais bien aller vivre en Théorie, car en Théorie tout se passe bien.

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    10 889
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 10 889
    Points : 26 068
    Points
    26 068
    Billets dans le blog
    34
    Par défaut
    Bonjour,
    Merci c'est pas mal, mais du coup je suis embeté, est ce que c'est possible lors de la création de ma feuille de lui integrer ce bout de code par exemple::
    Je ne suis pas certain de comprendre ce que vous voulez mais si le but est d'avoir la même procédure événementielle sur l'ensemble des feuilles de votre classeur, je vous conseille alors d'utiliser la procédure événementielle du classeur Workbook_SheetSelectionChange
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

  6. #6
    Membre éprouvé
    Homme Profil pro
    ingénieur d'étude
    Inscrit en
    juin 2013
    Messages
    535
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : ingénieur d'étude
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2013
    Messages : 535
    Points : 1 080
    Points
    1 080
    Par défaut
    Bonjour à toutes et à tous,

    Il existe plusieurs façon pour générer programmatiquement un fichier Excel contenant des macros.

    La solution qui a généralement ma préférence, car elle est la plus simple, est d'intégrer au classeur source (celui qui contient les macros qui vont générer le nouveau classeur), une feuille Excel qui va servir de format (appelons la frmtSht).
    Insérez dans le code de frmtSht toutes les macros dont vous allez avoir besoin dans le classeur à créer. Puis, au lieu de créer un nouveau classeur en utilisant "Workbooks.Add", utilisez plutôt la méthode Copy appliquée à la feuille frmtSht :
    Cela va créer une copie de ladite feuille et la placer dans un nouveau classeur. Les macros présentes dans le code de frmtSht vont être copiées automatiquement et vous y aurez accès dans votre nouveau classeur.

    Une alternative est de plutôt utiliser un classeur de format (créez un nouveau classeur, insérez-y le code voulu aux endroits voulus et sauvegardez le). C'est ce classeur qui vous allez alors copier pour générer programmatiquement votre nouveau classeur.
    Pour cela, vous pouvez soit passer par une copie de fichier, soit ouvrir votre classeur de format avec une appli Excel puis faire "Enregistrer sous" pour obtenir une copie.
    L'intérêt de cette méthode est qu'elle permet de mettre du code dans des Modules, des Modules de classes ou même dans le module ThisWorkbook (ce qui va par exemple vous permettre d'utiliser l'événement Workbook_SheetSelectionChange dont vous a parlé M. Tulliez, et ainsi d'obtenir du code qui s'exécutera dans toutes les feuilles du nouveau classeur).

    Reste enfin la possibilité d'utiliser les objets VBE et VBIDE (voir par exemple la méthode CreateEventProc).
    C'est beaucoup plus adaptable, mais souvent plus long à mettre en œuvre et il faut écrire quasiment tout le code sous forme de chaîne de caractères.
    Sans compter que vous devez pour cela adapter les options concernant la sécurité des macros, ce qui n'est pas toujours possible si vous travaillez sur une machine professionnelle sur laquelle vous n'avez pas tous les droits...

    Cdt

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    septembre 2018
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : septembre 2018
    Messages : 15
    Points : 8
    Points
    8
    Par défaut
    Merci à vous 3, vous avez parfaitement répondu à mon interrogation et j'ai pu mettre en place le code pour faire ce que j'avais prévu.

    Du coup si d'autres voulaient faire quelque chose d'approchant, à savoir utiliser une liste de validation sur une cellule mais qui pourrait aussi évoluer en fonction d'une autre cellule (en plus de l'intervention d'un utilisateur sur la cellule elle meme).

    La démarche est donc de programmer une réaction sur l’évènement Worksheet_Change ou Workbook_Change si c'est sur l'ensemble du classeur, sauvé cela comme un template et utiliser la copie pour créer une feuille avec la propriété.
    Ensuite vous appliquez vos scripts VBA comme bon vous semble (n'oubliez pas de faire un Application.EnableEvents = False et Application.EnableEvents = True) pour eviter de déclencher l'evenement si vous remplissez par une macro votre tableau.

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

Discussions similaires

  1. Réponses: 0
    Dernier message: 04/10/2017, 09h42
  2. Filemaker ... besoin d'aide sur les Plugin
    Par joange dans le forum Autres SGBD
    Réponses: 3
    Dernier message: 22/04/2004, 10h16
  3. [intermedia] besoin d'aide sur script PL/SQL
    Par SteelBox dans le forum PL/SQL
    Réponses: 8
    Dernier message: 05/01/2004, 19h59
  4. [CR] besoin d'aide sur les formules
    Par GuillaumeDSA dans le forum Formules
    Réponses: 4
    Dernier message: 10/07/2003, 12h19

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