Conditionner une saisie contrainte

  • Initiateur de la discussion Initiateur de la discussion lfr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lfr

Guest
Bonjour
est il possible dans excel de conditionner des choix au sein d'une liste déjà contrainte

Voici mon fichier avec 2 colonnes sur lesquelles j'ai créée 2 listes contraintes (via le menu données/validation),
je souhaiterai faire en sorte que les choix possibles ds la seconde liste soient réduits en fonction du choix fait préalablement dans la première liste.

ex : si j'ai choisi "Production" dans ma première liste, les choix de la seconde liste sont réduits aux 2 seules valeurs "Logistique Interne" et "Fabrication" et non plus aux 16 valeurs existantes dans ma liste

Excel sait il faire cela ?
Merci beaucoup de votre aide
Laurence
 

Pièces jointes

Re : Conditionner une saisie contrainte

Bonjour à tous

J'ai créé une macro, à adapter en fonction de tes besoins et en fonction du choix fait en A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2") = "Production" Then
Range("B2").Select
'
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Logistique interne,Fabrication"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub
 
Re : Conditionner une saisie contrainte

Je te remercie bcp
je n'y connais rien en macro mais je vais essayer d'appliquer ce que tu dis dans mon fichier
encore merci
laurence




Bonjour à tous

J'ai créé une macro, à adapter en fonction de tes besoins et en fonction du choix fait en A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2") = "Production" Then
Range("B2").Select
'
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Logistique interne,Fabrication"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
Réponses
0
Affichages
8 K
Arpopa
A
Retour