Rechercher Une liste en fonction d'une autre liste

[czac]

Bonjour,

Voilà ma grande question J'ai une liste déroulante. En fonction de ce que je sélectionne dans cette liste, j'aimerai que dans une autre cellule une liste déroulante se mette en place.
Ci-joint un imprim écran pour essayer de faire comprendre, car c'est pas évident.

merci pour votre aide

 

[pierrejean]

Bonjour czac

Crois-tu qu'un chirurgien puisse opérer sur une radiographie ????

 

[czac]

Bonjour Pierrejean

tu as bien raison, ca m'a fait rire cette comparaison. Ci-joint le fichier

 

[czac]

Bonjour,

j'ai un peu modifier le fichier. Ci-joint. Est-ce que quelqu'un a une solution pour moi svp

merci d'avance

cordialement

 

[pierrejean]

Re

En supposant avoir bien compris !!!!

 

[czac]

Bonjour,

c'est exactement ca y a juste 1 sélection qui ne fonctionne pas. C'est R28V - Resto Vit / croustillant.

J'ai pas trouver le code dans Développeur, il est où? car si un jour je rajoute des rayons par exemple que je puisse le faire moi-même

sinon si je rajoute des familles de produit, je vais dans validation des données et je rallonge, c'est bien ca?

encore merci

 

[czac]

Je viens également de voir que le bilan ne se fait plus, onglet synthèse

 

[czac]

C'est en validant l'enregistrement que cette synthèse ne fonctionne plus

 

[pierrejean]

Re

La seule modification faite l'a été dans le module de la feuille Enregistrement:
Ajout de cette macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AB$4" Then Exit Sub
 ActiveSheet.Range("AY7").Validation.Delete
For n = 9 To Sheets("LISTES").Cells(2, Columns.Count).End(xlToLeft).Column
    If InStr(Sheets("LISTES").Cells(2, n), Target.Value) <> 0 Then
       derlin = Sheets("LISTES").Cells(Rows.Count, n).End(xlUp).Row
       form = "=LISTES!" & Cells(3, n).Address & ":" & Cells(derlin, n).Address
        ActiveSheet.Range("AY7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=form
    End If
Next
End Sub

Je regarde pour R28v

 

[czac]

Je viens de refaire. ci-joint la version 3. et là pas de soucis pour l'instant avec ma synthèse. J'attend votre retour pour le R28V

merci beaucoup

 

[pierrejean]

Re

Correction pour R28:

Même libelle dans RAYONS que dans la feuille LISTES: R28RV - Resto Vit + R28 - Croustillant

Pour la synthèse je n'ai rien modifié qui ai pu altéré le fonctionnement

 

[czac]

j'ai téléchargé le fichier, mais il ne s'ouvre pas :-(

 

[pierrejean]

Re

Je viens d'avoir une Maj de Windows10 et je le soupçonne de faire du zèle dans la protection des fichiers
Teste celui ci

 

[czac]

Super cela fonctionne

petite question encore:
- maintenant si je veux rajouter des familles de produits (j'avais laissé des lignes de libre dans l'onglet liste), je modifie juste la plage la liste dans validation des données?

merci beaucoup

 

[pierrejean]

Re

Oui c'est cela