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
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
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
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).
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

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
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
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

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla