Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule

de_hanstrapp

XLDnaute Occasionnel
Bonsoir le forum,

Je voulais savoir si une méthode existait pour combiner dans une même cellule une liste déroulante et une formule issue d'une validation de données.

Voici le contenu des enregistrements macro :

Range("D13").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3,4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


Range("D13").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=($F$13+$G$13)=0"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


Merci par avance pour votre aide et/ou idées.

de_hanstrapp
 

Jacky67

XLDnaute Barbatruc
Bonjour,
Pas certain d'avoir compris la manœuvre
VB:
With Range("D13").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="1,2,3,4," & [$F$13] + [$G$13]
End With
 

de_hanstrapp

XLDnaute Occasionnel
Merci Jacky de me consacrer un peu de temps.
Je vous mets un fichier en exemple.

Mon objectif est d'avoir dans les 4 cellules colorées un menu déroulant me permettant de sélectionner un chiffre et de ne pouvoir renseigner un chiffre différent de 0 dans la zone jaune qu'à la condition que les cellules vertes soient = à 0 (et inversement). On ne doit pas pouvoir remplir les zones vertes si le total des jaunes et > à 0 (et inversement).
 

Pièces jointes

  • Exemple - Copie.xlsx
    9.4 KB · Affichages: 5

Jacky67

XLDnaute Barbatruc
Re..
Un classeur . xlsx ne peut contenir de macro
Le problème sera d'où vient le 0(zéro)
Essaye la PJ
 

Pièces jointes

  • Exemple - Copie .xlsm
    21.7 KB · Affichages: 7

de_hanstrapp

XLDnaute Occasionnel
Merci bcp Jacky !
Cela répond à mon besoin.

Dernier coup de main... comment je dois dupliquer le code pour effectuer les mêmes opérations sur les lignes 15, 16, etc... (sachant que le contenu de la liste déroulante peut varier)
 

Jacky67

XLDnaute Barbatruc
Merci bcp Jacky !
Cela répond à mon besoin.

Dernier coup de main... comment je dois dupliquer le code pour effectuer les mêmes opérations sur les lignes 15, 16, etc... (sachant que le contenu de la liste déroulante peut varier)
Re..
Là, ce n'est plus la même histoire...
Avant de construire une usine à gaz, donne le classeur finale avec les cellules à gérer et le résultat souhaité et les codes déjà présent.
Il y a certainement un autre moyen pour obtenir ce qui est demandé.
 

de_hanstrapp

XLDnaute Occasionnel
Bonjour Jacky,
Voici comme souhaité le fichier tel qu'il sera dans sa version consolidée.
Les cellules à gérer sont les "jaunes" et les "vertes". Je t'ai mis en rouge le contenu de listes déroulantes pour chaque ligne.
Merci pour ton aide.
Bonne fêtes,
de_hanstrapp
 

Pièces jointes

  • Exemple - Copie.xlsm
    11.2 KB · Affichages: 3

Jacky67

XLDnaute Barbatruc
Re..
Bonne fêtes à toi aussi
A voir la Pj si cela convient
 

Pièces jointes

  • Exemple - CopieV2.xlsm
    24.5 KB · Affichages: 10

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…