Bonjour à tous,
J’aimerais avoir un fameux coup de main pour continuer mon pt projet. Le VBA reste encore trop compliquer à comprendre.
1) PRESENTATION
J’ai plusieurs gros fichiers dont les noms sont « C_N_WIN_2000, C_N_WIN_2001, C_N_WIN_2002,…, C_N_WIN_2050 ».
Ils se composent tous de la manière suivante :
- la 1ière série, sont de grands tableaux ref. ( A6 à HX1289 )
- la 2ième série, sont de grands tableaux ref. ( A1293 à DL2576 )
les feuilles où sont stockées ces tableaux se nomment toutes « RECAP_MOIS ».
2) Description des tableaux de la 1ière série
La ligne 6 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « des dates »
La ligne 7 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « chiffres »
De la ligne 8 à 1288 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « chiffre 1 fond vert ou cellules vides »
La ligne 1289 : les cellules contiennent les sommes des colonnes ( B8 – B1288, C8 – C1288, …, HX8 – HX1288 )
3) Description des tableaux de la 2ième série
La ligne 1293 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « des dates »
La ligne 1294 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « chiffres »
De la ligne 1295 à 2575 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « chiffre 1 fond vert ou cellules vides »
La ligne 2576 : les cellules contiennent les sommes des colonnes ( B1295 – B2575, C1295 – C2575, …, DL1295 – DL2575 ).
Les cellules, de la colonne A des 2 séries contiennent des valeurs alphanumériques « A1, A2, A3, A4, …, FD6, FD7, FD8 »
J’ai créer un autre fichier « TRANSFERT_WIN »
1ière feuille « EMP_WIN » : facultatif
2ième feuille « EMP_PROP » : série de 10 valeurs alphanumériques par ligne sur 200 lignes au total
3ième feuille à 200ième : « 1, 2, 3, 4,…,198, 199, 200 »
But de la macro
1)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER « TRANSFERT_WIN »
- ALLER A LA 1ière LIGNE OU SE TROUVE LA 1ière SERIE CONTENANT 10 valeurs alphanumériques
- FAIRE UN COPIER/COLLER DES LIGNES 6 ET 7 DU FICHIER « C_N_WIN_2000 »
- DANS CE MEME FICHIER « C_N_WIN_2000 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
- FAIRE UN COPIER/COLLER DES LIGNES 1293 ET 1294 DU FICHIER « C_N_WIN_2000 »
- DANS CE MEME FICHIER « C_N_WIN_2000 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
2)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER « TRANSFERT_WIN »
- ALLER A LA 1ière LIGNE OU SE TROUVE LA 1ière SERIE CONTENANT 10 valeurs alphanumériques
- FAIRE UN COPIER/COLLER DES LIGNES 6 ET 7 DU FICHIER « C_N_WIN_2001 »
- DANS CE MEME FICHIER « C_N_WIN_2001 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
- FAIRE UN COPIER/COLLER DE LA LIGNE 1293 ET 1294 DU FICHIER « C_N_WIN_2001 »
- DANS CE MEME FICHIER « C_N_WIN_2001, CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
3)
- ET EXECUTER CETTE PROCEDURE JUSQU’AU FICHIER « C_N_WIN_2050 »
4)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER TRANSFERT_WIN »
- ALLER A LA 2ième LIGNE OU SE TROUVE LA 2ième SERIE CONTENANT 10 valeurs alphanumériques
- RECOMMENCER LA PROCEDURE CI-DESSUS POUR LES 200 LIGNES
En vous remerciant à l’avance, j’espère avoir été claire dans mon explication.
Je joins à cette requête un fichier qui j’espère vous aidera à mieux comprendre
Dans tous les cas des milliers de merci pour ce que vous faîtes.
Amicalement vôtre
ABDELHAK
J’aimerais avoir un fameux coup de main pour continuer mon pt projet. Le VBA reste encore trop compliquer à comprendre.
1) PRESENTATION
J’ai plusieurs gros fichiers dont les noms sont « C_N_WIN_2000, C_N_WIN_2001, C_N_WIN_2002,…, C_N_WIN_2050 ».
Ils se composent tous de la manière suivante :
- la 1ière série, sont de grands tableaux ref. ( A6 à HX1289 )
- la 2ième série, sont de grands tableaux ref. ( A1293 à DL2576 )
les feuilles où sont stockées ces tableaux se nomment toutes « RECAP_MOIS ».
2) Description des tableaux de la 1ière série
La ligne 6 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « des dates »
La ligne 7 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « chiffres »
De la ligne 8 à 1288 : les cellules, des colonne B à colonne HX, contiennent comme valeurs « chiffre 1 fond vert ou cellules vides »
La ligne 1289 : les cellules contiennent les sommes des colonnes ( B8 – B1288, C8 – C1288, …, HX8 – HX1288 )
3) Description des tableaux de la 2ième série
La ligne 1293 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « des dates »
La ligne 1294 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « chiffres »
De la ligne 1295 à 2575 : les cellules, des colonne B à colonne DL, contiennent comme valeurs « chiffre 1 fond vert ou cellules vides »
La ligne 2576 : les cellules contiennent les sommes des colonnes ( B1295 – B2575, C1295 – C2575, …, DL1295 – DL2575 ).
Les cellules, de la colonne A des 2 séries contiennent des valeurs alphanumériques « A1, A2, A3, A4, …, FD6, FD7, FD8 »
J’ai créer un autre fichier « TRANSFERT_WIN »
1ière feuille « EMP_WIN » : facultatif
2ième feuille « EMP_PROP » : série de 10 valeurs alphanumériques par ligne sur 200 lignes au total
3ième feuille à 200ième : « 1, 2, 3, 4,…,198, 199, 200 »
But de la macro
1)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER « TRANSFERT_WIN »
- ALLER A LA 1ière LIGNE OU SE TROUVE LA 1ière SERIE CONTENANT 10 valeurs alphanumériques
- FAIRE UN COPIER/COLLER DES LIGNES 6 ET 7 DU FICHIER « C_N_WIN_2000 »
- DANS CE MEME FICHIER « C_N_WIN_2000 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
- FAIRE UN COPIER/COLLER DES LIGNES 1293 ET 1294 DU FICHIER « C_N_WIN_2000 »
- DANS CE MEME FICHIER « C_N_WIN_2000 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
2)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER « TRANSFERT_WIN »
- ALLER A LA 1ière LIGNE OU SE TROUVE LA 1ière SERIE CONTENANT 10 valeurs alphanumériques
- FAIRE UN COPIER/COLLER DES LIGNES 6 ET 7 DU FICHIER « C_N_WIN_2001 »
- DANS CE MEME FICHIER « C_N_WIN_2001 », CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
- FAIRE UN COPIER/COLLER DE LA LIGNE 1293 ET 1294 DU FICHIER « C_N_WIN_2001 »
- DANS CE MEME FICHIER « C_N_WIN_2001, CHERCHER LES VALEURS CORRESPONDANTES ET EXECUTER UN COPIER/COLLER DE LA LIGNE ENTIERE CORRESPONDANTE VERS LA FEUILLE « 1 « DU FICHIER « TRANSFERT_WIN »
3)
- ET EXECUTER CETTE PROCEDURE JUSQU’AU FICHIER « C_N_WIN_2050 »
4)
- ACTIVER LA FEUIL. « EMP_WIN » DU FICHIER TRANSFERT_WIN »
- ALLER A LA 2ième LIGNE OU SE TROUVE LA 2ième SERIE CONTENANT 10 valeurs alphanumériques
- RECOMMENCER LA PROCEDURE CI-DESSUS POUR LES 200 LIGNES
En vous remerciant à l’avance, j’espère avoir été claire dans mon explication.
Je joins à cette requête un fichier qui j’espère vous aidera à mieux comprendre
Dans tous les cas des milliers de merci pour ce que vous faîtes.
Amicalement vôtre
ABDELHAK
