bonjour Lio
quand tu vas dans le menu
Insertion
Nom
Definir
tu verras la liste des cellules nommées ainsi que les references associées
par exemple
'MesDatas' : =DECALER(Data!$B$1;;;NBVAL(Data!$B: $ B ) ; 1)
'Nom' :=DECALER(Data!$C$2;;;NBVAL(Data!$C:$C)-1)
'Extraction' : =Data!$C$1 ( dans la feuille Data)
en fonction de ce que tu vas saisir dans la cellule A3 , la procedure va copier les données commençant par les memes lettres dans la colonne C de la feuille Data
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> '$A$3' Then Exit Sub
[MesDatas].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[Résultats!A2:A3], CopyToRange:=[Data!C1]
[B3] = [Data!C2]: [B3].Select
End Sub
cett liste servant ensuite à créer la liste de validation
tu selectionnes la cellule B3 de la feuille 'résultats ' et tu vas dans le Menu Données / Validation
tu as source '=Nom'
par contre je ne comprends pas ta 3eme question
bonne journée
MichelXld
Message édité par: MichelXld, à: 18/05/2005 06:19