Problème avec ma liste

[blueshark]

Bonjours,
La petite macro elle est pas mal, je pensai l'intégré dans un tableau avec plusieurs ligne.
Quand je met une valeur supérieur à 0 dans la cellule A2 ou A3 ou A4 ou etc...
la valeur de la cellule B2 ou B3 ou B4 etc... qui est une liste (créé dans l'outil de validation) affiche le premier item de la liste.
J'ai essayé avec cette petite macro mais je n'obtient pas ce que je voudrais, je suis débutant et je voudrais comprendre comment fonctionne cette macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
[B2] = Range(Right(Range("B2").Validation.Formula1, Len(Range("B2").Validation.Formula1) - 1)).Range("A2")
End If

End Sub

j'ai joint le fichier avec .....

 

[Cousinhub]

Re : Problème avec ma liste

Bonjour,

essaie avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    Cells(Target.Row, 2) = Range(Mid(Cells(Target.Row, 2).Validation.Formula1, 2, 4))
End If
End Sub

si la cellule modifiée est dans la colonne A, et que la ligne est supérieure à 1, on extrait les 4 caractères, à partir du deuxième, soit $F$2 si tu modifies A2