XL 2010 RechercheV & valeur dans une Liste de validation en cascade

[kif]

Bonjour la team

voici mon contexte


J'ai une liste de validation en cascade, en fonction du 1er choix (colonne A) et du deuxième choix de la sous catégorie (colonne B) je souhaite faire apparaitre le reste des valeurs des colonnes F/G/K/L (qui sont renseignées sur le deuxième Onglet (BD)

vous me direz tu n'a qu'a faire une recherche V ou un Index ! oui mais => je souhaite conserver quand mème les listes de validation dans ces colonnes F/G/K/L

ci joint le fichier

Merci d'avance de votre support

 

[sylvanu]

Bonjour Kif,
Une cellule ne peut pas contenir une formule ET une valeur. Donc ce n'est guère possible ... sauf en VBA.
Un essai en PJ avec cette macro événementielle :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B4:D23")) Is Nothing Then
         Ligne = Target.Row: Theme = Cells(Ligne, "B"): Config = Cells(Ligne, "D")
         With Sheets("BD")
            For L = 2 To .[A65500].End(xlUp).Row
                If .Cells(L, "A") = Theme And .Cells(L, "B") = Config Then Cells(Ligne, "F") = .Cells(L, "D")
            Next L
        End With
    End If
Fin:
End Sub

Si on modifie une valeur de A,B ou C alors la valeur en F est ajoutée.
( ici, ce n'est fait que pour RI, il faut continuer pour les autres colonnes en dupliquant la ligne
Cells(Ligne, "F") = .Cells(L, "D") avec Cells(Ligne, "G") = .Cells(L, "E") ....

 

[kif]

Bonjour Sylvanu

Oui super j'ai transposer, merci beaucoup ça fonctionne c'est super!

Par contre j'ai toujours cette erreur en colonne E (RA), que je n'arrive pas à modifier (meme je teste la valeur de D >0)
par cette instruction
=INDEX(RiskASD;EQUIV(1;(Thema=B4)*(Configuration=D4);0))

 

[kif]

mdr je viens de trouver 😛

en fait c'est une formule matricielle j'avait oublié de faire la combinaison de touches à l'entrée

Merci et bonne journée

 

[sylvanu]

Bonjour,
Je ne comprends pas pourquoi vous mettez des formules alors qu'il suffit d'enrichir le VBA comme je l'ai indiqué au post #2, par ex avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B4:D23")) Is Nothing Then
         Ligne = Target.Row: Theme = Cells(Ligne, "B"): Config = Cells(Ligne, "D")
         With Sheets("BD")
            For L = 2 To .[A65500].End(xlUp).Row
                If .Cells(L, "A") = Theme And .Cells(L, "B") = Config Then
                    For Col = 5 To 12
                        Cells(Ligne, Col) = .Cells(L, Col - 2)
                    Next Col
                End If
            Next L
        End With
    End If
Fin:
End Sub

 

[kif]

Oui c'est plus propre comme cela et plus puissant comme cela effectivement

Merci bien de votre support