liste déroulante / onglets vba Résolu/Fermé

Question

Bonjour à tous, 

je dispose d'un fichier avec deux onglets:
1 onglet : Pays AVEC une liste déroulante (Espagne, France, allemange)
2 ongle: zone avec une liste déroulante (a b c d e f)

je souhaite créer 3 fichiers séparés selon le pays et ajouter dans chaque fichier les onglets a b c d e f 

merci et bonne journée,

melanie1324 · Answer

Bonjour, Essaie ca : sub creationclasseur () source =activeworkbook.name 'sélection de la feuille pays sheets("Pays").select i=2 'j'imagine que la colonne pays est dans la colonne 1 et ligne variable i et qu'elle est non vide do while cells(i,1) <>"" Workbooks.Add ActiveWorkbook.SaveAs ActiveWorkbook.Path & source.Sheets("Pays"). cells(i,1) &".xls" 'on va prendre le 2ème onglet avec ligne j et colonne 1 pour ajouter les onglets activesheet.name = source.sheets(2).cells(2,2) j=3 do while source.sheets(2).cells(j,2) <> "" Sheets.Add Activesheet.name =source.sheets(2).cells(j,2) j=j+1 loop ActiveWorkbook.Close i=i+1 loop end sub

Liste déroulante / onglets vba

1 réponse

Discussions similaires