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: Pièce jointe 604257, 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

Citation:

---

Envoyé par marcds31

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

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:

---

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?

Citation:

---

Envoyé par marcds31

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.

Bonjour,

Citation:

---

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

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 :

Code:

---

frmtSht.Copy

---

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

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.