Automatisation à partir d'un export

Bonjour,

J'effectue un export toutes les semaines de mon outil de gestion de formations afin de le communiquer à chaque manager pour qu'il puisse visualiser d'un coup d'œil quels salariés de leur secteur respectif sont convoqués et d'afficher le planning dans leur secteur.

Aujourd'hui c'est un travail que je fais à la main via des tableaux croisés dynamiques par exemple mais ça me demande du temps. J'aimerai automatiser ça de manière plus rapide. Je vous mets un exemple de fichier.

Sur mon onglet "export" j'ai ma base que je peux copier-coller (toujours sous le même format).

J'aimerai que dès collage de mon export je me retrouve avec un onglet par manager avec le planning des personnes convoquées de leur secteur.

J'aimerai aussi que seul les états "convoqué" ou "inscrit" apparaissent dans les onglets par manager.

Quelqu'un peut-il m'aider sur ce sujet svp ? J'utilise la version 2019 d'Excel.

Merci d'avance

Est-ce qu'une macro vous conviendrait ? Certains en ont peur.

Hello belly, Optimix,

J'ai un truc similaire au taff pour générer des onglets par BU.

J'ai adapté à ta situation. Je te laisse cliquer sur générer les onglets et me dire si c'est ce genre de chose que tu veux

@+

Bonjour,

Je ne parviens pas à télécharger le fichier sous formation xlsm, seulement en xlsx... Est-il possible de modifier le format ?
Et sinon je suis ok pour de la macro mais je n'en ai jamais fait ! (même pas peur)

Bonjour BAROUTE78,

XLSM = Macro.
Vous devez accepter les macros dans les options d'Excel. Sinon, pas de macros.

Bonjour,

les macros sont activées mais je ne peux pas télécharger le fichier en macro, il est bloqué sur mon PC du travail... J'ai essayé depuis mon téléphone mais ça ne fonctionne pas non plus.

avez-vous une autre solution sans passer par une macro ?

Quel message d'erreur avez-vous à l'ouverture du fichier ?

C'est mon entreprise qui bloque le téléchargement du fichier et je ne peux pas outrepasser, pas de message d'erreur particulier.

Vous dites que les macros sont activées. Pouvez-vous en créer une ?
Si c'est le cas, nommez-la "Macro" et copiez le code ci-dessous dedans.

Sub Macro()
    Dim wS1 As Worksheet, wS2 As Worksheet
    Dim nL As Long, secteurs() As String
    Dim i As Integer, j As Integer, k As Integer
    Dim doublon As Boolean

    Set wS1 = ThisWorkbook.ActiveSheet
    nL = wS1.Range("A" & Rows.Count).End(xlUp).Row

    ' Mise en tableau des noms de secteur
    k = 0
    ReDim secteurs(0)
    secteurs(0) = ActiveSheet.Cells(2, 1)

    For i = 2 To nL
        doublon = False
        For j = 0 To UBound(secteurs)
            If secteurs(j) = wS1.Cells(i, 1) Then
                doublon = True
                Exit For
            End If
        Next j
        If Not doublon Then
            ReDim Preserve secteurs(UBound(secteurs) + 1)
            secteurs(UBound(secteurs)) = wS1.Cells(i, 1)
        End If
    Next i

    ' Création d'un onglet par secteur
    For i = 0 To UBound(secteurs)
        wS1.Copy After:=Worksheets(ActiveWorkbook.Worksheets.Count)
        ThisWorkbook.ActiveSheet.Name = secteurs(i)
        Set wS2 = ThisWorkbook.ActiveSheet
        wS2.Unprotect

        ' Suppression des lignes en trop
        j = nL
        While j > 1
            If wS2.Cells(j, 1) <> secteurs(i) Then
                wS2.Rows(j & ":" & j).Select
                Selection.Delete Shift:=xlUp
            End If
            j = j - 1
        Wend
    Next i

    'Retour à la page initiale
    wS1.Select

End Sub

...puis exécutez-le.

Vous pouvez faire la même chose avec le code de BAROUTE78, comparer et faire votre choix.

Si vous ne pouvez pas créer de macro, il ne vous reste plus qu'à demander au responsable du réseau de l'entreprise de le faire pour vous.