XL 2019 Formule pour extraire les données d'une colonne en fonction d'une autre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bana XIII

XLDnaute Nouveau
Salut à tous!

J'ai une question à soumettre à la communauté.

j'ai une feuille contenant un tableau élaboré des salariés. La colonne "B" contient
les noms, et la colonne "D" contient leurs statuts qui sont de trois (03) niveaux: "Permanant",
"Essaie", "Formation".

Mon souhait, c'est d'extraire sur 3 feuilles différentes, les noms des salariés suivant les 3
catégories de la colonne "D" 'c'est à dire, les salariés permanant sur une feuille, ceux qui
sont en essaie sur une autre, et les apprentis en formation sur une autre.

NB: Je veux extraire uniquement les noms alphabétiquement. Y a t'il une formule qui pourra
me contenter?

Bien à tous!
 
Salut à tous!

J'ai une question à soumettre à la communauté.

j'ai une feuille contenant un tableau élaboré des salariés. La colonne "B" contient
les noms, et la colonne "D" contient leurs statuts qui sont de trois (03) niveaux: "Permanant",
"Essaie", "Formation".

Mon souhait, c'est d'extraire sur 3 feuilles différentes, les noms des salariés suivant les 3
catégories de la colonne "D" 'c'est à dire, les salariés permanant sur une feuille, ceux qui
sont en essaie sur une autre, et les apprentis en formation sur une autre.

NB: Je veux extraire uniquement les noms alphabétiquement. Y a t'il une formule qui pourra
me contenter?

Bien à tous!
Bonjour,
Sans classeur exemple......🤬
Une proposition en Pj par vba avec ce code dans le ThisWorkbook
qui pourra peut-être te contenter 😇😉
La mise à jour se fait à la sélection des feuilles concernées
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Permanent" And Sh.Name <> "Essaie" And Sh.Name <> "Formation" Then Exit Sub
    Application.ScreenUpdating = False
    Sh.Cells.Clear
    With Sheets("Base")
        If .FilterMode Then .ShowAllData
        With .UsedRange
            .AutoFilter Field:=4, Criteria1:=Sh.Name
            .Columns("A:C").SpecialCells(xlCellTypeVisible).Copy Sh.[a1]
            .AutoFilter
        End With
    End With
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
23
Affichages
957
Retour