Copier une colonne de date avec trois couleurs différentes d'un classeur à un autre dans Excel - vba, excel-vba, excel-2007, excel

J'essaie de transférer les entrées dans une datecolonne d'un classeur à un autre à l'aide de Vlookup. Je pourrais simplement transférer les données dans la cellule, pas le code de couleur. Est-il possible de transférer le code de couleur de chaque cellule avec les données?

J'ai trois couleurs différentes RED, GREEN etJAUNE qui correspond à Inachevé, Complet et En cours, respectivement. Après avoir transféré le code de couleur des cellules, je devrais pouvoir le modifier manuellement si le processus est terminé.

Réponses:

Voici le code qui sera s'il y a correspondance dans uncolonne copier la couleur sur. Ne pas utiliser un Vloopup comme cela semblait un peu inutile si vous avez déjà la liste que vous souhaitez vérifier. S'il n'y a pas de correspondance, la couleur par défaut reste la même.

Dim i As Integer
Dim a As Range

For i = 1 To WorksheetFunction.CountA(Columns("C"))
On Error GoTo NextOne
Set a = Cells(WorksheetFunction.Match(Range("C" & i), Range("B1:B6"), 0), "B")
Range("C" & i).Interior.Color = a.Interior.Color

NextOne:
Resume nextOne2
nextOne2:
Next i

Vous devrez faire référence au classeur que vous souhaitez utiliser. Vous devrez rechercher comment référencer des classeurs. Et changez les colonnes où se trouvent les données.