Liste déroulante / onglets vba
Résolu
mmxa1995
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
mmxa1995 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
mmxa1995 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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,
A voir également:
- Liste déroulante / onglets vba
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Liste code ascii - Guide
- Restaurer les onglets chrome - Guide
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
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
mmxa1995
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
super merci Melanie