Copier des cellules de 1 tab vers plusieurs feuilles

ABDELHAK

XLDnaute Occasionnel
Bonjour à tous,

Je suis novice en vba et je cherche de l’aide pour résoudre mon problème, merci d’avance.
Je vous ai déjà envoyé un « projet », mais il est + que probable que celui-ci était illisible. C’est la raison pour laquelle, je me permets de vous réenvoyé mon projet sous une autre présentation.
J’espère qu’elle sera plus lisible.

Présentation :

Fichier de 51 feuilles
La première feuille se nomme : CN
De la 2ième à la 51ième les feuilles se nomment : A, B, C,… , AW, AX

TAB 1 (feuille CN)

1ière feuille contient un tableau ( B4 : AY34 ) soit 1500 cellules.
Les cellules ont comme données des chiffres de 1 à 100 dont 20 cellules ont un fond vert.
Les colonnes sont au nombre de 50 soit 30 cellules par colonne :
( B4 : B34 ), ( C4 : C34 ), ( D4 : D34 ), ( E4 : E34 ), …,( AY4 : AY34 )

TAB 2 (feuille A) à TAB 51 (feuille AX)

De la feuille A à la feuille AX, soit 50 feuilles et 50 tableaux.
Elles ont toutes le même format
Exemple :
TAB 2 = feuille A ( B6 : AB45 ) soit 1080 cellules
Les cellules sont fusionnées (2 lignes = 1cellule du tableau)
exemple : la cellule B6 à B7 = 1 cellule du tableau
la cellule B8 à B9 = 1 cellule du tableau, etc.
le tableau « réel » = 540 cellules
Les cellules n’ont aucunes données (elles doivent en recevoir)
Les colonnes sont au nombre de 27 :
( B6 : B45 ), ( C6 : C45 ), ( D6 : D45 ), ( E6 : E45 ), …,( AY6 : AY45 )

BUT DE LA MACRO
Exemple :
TAB 1 (feuille CN) = ( B4 : AY34 ) soit 1500 cellules
Les colonnes sont au nombre de 50 soit 30 cellules par colonne :
( B4 : B34 ), ( C4 : C34 ), ( D4 : D34 ), ( E4 : E34 ), …,( AY4 : AY34 )
Chaque colonne de TAB 1 (feuille CN) correspond à une feuille de TAB 2 (feuille A) à TAB 51 (feuille AX)
Chaque cellule de TAB 1 (feuille CN) correspond une cellule de TAB 2 (feuille A) à TAB 51 (feuille AX)
But de la macro

A chaque colonnes de TAB 1 ( B4 : B34 ), ( C4 : C34 ), ( D4 : D34 ), ( E4 : E34 ), …,
( AY4 : AY34 ) correspond à une feuille.
Exemple :
Colonne 1 ( B4 : B34 ) de TAB 1 = 1ière colonne de TAB 2 (feuille A) des cellules
( B6 : B45 )
Colonne 2 ( C4 : C34 ) de TAB 1 = 1ière colonne de TAB 3 (feuille B) des cellules
( B6 : B45 )
Colonne 3 ( D4 : D34 ) de TAB 1 = 1ière colonne de TAB 4 (feuille C) des cellules
( B6 : B45 )
Colonne 4 ( E4 : E34 ) de TAB 1 = 1ière colonne de TAB 5 (feuille D) des cellules
( B6 : B45 )
…………………………………………
Colonne 49 ( AX4 : AX34 ) de TAB 1 = 1ière colonne de TAB 50 (feuille AW)
des cellules ( B6 : B45 )
Colonne 50 ( AY4 : AY34 ) de TAB 1 = 1ière colonne de TAB 51 (feuille AX)
des cellules ( B6 : B45 )

Disons que la cellule B4 à un fond vert, je veux que la macro exécute un copier coller vers la 1ière colonne de TAB 2 (feuille A) soit la cellule B6. Elle doit garder son fond vert et remplacer la valeur de B4 par le chiffre 1.

Tout cela est illustré dans la pièce jointe. Elle est incomplète sinon le fichier dépasse le poids autorisé. Du moins, c’est ce que j’ai compris.

Sur ce 1000 merci et à +.
 

Pièces jointes

  • C_N_ELAB.xls
    283 KB · Affichages: 33
  • C_N_ELAB.xls
    283 KB · Affichages: 43
  • C_N_ELAB.xls
    283 KB · Affichages: 42

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 244
Membres
105 312
dernier inscrit
DD07