Bonjour, voici mon problème :
Je souhaite créer des listes déroulantes en fonction de liste référence qui sont classées par ordre alphabétique et dont la valeur null est supprimée. Ça fonctionne saut que je n'ai plus de message d'alerte lorsque je met une valeur différente que ce de ma liste déroulante dans ma feuille 2.
Dans le fichier joint :
Sheet1:
- A2:A20 = EqTypeList (mes données de référence).
- Macro sheet 1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("EqTypeList")) Is Nothing Then
Range("EqTypeList").Sort Key1:=Range("A2"), Order1:=xlAscending
End If
End Sub
Me permet de classer par ordre alphabétique les valeurs de ma colonnes A2:A20 (données de ref)
Sheet2:
Colonne A avec ma liste déroulante.
Dans Data Validation List colonne A j'ai ajouté:
=OFFSET(EqTypeList;0;0;COUNTA(EqTypeList))
Récupère les valeurs de ma colonne A2:A20 de ma sheet1 et me supprime les valeurs null.
Dans l'onglet alert j'ai mis un stop qui ne fonctionne plus depuis que j'ai mis ma formule en source :
=OFFSET(EqTypeList;0;0;COUNTA(EqTypeList))
Si je sélectionne manuellement ma table c'est bon, le message alert apparait mais j'ai tous les blancs dans ma liste déroulante.
Ma question : Comment faire apparaitre le message d'alerte si je rentre une valeur différente que celle de la liste de référence ?
Merci de votre aide.
Bonne journée.