Besoin d'aide pour créer une boucle en VBA

Question

Bonjour à tout le monde,

Je suis débutante en VBA et ce forum m'a beaucoup aidé jusqu'à présent.
Je rencontre cependant un probleme que je n'arrive pas à résoudre.

Je dispose de prénoms dans les cellules A6 à A29 d'une feuille nommée "mensuel".
Je voudrais inscrire chaque prénom un par un dans la cellule C39 d'une feuille nommée "journalier".
Ensuite j'éxécute un filtre que j'ai deja programmé, qui marche et qui extrait tous les renseignements en fonction du prénom.
Ce filtre extrait des données entre C48 et G48 de la feuille "journalier".
Je voudrais ensuite coller ces données de C6 à G6 de la feuille "mensuel" mais biensur en face du prénom correspondant.

J'essaie de me faire davantage comprendre avec un exemple:
J'ai 3 prénoms Luc, Georges et Mathilde dans les cellules A1, A2 et A3 de la feuille "Y".
Je veux inscrire le prénom Luc dans la cellule A1 de la feuille "X" puis éxécuter le filtre que j'ai déja enregistré. A la suite de ce filtre, je veux extraire les données inscrites de A2 à A4 dans la feuille "X" et les coller dans la feuille "Y" dans les cellules B1 à D1 en face donc du prénom Luc.
Puis extraire le prénom Georges en A2 de "Y" jusqu'à "X" dans la cellule A1, éxécuter le filtre et coller les données inscrites de A2 à A4 de "X" dans "Y" en face du prénom Georges cad de B2 à D4.
Etc.....

Je ne peux pas rentrer les données une par une en language VBA car il y a trop de prénoms et je pense qu'il doit exister une boucle.

Je vous remercie d'avance pour votre aide.

A bientot

ucfoutu · Answer

Bonjour,

Juste pour que l'on puisse y voir claire :
Quel code as-tu tenter d'exécuter (au moins) ... ?


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

cs_tobitou · Answer

J'ai essayé plusieurs codes mais je m'embrouille dans tout...Voila un peu ce que j'ai...


Do Until derniere=""
Sheets("mensuel").select
derniere = Range("mensuel!A6").End(xlDown).Address


'copier la cellule A6 puis la celulle A7 puis...puisla cellule A29 de la feuille "mensuel"
Sheets("mensuel").select
derniere = Range("mensuel!A6").End(xlDown).Address
Range("A6").Select="mensuel!A6:"& derniere
Selection.Copy


'coller dans la cellule C39 de la feuille "journalier"
Sheets("journalier").select
Range("C39").Select

'éxécuter le filtre

'copier de C48 à G48 dans la feuille "journalier"
Sheets("journalier").Select
Range("C48:G48").Select
Selection.Copy

'coller de C6 à G6 puis de C7 à G7 puis... puis de C29 à G29 dans la feuille "mensuel"
Sheets("mensuel").select
derniere = Range("mensuel!C6").End(xlDown).Address
Range("C6").Select="mensuel!C6:"& derniere
Selection.Copy

Loop

VicoLaChips2 · Answer

Ya pas à dire j'y vois claire !!

vicolachips II

Besoin d'aide pour créer une boucle en VBA

3 réponses

Votre réponse

Discussions similaires