Automatiser une tâche de tri et concaténer la plage

Bonjour,

En fonction de la liste de la feuille "COLL", je voudrais trier ces données de façon à ce qu'elles soient réparties sur les différents feuilles (MAIRIE,EPCI, SYN).Exemple : si une croix dans la colonne 10 et "MAIRIE" dans la colonne 11 on la retrouve sur la feuille "MAIRIE".

Et pour chaque feuille concaténer les données de la colonne 1à 6.

Toutes les cellules non renseignées par une croix se retrouve sur une feuille distincte

Merci

10listev4.xlsm (38.53 Ko)

Bonjour,

À partir de la ligne 70, la colonne "Collec" n'est plus renseignée, mais il y a tous de même des "x" en colonne "présent"

Que fait-on avec ceux là ?

Édit:

...ceux là je les ai mit sur la feuille "absent"

est ce que ça vous convient ?

Merci de votre aide,effectivement les non coché sont absents par contre la concaténation doit être faite dans une seule cellule, je ne sais pas si je l'ai précisé

Bonjour,

j'ai mis le résultat de la concaténation en cellule M2 de chaque onglet

Merci beaucoup, je regarde les modif

A nouveau un petit soucis, dans la macro, je veux mettre le nom de la collectivité en gras (première colonne), mais ça bugue

Bonjour,

dans la macro, je veux mettre le nom de la collectivité en gras (première colonne)

Les données de la colonne A sont déjà en "Gras" ?

C’est sur le texte concaténée (Nom du compte) que vous voulez mettre les en gras ?

Bonjour,

C'est bien le nom du compte que je veux mettre en gras sur touts les feuilles.

J'ai essayé de trier les absents de la même manière en créant des feuilles AMAIRIE,ASYN,AEPCI,ACCAS, en m'appuyant sur la macro du module 1, mais ça ne fonctionne pas, je les retrouve deux fois dans les absents.

Bonjour,

J'ai essayé de modifier la macro de la façon suivante:

Sub Transfert()

Set sh1 = Sheets("COLL")

LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row

refFeuil = Array("MAIRIE", "CCAS", "EPCI", "SYN", "Département", "présent", "absent")

refFeuil_1 = Array("AMAIRIE", "ACCAS", "AEPCI", "ASYN", "ADépartement")

refColl = Array("MAIRIE", "CCAS", "EPCI", "SYNDICAT", "Département", "")

présence = Array("x", "")

If Not sh1.FilterMode Then sh1.Range("A3:K3").AutoFilter

Application.ScreenUpdating = False

For p = 0 To UBound(présence)

For i = 0 To UBound(refColl)

Select Case présence(p)

Case "x": Set sh2 = Sheets(refFeuil(i))

Case "": Set sh2 = Sheets(refFeuil_1(i)")

Mais ça ne colle pas

Rechercher des sujets similaires à "automatiser tache tri concatener plage"