Autres Copier les cellules de A àH si la cellule de T=1

Fgg

XLDnaute Nouveau
Bonjour le forum.
Après avoir automatisé la saisie d'adhérents à l'aide d'une UserForm, puis trier par ordre alphabétique des colonnes A (NOM), B (PRENOM), je voudrais recopier dans des feuilles multiples, don les noms des feuilles reprennent les intitulés des colonne J à W, en fonction de la valeur des cellules "1" ou " " de chacune des intitulés.
Et la je galére.
 

Pièces jointes

  • adhérents-ABLAV1.xlsm
    90.7 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour Fgg, fanfan38,

Si les feuilles sont toujours placées dans le même ordre on peut utiliser cette macro dans le ThisWorkbook du fichierr joint :
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'les feuilles doivent toujours être placées dans le même ordre
If Sh.Index = 1 Then Exit Sub
Application.ScreenUpdating = False
If Sh.FilterMode Then Sh.ShowAllData 'si la feuille est filtrée
Sh.Range("A2:I" & Sh.Rows.Count).Delete xlUp 'RAZ
With Sheets("ADHERENTS").[A3].CurrentRegion
    .AutoFilter Sh.Index + 8, 1 'filtre automatique
    .Resize(, 9).Copy Sh.[A1]
    .AutoFilter
End With
End Sub
Elle se déclenche automatiquement quand on active une feuille.

A+
 

Pièces jointes

  • adhérents-ABLAV(1).xlsm
    100.8 KB · Affichages: 2

CHRIS1945

XLDnaute Occasionnel
Bonjour,
Comme tous les chemins mènent à Rome avec Excel, voici ma proposition SANS VBA
Comme la formule est peu complexe, j'ai joins un petit mémo qui explique comment cela fonctionne.
A toutes fins utiles, je signale aussi que, sous l'onglet FORMULES, il y a un bouton "Evaluation formules" à droite qui permet de suivre l'évolution du calcul que réalise Excel dans la cellule où se trouve le curseur. C'est très pratique pour comprendre la formule et pour trouver les bugs.

Bonne continuation
Chris
 

Pièces jointes

  • adhérents-ABLAV1.xlsm
    255.2 KB · Affichages: 3
  • ADHERENTS ABLAVI.docx
    13.8 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof