Discussion :

[yaybam]

Bonjour.
j'ai un classeur excel contenant plusieurs feuilles. J'aimerais en extraire des informations pour les intégrer dans une feuille recap.
dans un premier temps extraire la premier colonne de chaque feuille et les copier à la suite dans une colonne de ma feuille recap, puis indexé les valeurs de cette colonne pour remplir les autres cellules toujours dans la feuille recap.
Je suis un néophyte en macro, j'ai donc besoin de votre aide.
Cordialement

[mjpmjp]

bonjour,

ta question concerne le "code" et donc VBA,
c'est mieux de poser ta question dans "Macros et VBA Excel"

pour la suite dans le menu (au dessus) utilise "#" pour afficher ton code

procède par petit bout

dans un premier temps extraire la premier colonne

recherche VBA "Columns" , et sur le web lien msdn.microsoft.com

tu y trouveras ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'Cet exemple montre comment mettre en gras la police de la colonne 1 (colonne A) sur la feuille Sheet1.
Worksheets("Sheet1").Columns(1).Font.Bold = True

qui parle de colonne --> Columns(1) de la feuille --> Worksheets("Sheet1") , mais pas de copie...

utilise également l'enregistreur de macros...

@+JP

[Menhir]

Faire un For Each sur la collection Worksheets pour scruter chaque feuille.
Vérifier que la feuille scrutée ne s'appelle pas "recap".
Faire un Copy de Range sur les données de la première colonne avec comme destination la suite des valeurs déjà renseignées dans la feuille "recap".
Pour trouver la dernière valeur d'une liste, utiliser la Propriété End, de préférence avec xlUp comme paramètre en l'appliquant au Range de la dernière cellule. Range("A" & Rows.Count).End(xlUp). Cette méthode permet à la fois de déterminer la zone à copier pour la source et la position de la copie pour la destination.
https://msdn.microsoft.com/fr-fr/lib.../gg264596.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff821537.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff196974.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx