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

de_hanstrapp à dit:

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

Cliquez pour agrandir...

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

de_hanstrapp à dit:

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

Cliquez pour agrandir...

de_hanstrapp à dit:

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)

Cliquez pour agrandir...

Jacky67 à dit:

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

Cliquez pour agrandir...