Problème avec ma liste

blueshark

XLDnaute Nouveau
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.:eek:
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.:confused:

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 .....
 

Pièces jointes

  • Essai1.xls
    26.5 KB · Affichages: 34
  • Essai1.xls
    26.5 KB · Affichages: 31
  • Essai1.xls
    26.5 KB · Affichages: 34

Cousinhub

XLDnaute Barbatruc
Re : Problème avec ma liste

Bonjour,

essaie avec ce code :

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
 

Discussions similaires

Réponses
2
Affichages
209

Statistiques des forums

Discussions
312 928
Messages
2 093 697
Membres
105 787
dernier inscrit
BABOU79