Très bonne idée, merci !
J'ai plusieurs questions sur le code, 1er pourquoi choisir la colonne/cellule Z pour toutes les manip ? 2ème si je veux changer la colonne de départ de collage, dans mon cas changer "Col = 68" suffit ? 3ème peut-on définir la section à clear à partir de la colonne 68 dans mon cas ? Et 4ème question comment définit-on une feuil active ?
Ethlios
Re..
1er pourquoi choisir la colonne/cellule Z pour toutes les manip ?
Parce que dans l'exemple donnée, il était presque certain que cette colonne serait libre==> modifiée pour la dernière colonne du classeur (XFD ou 16384)
2ème si je veux changer la colonne de départ de collage, dans mon cas changer "Col = 68" suffit ?
Oui
3ème peut-on définir la section à clear à partir de la colonne 68 dans mon cas ?
Oui
Range("BP:XFD).Clear ' efface toutes les colonnes a partir de la 68ème
Et 4ème question comment définit-on une feuil active ?
Une feuille active est celle qui est affiché(visible) dans ce cas ce sera la feuil2 ,et puisque le code est dans cette feuille, il se lance à son activation par l'évènement==>Private Sub Worksheet_Activate()
Il y a bien sur d'autre moyen pour parvenir à ce résultat.
Le principe de fonctionnement de mon code est de:
Sur sélection de la feuille 2
- Créer une liste des noms sans doublon (maintenant colonne XFD)
- Trier cette liste "A-Z"
- Boucler sur cette liste de nom unique
- Coller ce nom en ligne 1 selon la colonne de début (68 maintenant)
- Filtrer la colonne des noms selon cette liste
- Copier colonne(A:B) filtrée et coller en ligne 2 colonne=col
- Plus quelques mises en formes sur les cellules de destination
Toutes ces modifications sont faite dans la pj