Discussion :

[khroutchev]

Bonjour,
ayant quelques notions en VBA mais n'ayant pas pratiqué depuis un bon moment je pose le problème suivant :

J'aimerais tout simplement à partir d'une table de données (feuil2) repertorier des valeurs dans un nouveau tableau visible par l'utilisateur. Ces valeurs affichées doivent correspondrent aux conditions rentrées par l'utilisateur.
Je sollicite votre aide car je n'arrive pas à effectuer ce travail sans passer par un Uform.
Le but est de rendre ce "reporting" accessible à des utilisateurs sans afficher de UserForm.
L'utilisateur rentre ces conditions et depuis le tableau (feuil2), un nouveau se remplit selon les critères rentrés par l'utilisateur.

Voilà j'espère avoir été claire et simple dans ma demande d'aide .

Je joins un fichier "exemple" du travail que j'aimerai réaliser.

Merci d'avance

[EngueEngue]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub toto()
Dim i As Long, k As Long
Dim secteur as string, region as string
 
secteur = Feuil1.Range("E4")
region = Feuil1.Range("E10")
k=15
Application.ScreenUpdating = False
 
 
For i = 2 To Feuil2.Range("A1").End(xlDown).Row
    If Feuil2.Cells(i, 1) = region And Feuil2.Cells(i, 2) = secteur Then
        Feuil1.Cells(k, 2) = Feuil2.Cells(i, 1)
        Feuil1.Cells(k, 3) = Feuil2.Cells(i, 2)
        Feuil1.Cells(k, 4) = Feuil2.Cells(i, 3)
        Feuil1.Cells(k, 5) = Feuil2.Cells(i, 4)
        Feuil1.Cells(k, 6) = Feuil2.Cells(i, 5)
        k = k + 1
    End If
Next i
Application.ScreenUpdating = True
End Sub

Par contre les filtres c'est mieux

[mercatog]

Une excellent lien de Philippe Tulliez sur
Les filtres avancés ou élaborés dans Excel

[khroutchev]

Merci pour ta réponse et pour le tuto.
Je vais le lire et pouvoir compléter ou ajuster ton code