Copier des cellules dans une autre feuille sous condition V2

Bonjour à tous.
Avant tout merci beaucoup 🙏🙏 à tous ceux qui consacrent leur temps et leur savoir pour venir en aide aux esprits désespérés devant la complexité d’excel. 🤯

J’ai un tableau avec un premier onglet qui liste en Colonne A tous les noms de mes employés.
En colonne E, je place l’équipe à laquelle je les affecte (S0, S1 ... S4 et une équipe spéciale SX)

J’ai ensuite un onglet par équipe.
Et je voudrai que dans la colonne À de chacun de ces onglets les noms des employés viennent s’ajouter (*), s’ils appartiennent à l’équipe de l’onglet.

* J’aimerai que l’ajout se fasse sous la forme d’une Macro « mise à jour de l’onglet » qui s’active manuellement via un bouton

Malheureusement je n’arrive à rien ! C’est désespérant. J’ai vu un super Post de Tulipe_4 sur le sujet « copier des cellules dans une autre feuille sous condition » mais je n’ai pas réussi à adapter la formule et les noms notamment !! 😓 pourtant j’ai l’impression que c’est exactement ce dont j’ai besoin.

Je place le fichier en PJ (la forme est un peu bizarre car j’ai enlevé tous les éléments autres). J’espère que j’ai été compréhensible 😕 c’est pas facile à décrire je trouve 🤔

(Ps : je ne suis pas très bon, voire même Nul 😒 En VBA).

Merci pour votre aide !!

Maurice.

Bonjour monsieur le Baron,
Salut Tulipe,

sans doute ainsi...

J'ai coupablement remplacé les 2 boutons par 2... boutons ActiveX !

Private Sub cmdGO_Click()
'
Dim iRow%, iRow1%, iRow2%, iRowT%
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
Call Tri(iRow)
If [A11] <> "" Then
    iRow1 = 11
    Do
        iRow2 = Columns(5).Find(what:=Range("E" & iRow1).Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row
        With Worksheets("SPA " & CStr(Range("E" & iRow1).Value))
            .Range("A13:E" & .UsedRange.Rows.Count).Value = ""
            .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Resize(iRow2 - iRow1 + 1, 5).Value = Range("A" & iRow1).Resize(iRow2 - iRow1 + 1, 5).Value
        End With
        iRow1 = iRow2 + 1
    Loop Until iRow2 = iRow
End If
'
Application.EnableEvents = True
Application.ScreenUpdating = True
'
End Sub

A+

Bonsoir Curulis57.

Merci beaucoup pour ton aide 🙏🙏 : c’est exactement ce que je cherchais à faire.

Malheureusement je n’arrive pas à l’adapter à mon fichier (ni en la copiant, ni en retapant tout) !! 😓😢 Voici le problèmes que je rencontre :

Quand je chercher à reproduire la macro elle affiche « erreur de compilation Sub ou Function non definie ».

- second petit problème (mineur) : quand je souhaite faire fonctionner l’onglet SX en le renommant (par exemple BA), il affiche « erreur d’exécution « 9 » l’indice n’appartient pas à la sélection. Quand je clique sur Fin cela marche quand même mais ça peut induire des gens en erreur : est-il possible de faire disparaître cette message box ?

Question par ailleurs pour apprendre :

- quelle est la signification de « private sub » par rapport à Sub tout court ?

Merci infiniment de ton aide ! Je suis confus de te redemander tout cela par manque de connaissance ! 🥴

Maurice.

Mes respects, monsieur le Baron,

je vois que "METTRE_A_JOUR_LA_SPA" se trouve dans le 'Module 4' , c'est-à-dire, un 'Module' général !!
Toi, tu as remis tes contrôles à l'ancienne !

Pas de souci, chacun son truc mais dans ce cas, TOUTES les procédures appelées par ces macros (placées dans un module général, veux-je dire) DOIVENT être placées elles-mêmes dans un Module général quelconque SANS oublier, dans ces macros "secondaires", de spécifier, pour chaque référence de RANGE mentionnée, la feuille d'origine... puisque le Module général, qui couvre tout le fichier, ne peut pas la deviner.
Ceci...

If [A12] <> "" Then Range("A11:E" & iRow).Sort _

... deviendrait obligatoirement ...

With Worksheets("SUIVI INDIV")
    If .[A12] <> "" Then .Range("A11:E" & iRow).Sort _
        key1:=.[E11], order1:=xlAscending, _
        key2:=.[A11], order2:=xlAscending, _
        key3:=.[B11], order3:=xlAscending, _
        Orientation:=xlTopToBottom, Header:=xlNo
End With

... où With précise la feuille d'origine et le point . précise les Range se référant à With.
Tu suis ?

Pour le 2e point, as-tu simplement renommer l'onglet, feu 'SPA SX', en 'BA' ?
Malheureux ! Renomme-le bien vite 'SPA BA' !!!

Sinon... un fichier, stp !

A+

SOS CURILIS57 V2 !!

Alors non seulement je n’arrive pas à adapter la macro malgré tes conseils mais en plus je n’arrive pas à poster mon message ! Rien ne va plus. 🤯

Je disais donc, que je n’arrive à rien, même en déplaçant la macro dans le fichier SUIVI INDIV et non dans un module (ce que je n’avais d’ailleurs pas remarqué, ce qui en dit long sur la maîtrise VBA !!)

en désespoir de cause 😔, je te place donc le fichier directement.

voici les points clés (que je ne suis pas parvenu à adapter)

- dans l’onglet suivi indiv, quand on met en place le tri par section (ou équipe) il faut que toute la ligne suive et non juste les 5 premières colonnes. En effet chaque nom est lié à une liste de code qui donne son activité par jour de l’année.

- pour les tri, il faudrait préparer 2 tri distincts

Le premier par section (S0, S1...) puis par grade selon un ordre particulier (COL, LCL, CBA, CNE, LTN, SLT, ASP, CC1, CCH, CPL, MP1, 1CL, MP2, 2CL, SDT, VDAT), puis par ordre alphabétique des noms puis prénoms.

Le second par « ad hoc » c’est à dire : par ordre alphabétique de la colonne AD Hoc, puis par section puis par grade puis par nom puis par prénom.

- enfin pour la SPA SX, il faudrait que seuls les noms de la Colonne AD HOC (Et non section) avec le marquant SX Apparaissent dans l’onglet. Exemple : si je mets BA pour 3 personnes dans la colonne AD HOC et que je renomme SPA SX en SPA BA, il faut que les noms apparaissent peu importent leur section dans l’onglet SPA BA.

c’est déjà beaucoup, et ça serait déjà super 👍 si en plus tu peux me rajouter des petits commentaires dans le code pour m’aider à comprendre et progresser ça serait extra.

En tout cas, merci 🙏🙏pour toute ton aide : j’apprécie énormément et je ne regrette qu’une chose : être trop nul pour pouvoir aider a mon tour ! 😞