Report d'une valeur en fonction d'une liste déroulante

Bonjour a tous,

passionné de jeux de rôle, je me suis fais un fichier excel pour me faciliter la vie lors de la création des personnages.

En fonction du personnage choisi, un système de listes déroulantes en cascade permet de sélectionner l'équipement pouvant choisi pour ce type de personnage.

Je me tourne vers vous car je souhaiterai que lors de la sélection du personnage, les équipements par défaut s'affichent (= 1ere valeur de chaque liste d'équipement)

exemple : si sélection du "voleur", je souhaiterai que "dague" et "-" s'affichent automatiquement.

En vous remerciant par avance

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim liste As String, defaut As String, i As Long
    If Target.Row < 18 Then Exit Sub
    If Target.Row Mod 2 = 1 Then Exit Sub
    If Target.Column = 1 Then
        For i = 1 To 3 Step 2
            liste = Target.Offset(, i)
            On Error Resume Next
            defaut = Range(liste).Range("A1")
            On Error GoTo 0
            Target.Offset(, i + 1) = defaut
        Next i
    End If
End Sub

eric

super! merci beaucoup eriiic

mais pourrais-tu (ou qqn d'autre) m'expliquer la formule, car là ça dépasse mon niveau en vba...

Met un Stop au début et fait en pas à pas avec F8.

Au fur et à mesure amène le curseur sur les variables ou expression sélectionnée pour voir sa valeur et comprendre.

OK merci!!