format de cellules à récupérer

Le
benoult
Bonjour,

ci-dessous un bout de macro qui a pour but de récupérer des
commentaires d'une feuille sur une autre.
la récup se fait bien, mais je n'arrive pas à trouver le code qui
convient pour récupérer le format (la couleur).

Merci pour l'astuce

Sub recupcommentaires()
Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To
5000), com4(1 To 5000), com5(1 To 5000) As Variant


Sheets("commentaires").Select
nl = Cells(1, 1).End(xlDown).Row
For i = 1 To nl
lign(i) = Cells(i, 1).Value
com1(i) = Cells(i, 2).Value
com2(i) = Cells(i, 3).Value
com3(i) = Cells(i, 4).Value
com4(i) = Cells(i, 5).Value
com5(i) = Cells(i, 6).Value

Next

Sheets("synthese orderbook").Select
nd = Cells(4, 3).End(xlDown).Row
For i = 4 To nd
For j = 1 To nl
li = Cells(i, 3).Value
If li = lign(j) Then
Cells(i, 150).Value = com1(j)
Cells(i, 151).Value = com2(j)
Cells(i, 152).Value = com3(j)
Cells(i, 153).Value = com4(j)
Cells(i, 154).Value = com5(j)

GoTo line0
End If
Next
line0:
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #16523891
Bonjour,
La couleur de fond de la cellule sera donnée par :
Cells(i, 1).interior.colorindex
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
news:
Bonjour,

ci-dessous un bout de macro qui a pour but de récupérer des
commentaires d'une feuille sur une autre.
la récup se fait bien, mais je n'arrive pas à trouver le code qui
convient pour récupérer le format (la couleur).

Merci pour l'astuce

Sub recupcommentaires()
Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To
5000), com4(1 To 5000), com5(1 To 5000) As Variant


Sheets("commentaires").Select
nl = Cells(1, 1).End(xlDown).Row
For i = 1 To nl
lign(i) = Cells(i, 1).Value
com1(i) = Cells(i, 2).Value
com2(i) = Cells(i, 3).Value
com3(i) = Cells(i, 4).Value
com4(i) = Cells(i, 5).Value
com5(i) = Cells(i, 6).Value

Next

Sheets("synthese orderbook").Select
nd = Cells(4, 3).End(xlDown).Row
For i = 4 To nd
For j = 1 To nl
li = Cells(i, 3).Value
If li = lign(j) Then
Cells(i, 150).Value = com1(j)
Cells(i, 151).Value = com2(j)
Cells(i, 152).Value = com3(j)
Cells(i, 153).Value = com4(j)
Cells(i, 154).Value = com5(j)

GoTo line0
End If
Next
line0:
Publicité
Poster une réponse
Anonyme