Liste déroulante / onglets vba
Résolu/Fermé
mmxa1995
Messages postés
28
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
21 avril 2016
-
12 avril 2016 à 13:10
mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 13 avril 2016 à 14:10
mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 13 avril 2016 à 14:10
A voir également:
- Liste déroulante / onglets vba
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Restaurer onglets chrome - Guide
- Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
- Supprimer liste déroulante excel - Forum Réseaux sociaux
1 réponse
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
13 avril 2016 à 13:50
13 avril 2016 à 13:50
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
13 avril 2016 à 14:10