Base de donnees repartie sur Plusieurs page...s
J'ai un BiG soucis ^^
J'ai un fichier contenant 126 pages... Notée de 1 à 126, chacune d'elle contient 8 colonnes et +/- 150 à 200 lignes...
Lorsque que je les réuni les unes a la suite des autres, je n'ai plus de référence, si ce n'est leur ordre d'affichage...
Je le Fait avec cette macro :
Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "BDD" Then
sh.[A1].Resize(sh.[A65536].End(xlUp).Row, 8).Copy Destination:=Worksheets("BDD Chrono").[A65536].End(xlUp).Offset(1, 0)
End If
Next sh
End SubJ'ai importé toutes ces pages du Web et elles possèdent donc un nom...
Je voudrais que sur chaque page, ce juxtapose un acronyme dans la première colonne, associé donc a la reference sous la forme :
Papa (ex) ou Papa (bis) ou Papa (tiers) de manière a différencier les Papas, lors du liste déroulante intégrée
Du Fait du nombre de page, il se peut donc que j'ai 10 Papa a identifier :'(
voici l'ordre de mes 126 page a integrer lors du scraping... ou A ajouter a chaque page... de 1 à 126
Dragon's Maze
Gatecrash
Return to Ravnica
Avacyn Remagicd
Dark Ascension
Innistrad
New Phyrexia
Mirrodin Besieged
Scars of Mirrodin
Rise of the Eldrazi
Worldwake
Zendikar
Alara Reborn
Conflux
Shards of Alara
Eventide
Shadowmoor
Morningtide
Lorwyn
Future Sight
Planar Chaos
Timeshifted
Time Spiral
Coldsnap
Dissension
Guildpact
Ravnica
Saviors of Kamigawa
Betrayers of Kamigawa
Champions of Kamigawa
Fifth Dawn
Darksteel
Mirrodin
Scourge
Legions
Onslaught
Judgment
Torment
Odyssey
Apocalypse
Planeshift
Invasion
Prophecy
Nemesis
Mercadian Masques
Urza's Destiny
Urza's Legacy
Urza's Saga
Exodus
Stronghold
Tempest
Weatherlight
Visions
Mirage
Alliances
Homelands
Ice Age
Fallen Empires
The Dark
Legends
Antiquities
Arabian Nights
Magic 2014 (M14)
Magic 2013 (M13)
Magic 2012 (M12)
Magic 2011 (M11)
Magic 2010
10th Edition
9th Edition
8th Edition
7th Edition
Classic Sixth Edition
Fifth Edition
Fourth Edition
Revised Edition
Unlimited Edition
Beta Edition
Alpha Edition
Modern Masters
From the Vault: Dragons
From the Vault: Exiled
From the Vault: Realms
From the Vault: Relics
Duel Decks: Divine vs. Demonic
Duel Decks: Elspeth vs. Tezzeret
Duel Decks: Elves vs. Goblins
Duel Decks: Garruk vs. Liliana
Duel Decks: Izzet vs. Golgari
Duel Decks: Jace vs. Chandra
Duel Decks: Phyrexia vs. The Coalition
Duel Decks: Sorin vs. Tibalt
Premium Deck Series: Slivers
Premium Deck Series: Fire and Lightning
Starter 1999
Starter 2000
Portal
Portal Second Age
Portal Three Kingdoms
Archenemy
Battle Royale Box Set
Beatdown Box Set
Chronicles
Commander
Planechase
Planechase 2012
Unglued
Unhinged
Vanguard
APAC Lands
Arena Promos
Champs Promos
European Lands
FNM Promos
Game Day Promos
Gateway Promos
Guru Lands
JSS/MSS Promos
Judge Promos
Launch Party Cards
Magic Player Rewards
Media Promos
Prerelease Cards
Pro Tour Promos
Release Event Cards
Special Occasion
WPN Promos
Bref, z'avez une ruse ??
Me sens tout con d'un cou p ^^
Merci par avance,
Bertrand
Bonjour
Envoies ton fichier "allégé" (comportant 2 ou 3 feuilles) avec des explications claires et les résultats attendus.
Un minimum pour recevoir l'aide du forum.
A te relire.
bonjour,
si j'ai bien compris tu veux dans ta feuille BDD, en colonne A, le contenu de la colonne et le nom de la feuille d'où a été copiée la donnée.
voici la macro, qui fait ce que j'ai compris !
Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "BDD" Then
' derlig nombre de lignes à copier
derlig = sh.Range("a" & sh.Rows.Count).End(xlUp).Row
'derlibbdd numero de la première ligne vide dans BBD
derligBDD = Worksheets("BDD").Range("a" & sh.Rows.Count).End(xlUp).Row
' copier la feuille dans BDD
sh.[A1].Resize(sh.[A65536].End(xlUp).Row, 8).Copy Destination:=Worksheets("BDD").[A65536].End(xlUp).Offset(1, 0)
'corriger la colonne 1 pour toutes les lignes copiées
For i = 0 To derlig-1
Worksheets("BDD").Cells(i + derligBDD, 1) = sh.Cells(i, 1) & "(" & sh.Name & ")"
Next i
End If
Next sh
End SubAlors j'ai alleger un fichier pour l'exemple ne laissant que 4 feuille.
Cependant sur celles-ci on peut trouver des occurrences en double voir Triple...
Mon But etant d'avoir une Xieme Page me permettant de rentrer une collection et donc de pouvoir selectionner quel est l'edition de ma carte (c'est un jeu de carte)
Voici un fichier joint :
https://www.cjoint.com/c/CFDrgwnMiFd
Il me faudra donc créer un menu deroulant avec choix multiple, en gardant les x pages déjà créés...
J'ai déjà réalisé un autre tableau avec ce choix mais j'avais alors renseigné l'inventaire sur une seule colonne, ce que je trouve peu pratique......
L'ideal sera de pouvoir attribuer une propriété (comme un tag) a chaque carte présente sur une dite feuille, pour pouvoir la renseigner par la suite danc mon fichier collection
Merci de vos conseil, j'avance peu^à peu sur le VBA ^^
Bertrand
J'ai pensé aussi cette nuit a une autre possibilité...
Menu déroulant imbriqué...
case 1) Recherche d'une carte = Brainstorm
case 2) Recherche d'edition correspondante = ice age, mercadia etc
optionnel case 3) Insertion bouton Radio "Foil" = Y/No coché /decoché
Résultat case 4 ) Recherchev avec les critères définis précédemment renvoyant a tel ou telle page de mon classeur...
Me suis creusé pour tout ca ^^
Ca c'est ce que j'ai déjà fait avec une fonction foil oui/non...
Le truc c'est que je veux utiliser une autre BDD actualisée plus souvent mais avec 125 pages au lieu de celle ci qui n'a qu'une liste.. l'autre etant plus precise
Bonjour Messieurs,
Un Petit UP pour Savoir si c'est faisable ou si une base de données doit être strictement sur une seule page ??
J'ai songé à trier ces 125 Feuillets des primordiaux aux futiles mais bon... Ca ne m'en ferai sauter qu'une petite dizaine ou quinzaine...
Une opinion ? Pê dois-je me tourner vers Access pour la BDD la stocker en Cloud puis y Lier un fichier excel ??
Merci de votre avis et a plus tard Online
Bertrand