Combler tableau suite

Bonjour,
Je sollicite votre aide pour réaliser une macro
TABLEAU 1 (B à BS)
Le tableau est composé de cellules vides, de cellules à fond vert avec une valeur et de cellules à fond bleu avec une valeur.
Pour chaque colonne du tableau correspond à un chiffre (colonne B = 1, colonne C = 2 ,…, colonne BS = 70).
TABLEAU 2 (BV à EM)
Le tableau est composé uniquement de cellules vides.
Pour chaque colonne du tableau correspond à un chiffre (colonne BV = 1, colonne BW = 2 ,.., colonne EM = 70).
Le but de la macro est de comblé le TABLEAU 2 par rapport au TABLEAU 1.
Exemples :
1) La macro doit chercher toutes les cellules avec une valeur et un fond vert de la ligne n°2 du TABLEAU 1.
2) Les cellules F2, H2, S2 ont une valeur et un fond vert.
3) F2 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule BZ2 du TABLEAU 2 par le chiffre 5
4) H2 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CB2 du TABLEAU 2 par le chiffre 7
5) S2 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CM2 du TABLEAU 2 par le chiffre 18
Exemples :
1) La macro doit chercher toutes les cellules avec une valeur et un fond vert de la ligne n°3 du TABLEAU 1.
2) C3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule BW3 du TABLEAU 2 par le chiffre 2
3) H3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CB3 du TABLEAU 2 par le chiffre 7
4) P3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CJ3 du TABLEAU 2 par le chiffre 15
5) R3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CL3 du TABLEAU 2 par le chiffre 17
6) S3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CM3 du TABLEAU 2 par le chiffre 18
7) V3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CP3 du TABLEAU 2 par le chiffre 21
8) AE3 du TABLEAU 1 a une valeur et un fond vert alors comblé la cellule CY3 du TABLEAU 2 par le chiffre 30
Et ainsi de suite pour toutes les cellules vides de la ligne n°2 à la ligne 7598.
J’ai essayé d’adapter la macro sans succès.
Les tableaux sont composés de 70 colonnes et 7598 lignes.
Merci d’avance pour votre aide.
GEORGE_V

Bonjour

Pourquoi reposter une 2ème fil pour le même problème ?

Bonjour,
Très bonne question dont je n'ai hélas pas la réponse.
Je suis tout à fait d'accord avec Confusius, seulement faut croire que c'est très compliquer d'apprendre à pêcher !
Bien à vous.
GEORGE_V

Bonjour,

Votre macro modifiée

Code:

---

1 2 3 4 5 6 7 8

Sub aavert() For ligne = 2 To 1581 For colonne = 2 To 71 'Si la cellule n'est pas vide et si elle est sur fond vert If Cells(ligne, colonne) <> "" And Cells(ligne, colonne).Interior.Color = RGB(0, 255, 0) Then Cells(ligne, colonne + 72) = colonne - 1 Next colonne Next ligne End Sub

---

Cdlt

Bonjour ARTURO83,
La macro que vous m’avez envoyée fonctionne très bien. Personnellement, j’aurai mis plusieurs semaines pour trouver la solution. Grâce à cette nouvelle macro, j’ai enfin compris quelques choses en VBA.
Et cela n’a pas de prix.
Je m’excuse d’avoir créer un nouveau lien pour 2 macros similaires.
En tout les cas, 1000 merci pour votre aide.
A+
GEORGE_V