Ajout de plsrs feuilles et recupere des données sur plsrs feuilles
souk69
Messages postés12Date d'inscriptionlundi 13 mars 2006StatutMembreDernière intervention25 avril 2006
-
5 avril 2006 à 18:45
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007
-
7 avril 2006 à 15:07
Bonjour, j'ai 2 ti pb qui sont les suivants
1- je souhaiterais savoir s'il y a un code me permettant d'ajouter un nombre predefini de feuilles dans un classeur -
2 - J'ai un classeur avec x feuilles. Chaque contient des informations sur un site ( adresse, nom, ....)
Donc afin de faire la synthèse de tout les sites, je souhaite savoir comment je peux recuperer les données qui me sont necessaires pour faire ma synthese sur chacune des feuilles...
je ne sais pas si j'ai ete assez claire dans mes explications
En vous remerciant ....
A voir également:
Ajout de plsrs feuilles et recupere des données sur plsrs feuilles
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007 5 avril 2006 à 19:19
Bonjours,
1- Oui il y a un code, j'espère avoir correctement répondu à ta
question (c'est facile mais ça me faire rire), bienque tu ne le
demandes pas, je te le donne:
For i = 1 to Nbr_Déterminé_de_Feuilles_a_Ajouter
Sheets.Add
Next i
Ps tu peux les nommer au fur et à mesure en ajoutant dans ta boucle
ActiveSheet.Name = "CeQueTuVeux " & i
2- je ne comprend pas ce que tu veux faire peux tu préciser? Quelle est
la taille des données que tu veux récupérer (1 cellule, une ligne, une
colone, une plage) ou veux tu les mettre (sur une feuille nouvelle
"synthèse", sur chaque feuille de ton classeur, ...).
MAXIMO71
PS Si la réponse vous satistait
pensez à la valider
souk69
Messages postés12Date d'inscriptionlundi 13 mars 2006StatutMembreDernière intervention25 avril 2006 6 avril 2006 à 08:38
Merci pour ta 1ere reponse c sur que c pas tres difficile
sinon pour la deuxieme question pour schematiser un peu c sur chaque feuille est donnée par exemple un site avec son adresse, et des informations diverses et je veux rapatrier sur une feuille nommée "synthese" certaines informations en gros c'est recuperr les valeurs de certaines cellules sur chaque feuille pour les mettre dans la feuille synthese, afin de creer un base de données"
voila, je ne sais pas si j'ai ete assez claire cette fois ci
et tous cas merci pour ta^permière reponse
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007 7 avril 2006 à 15:07
Sub allo()
Set AW = ActiveWorkbook
Set chit = AW.Worksheets
'Cette routine vérifie qu'il existe bien une feuille nommé
'synthese dans le workbook actif et la place en dernière position
'dans la liste des worksheets
a = chit.Count
test = False
For Each chit In AW.Worksheets
If chit.Name = "Synthese" Then
If chit.Index <> a Then
test = True
chit.Move After:=Sheets(a)
End If
End If
Next chit
'Si il n'y a pas de feuille "Synthese, on la crée et on la place en dernière position
If test = False Then
Sheets.Add
ActiveSheet.Name = "Synthèse"
ActiveSheet.Move After:=Sheets(a + 1)
End If
a = chit.Count
test = False
i = 0
For Each chit In AW.Worksheets
'Il te faut mettre une boucle pour aligner les résultat dans synthèse
'Par exemple si ta zone de donnée se répète toute les 12 lignes
'tu peux utiliser un truc genre ligne = 1 +12*i
'Worksheets("Synthèse")."Ta zone qui reçoit les valeurs".value = "Ta zone contenat les valeurs".value
i = i + 1
Next chit
End Sub
Bon alors la il faut soit que tu te débrouille pour adapter le code
soit tu comprends ce que j'attends et tu me le donne et je peux t'aider
en tout cas bon courage, c'est un plaisir.
MAXIMO71
PS Si la réponse vous satistait
pensez à la valider