XL 2016 Une Zone de Liste pour plusieurs cellules.

djidji59430 à dit:

Bonjour à tous,

Données==>outils de données==>validation de données==>liste

Cliquez pour agrandir...

sylvanu à dit:

Bonjour le fil,
Un essai en PJ avec cette petite macro :

VB:

Sub Zonedeliste2_QuandChangement()
    L = ActiveCell.Row
    Cells(L, "B") = [G3]
    Cells(L, "C") = [I3].Offset([G3], 0)
    Cells(L, "D") = [I3].Offset([G3], 0)
End Sub

Regarde la pièce jointe 1205320

Cliquez pour agrandir...

sylvanu à dit:

Re,
si la 1ere colonne est l'index dans la table, je ne vois pas comment faire s'il y a deux noms. Ou la première colonne ne correspond pas à l'index ?
Un essai en PJ, les cellules actives ne sont que les deux dernières colonnes.

VB:

Sub Zonedeliste2_QuandChangement()
    L = ActiveCell.Row
    C = ActiveCell.Column
    If C = 3 Or C = 4 Then
        Cells(L, C) = [I3].Offset([G3], 0)
    End If
End Sub

Mais la 1ere colonne n'est pas utilisée.

Cliquez pour agrandir...