[VBA] faisabilité

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] faisabilité

brittanywow

jeune vierge pour vieux mr

Bonjour,

Voilà je m'interroge sur la faisabilité de la macro suivante:

Contexte:
J'ai un tableau avec des noms en ligne, des postes liés à ces noms (donc en ligne aussi) et des habilitions en colonne.
C'est à dire par exemple:

cellule A2: Nom
cellule B2: Poste 1
cellule C2: Poste 2
cellule D2: Poste 3
cellule E2: Poste 4
cellule F2: Donnée ; F1: intitué colonne
cellule G2: Donnée ; G1:intitué colonne
cellule H2: Donnée ; H1: intitué colonne
cellule I2: Donnée ; I1 : intitué colonne

Objectif:
Je voudrai savoir s'il est possible de faire une macro qui:
1/ prend chaque nom et crée un onglet par nom, onglet dont nom est le nom d'un individu du tableau décrit.
2/ Crée un tableau sur chaque onglet ayant e,ligne les postes et les colonnes restant inchangées

Question:
1/ Est-ce faisable tout simplement faisable?
2/ Si oui, une piste ou un lien me dirigeant vers un bon tuto vba.

Merci d'avance.

---------------
L'ananas que je mange là ? C'est pour ta mère.

Publicité

kiki29

Salut,je commencerai par créer une Collection ou un Dictionary pour avoir une liste sans doublons
voir http://boisgontierjacques.free.fr/ [...] ection.htm et http://boisgontierjacques.free.fr/ [...] nnaire.htm
passer par http://cjoint.com/ pour fournir un échantillon de fichier présentant les données avant puis après traitement
Tu as le macro recorder qui te dégrossira le travail , code à optimiser ensuite manuellement

Message édité par kiki29 le 14-01-2011 à 15:53:12

thefreretock

Début de l'algo pour te donner des idées...

Code :

Sub toto
dim Ligne as integer
dim MaFeuilleDepart as worksheet
dim MaFeuilleArrive as worksheet
'Mise en paramètre de ta feuille de Poste
Set MaFeuilleDepart= thisworkbook.sheets("Poste" )
'Boucle sur toute les lignes de ta feuille de Poste
for ligne=2 to MaFeuilleDepart.usedrange.rows.count
'Ajout d'une nouvelle feuille
Set MaFeuilleArrive = thisworkbook.Sheets.add
'Renommage de la feuille
MaFeuilleArrive .name=MaFeuilleDepart.cells(ligne,1)
'Appel de fonction de création de tableau avec les paramètres kivonbien
call CreationDeTableau(MaFeuilleDepart, MaFeuilleArrive, Ligne)
MaFeuilleArrive =nothing
next ligne
set MaFeuilleDepart=nothing
End sub

Me semble qu'il ne doit y avoir que la procédure CreationDeTableau à implémenter....

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] faisabilité

Sujets relatifs
[VBA access] Copie de graphique Access vers Excel	[VBA] Adapter la taille de plusieurs images pour impression
[VBA Excel 2003 - débutant] Macro et renommage d'un classeur Excell	Prgm VBA et ou Excel - RechercheV ... recherche du nom le plus long
[VBA Access] Gérer valeur null d'une requête	VBA Excel 2003 colorier cellule RGB
VBA Excel : récupérer des termes de l'instruction	[VBA - Excel] Vlookup vers un autre fichier
[VBA Access] parcourir chaine de caractères[RESOLUS]	Req sur 3 fichiers Excel - Comment s'utilise RechercheV en VBA svp ?
Plus de sujets relatifs à : [VBA] faisabilité

Page générée en 0.044 secondes