Ouverture d'un nouvel onglet en fonction d'une cellule

Le 18/04/2017 à 16:29

Bonjour à tous,

Je joins un exemple de fichier pour plus de clarté car je sais que cette manip est possible mais je ne connais pas son nom (et encore moins la manière de faire ).

En fait, il y a deux onglets. Dans l'onglet Coordonnées, j'aimerais pouvoir double cliquer sur chaque nom (colonne A) et qu'un nouvel onglet s'ouvre en affichant seulement les lignes concernées pour cette personne, dont la base de données se trouve en onglet N° études.

Je vous donne un exemple concret : si je clique sur Dupuis dans l'onglet Coordonnées, je souhaiterais qu'un nouvel onglet s'ouvre avec uniquement les informations contenues dans les lignes 5, 6 et 7 de l'onglet N° études.

Sauriez-vous me dire quelle fonctionnalité je dois utiliser pour parvenir à ce résultat ?

Merci beaucoup pour votre aide

Bonne journée

E

10exemple-coord.xlsx (11.00 Ko)

Le 18/04/2017 à 19:10

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

22exemple-coord-v1.xlsm (24.42 Ko)

Le 18/04/2017 à 20:51

Bonjour,

voici un exemple à copier sur la page code de la feuille Coordonnées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Tranfert (Target)
 Cancel = True
End Sub

Sub Tranfert(nom)
Dim sh
 Set sh = Sheets("N° études")
 With sh.Range("A1:F1")
   .AutoFilter
   .AutoFilter Field:=2, Criteria1:=nom
 End With
 Set plg = sh.Range("_filterdatabase").SpecialCells(xlCellTypeVisible)
 Sheets.Add After:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = nom
 plg.Copy ActiveSheet.Range("A1")
 sh.Range("A1").AutoFilter
End Sub

Le 19/04/2017 à 18:05

Merci beaucoup pour vos retours à tous les deux!

gmb, merci c'est parfait c'est exactement ce que je souhaitais. Mais du coup comment puis-je le reproduire, car il sagissait là d'un fichier test?

Merci beaucoup ++

bonne fin de journée,

E

Le 19/04/2017 à 18:27