répercuter des données en fonction du nom de l'onglet

[nrdz83]

Bonsoir à tous j'ai une base de données avec nom ,prénom fonction , etc

et des onglets avec comme titre différentes fonction.

Est il possible de répercuter les données des individus dans les onglets qui correspondent à leurs fonctions?

Un exemple joint.

Par avance merci, amitiés

 

[tbft]

Re : répercuter des données en fonction du nom de l'onglet

bonsoir

a quoi correspond les différents onglets brigadiers???
quelle est la règle de répartition?

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

bonsoir les onglets brigadiers correspondent aux différentes fonctions qu'ils peuvent faire.
la régle de répartition c'est brigadier dans tous les onglets ou il y a brigadier+additif
et patron dans tous les onglets ou il y a patron + additif.
(dans cet exemple il y a qu'un seul onglet patron)

merci pour l'aide.🙂

 

[tbft]

Re : répercuter des données en fonction du nom de l'onglet

Re.

As tu essayé de charger tes données dans une variable?
si oui comment tu as fait?

 

[tbft]

Re : répercuter des données en fonction du nom de l'onglet

Re Re

J'ai oublié:
As tu récupéré le nom des folios dans un tableau, ou faut-il créer les folios à partir d'un folio type??

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

bonsoir tbft je ne comprend pas quand tu parles de folio .

merci de t'interresser à mon sujet
cordialement

 

[Cousinhub]

Re : répercuter des données en fonction du nom de l'onglet

Salut le Moko 🙂

Essaie avec ce code :

Sub margat()
Dim Filtr As String
Dim Sh As Worksheet
With Sheets("données")
    .Range("A2:F" & .[A65000].End(xlUp).Row).Name = "base"
End With
For Each Sh In Sheets
    If Sh.Name <> "données" Then
        Filtr = Split(Sh.Name, " ")(0)
        With Sh
            .[P1] = "Fonction": .[P2] = Filtr
            Sheets("données").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
                "P1:P2"), CopyToRange:=.Range("A3:F3"), Unique:=False
            .Range("P1:P2").Clear
        End With
    End If
Next Sh
End Sub

Attention, il faut que les titres des différentes feuilles (A3:F3) soient rigoureusement identiques aux titres de la feuille de données (A2:F2)

Bon courage

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

Bien le bonjour bhbh+, je vais essayer.

Tu es de retour?
Ta campagne s'est bien déroulé?

Au plaisir de te relire mes amitiés
😎

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

Salut bhbh+;

j'ai esayé ton code et il se met en erreur à ce niveau

Sub margat()
Dim Filtr As String
Dim Sh As Worksheet
With Sheets("données")
    .Range("A2:F" & .[A65000].End(xlUp).Row).Name = "base"
End With
For Each Sh In Sheets
    If Sh.Name <> "données" Then
        Filtr = Split(Sh.Name, " ")(0)
        With Sh
            .[P1] = "Fonction": .[P2] = Filtr
            [COLOR="Red"]Sheets("données").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
                "P1:P2"), CopyToRange:=.Range("A3:F3"), Unique:=False
            .Range("P1:P2").Clear[/COLOR]        End With
    End If
Next Sh
End Sub

j'ai comme message" erreur d'execution 1004"
Nom de champ introuvable ou incorrect dans la plage d'extraction

Par avance un grand merci🙂

PS: Original le nom de la macro j'apprecie

 

[Cousinhub]

Re : répercuter des données en fonction du nom de l'onglet

Bonjour,

Comme précisé dans mon 1er fil :

il faut que les titres des différentes feuilles (A3:F3) soient rigoureusement identiques aux titres de la feuille de données (A2:F2)

Est-ce bien le cas?

Dans le doute, tu copies les titres de la feuille de données (A2:F2) et tu colles dans les autres feuilles...

Pour ta question, non, je suis toujours à Nouméa...

Et pour le nom de la macro, c'est la 1ère idée qui m'est venue....😀

Bon courage

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

Salut super bhbh ,
effectivement je n'avais pas vu sur une des feuilles j'avais un accent.

Je te remercie, je vais essayer de l'adapter au mieux à mon programme.

Et noumea ça se passe que tu veux?

Mes amitiés à plus bye🙄

 

[pierrejean]

Re : répercuter des données en fonction du nom de l'onglet

Re

Bonjour nrdz83

Salut bhbh 🙂

Un essai

 

[nrdz83]

Re : répercuter des données en fonction du nom de l'onglet

bonsoir pierre jean merci pour ton aide, le code est complètement différent que bhbh mais fonctionne également trés bien.

Merci pour ton aide mes amitiés😀