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

[de_hanstrapp]

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]

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

With Range("D13").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="1,2,3,4," & [$F$13] + [$G$13]
End With

 

[de_hanstrapp]

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

 

[Jacky67]

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

 

[de_hanstrapp]

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]

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]

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

 

[Jacky67]

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

 

[de_hanstrapp]

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

Merci @Jacky67 !
Cela me convient parfaitement...