VBA récuperer couleur sur boucle

[Attila451]

Bonjour,
J'ai une boucle qui me récupère des données d'une feuille vers une autre selon des critères.
Tout marche par contre, pour certaines des données à récupérer, il y a une couleur.
Dans ma boucle, les cellules sont récupérées par =sheets("Feuilxxx").cells(variable,1) mais si une cellule contient une couleur, ou du gras ou souligné comment renvoyer la mise en forme svp ?
Merci d'avance

 

[cp4]

Bonsoir,

Fais un copier/coller qui prend tout à la fois.

Bon week-end.

 

[bbb38]

Bonjour Attila451, cp4, le forum,
Un essai avec le fichier ci-joint (à modifier suivant ta convenance).
Cordialement,
Bernard

 

[cp4]

Bonjour Attila451🙂, bbb38😉,

Sur la base de l'exemple de bbb38, en une seule ligne de code

Sub copier_coller()
Feuil1.Range("e4").CurrentRegion.Copy Feuil2.Range("h4")
End Sub

toujours sur la base du fichier joint ce code renvoie l'index de la couleur de la cellule E4

Sub Blop()
Dim couleur As Variant
couleur = Feuil1.Range("e4").Interior.ColorIndex
MsgBox couleur
End Sub

Bon week-end.