XL 2021 formule pour une feuille

[C'est Génial]

Bonjour,

Est ce qu'une personne peut m'aider, à me dire la formule pour mon tableau en pièce jointe,
J'ai un tableau de données, et je souhaite que sur les feuilles les lignes destinées aux personnes,
se mettre automatiquement,
Merci beaucoup pour votre aide

 

[danielco]

Bonjour,

Un essai.

Daniel

 

[Jacky67]

Bonjour,

Est ce qu'une personne peut m'aider, à me dire la formule pour mon tableau en pièce jointe,
J'ai un tableau de données, et je souhaite que sur les feuilles les lignes destinées aux personnes,
se mettre automatiquement,
Merci beaucoup pour votre aide

Bonjour à tous
Il Manque des feuilles dans l'exemple, néanmoins, une proposition par filtre et avec une ligne de titre avec le code ci-dessous à placer dans le Thisworkbook
La mise à jour se fait à la sélection des feuilles avec le prénom

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sheets("BASE")
        If IsNumeric(Application.Match(Sh.Name, .[a:a], 0)) Then
            Sh.Cells.Clear
            .UsedRange.AutoFilter Field:=1, Criteria1:=Sh.Name
            .UsedRange.SpecialCells(xlCellTypeVisible).Copy Sh.[a1]
        End If
        .AutoFilterMode = False
    End With
End Sub

 

[danielco]

Si

 

[danielco]

Si TEXTE.APRES n'existe pas dans ta version :

=FILTRE(BASE!A:H;BASE!A:A=STXT(CELLULE("nomfichier";A1);CHERCHE("]";CELLULE("nomfichier";A1))+1;9^9))

Daniel

 

[C'est Génial]

Si TEXTE.APRES n'existe pas dans ta version :

=FILTRE(BASE!A:H;BASE!A:A=STXT(CELLULE("nomfichier";A1);CHERCHE("]";CELLULE("nomfichier";A1))+1;9^9))

Daniel

Merci beaucoup,
C'est ce qu'il me faut,
Excellente fin de journée à vous