Discussion :

[Antho35]

Bonsoir,

Je dois faire une petite fichier excel, et destiné à d'autre personne. Je veux que dans la cellule (ici "K2") de l'onglet (ici "Fiche Secteur") lorqu'on rentre le numero de secteur (pour le momment de 1 à 7), cela me ressorte les informations contenu dans les autres tableaux. Comme c'est le cas pour le premier.

J'ai commencé avec le premier onglet, mais je bute sur la manière de faire pour les 3 autres onglets.

J'en appelle à l'aide de ce forum.

Merci et bonne fin de dimanche.

voici le code au cas ou mon fichier exemple pose problème.

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
Private Sub worksheet_Change(ByVal target As Range)
 
'Déclaration des variables
 
Dim pl As Range, derl&, nl&, dl&
If target.Address <> "$K$2" Then Exit Sub
Application.ScreenUpdating = False
test = True
Rows(3).Resize(1000).Clear
With Sheets("Bases Communes")
dl = .Range("A" & .Rows.Count).End(xlUp).Row
Set pl = .Range("A1:H" & dl)
.Range("A3").AutoFilter Field:=9, Criteria1:=Sheets("Fiche Secteur").[K2]   'Filtre le tableau par rapport au secteur
nl = Range("A3:A" & .Range("A65536").End(xlUp).Row).SpecialCells(12).Count
pl.SpecialCells(12).Copy Range("A4") 'Copie le tableau filtré
.Range("A3").AutoFilter  'suprime le filtre
End With
test = fasle
Application.ScreenUpdating = True
End Sub