copier des données + liste déroulante

[val]

bonjour,

je souhaiterais copier des données d'une base vers un autre onglet en fonction d'un critère de sélection.

quelle fonction pour récupérer en automatique des données en fonction d'une liste déroulante ?

Voir PJ, en espérant que ce soit clair..

merci pr votre retour,

 

[nyko283]

Re : copier des données + liste déroulante

Bonsoir val, Bonsoir le forum,
N'utilisant qu'excel 2003, voici la solution que j'auais adopté, attention, avec les nouvelles versions il en existe peut être (sûrement ...)une meilleure.

En passant par une macro sur l'évènement Worksheet_Change de la Feuil1 qui se lancera à chaque fois qu'une valeur d'une cellule de cette feuille sera modifié , on peut également écourté la procédure en vérifiant si c'est la cellule qui nous interrese qui a été modifié.

Donc le code à coller dans la feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, x As Integer
If Target.Address = "$C$4" Then
Application.EnableEvents = True
x = 10
For i = 2 To ThisWorkbook.Worksheets("base").Range("B1").End(xlDown).Row
If ThisWorkbook.Worksheets("Feuil1").Range("C4").Value = ThisWorkbook.Worksheets("Base").Range("B" & i).Value Then
 
ThisWorkbook.Worksheets("Feuil1").Range("C" & x).Value = ThisWorkbook.Worksheets("Base").Range("D" & i).Value
ThisWorkbook.Worksheets("Feuil1").Range("D" & x).Value = ThisWorkbook.Worksheets("Base").Range("E" & i).Value
If ThisWorkbook.Worksheets("Base").Range("A" & i).Value = 2009 Then
ThisWorkbook.Worksheets("Feuil1").Range("E" & x).Value = ThisWorkbook.Worksheets("Base").Range("F" & i).Value
Else
ThisWorkbook.Worksheets("Feuil1").Range("F" & x).Value = ThisWorkbook.Worksheets("Base").Range("F" & i).Value
End If
x = x + 1
End If
Next i
End If
End Sub

En espérant le résultat escompté.