Liste déroulante / onglets vba
Résolu
mmxa1995
Messages postés
30
Statut
Membre
-
mmxa1995 Messages postés 30 Statut Membre -
mmxa1995 Messages postés 30 Statut Membre -
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,
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,
1 réponse
-
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
