Bonjour à toutes et tous,
Je vous met le code car même en allégeant le fichier il est toujours trop gros pour le joindre. Vous y verrez 2 listes déroulantes, la seconde étant reliée à la première. J'ai créer mon code pour qu'il m'affiche des résultats en fonction de ce qui est sélectionné dans la liste (code qui n'est peut-être pas parfait). Mon souci est d'afficher les résultats en fonction des choix de la seconde liste. J'ai essayé plusieurs solutions mais cela ne fonctionne pas.
Les listes ont été créees avec la barre à outils contröle et chaque liste est attachée à une cellule d'où les chiffres 1,2,3 ...
Merci pour votre aide.
ide.
Je vous met le code car même en allégeant le fichier il est toujours trop gros pour le joindre. Vous y verrez 2 listes déroulantes, la seconde étant reliée à la première. J'ai créer mon code pour qu'il m'affiche des résultats en fonction de ce qui est sélectionné dans la liste (code qui n'est peut-être pas parfait). Mon souci est d'afficher les résultats en fonction des choix de la seconde liste. J'ai essayé plusieurs solutions mais cela ne fonctionne pas.
Les listes ont été créees avec la barre à outils contröle et chaque liste est attachée à une cellule d'où les chiffres 1,2,3 ...
Merci pour votre aide.
Code:
Sub Tous()
' Affiche tous les enregistrements
If Range("B3") = "2" Then
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Sheets("Feuil3").Select
[A1].AutoFilter field:=1
Range("A1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
End If
If Range("B3") = "3" Then
' Affiche les enregistrements de la direction Affaires financières
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Affaires financières*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "3" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D3:D24").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "4" Then
' Affiche les enregistrements de la direction Affaires statutaires
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Affaires statutaires*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "4" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D13").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "5" Then
' Affiche les enregistrements de la direction de la Communication
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Communication*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "5" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D14").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "6" Then
' Affiche les enregistrements de la direction des Concours
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Concours*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "6" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D15:D17").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "7" Then
' Affiche les enregistrements de la direction Générale
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Direction générale*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "7" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D18:D18").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "8" Then
' Affiche les enregistrements de la direction Emploi
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Emploi*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
If Range("B3") = "8" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D19:D21").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End If
If Range("B3") = "9" Then
' Affiche les enregistrements de la direction Ressources humaines et logistique
Range("A13:L350").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
[A1].AutoFilter field:=1, Criteria1:="=Ressources humaines et logistique*"
Range("B1:L350").Copy
Sheets("Feuil1").Select
Range("A13").Select
ActiveSheet.Paste
End If
If Range("B3") = "9" Then
Sheets("Feuil2").Select
Range("F3:F24").ClearContents
Range("D22:D24").Copy
Range("F3").Select
ActiveSheet.Paste
Sheets("Feuil1").Activate
End If
End Sub