VBA récuperer couleur sur boucle

Attila451

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour Attila451:), bbb38;),

Sur la base de l'exemple de bbb38, en une seule ligne de code
VB:
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
VB:
Sub Blop()
Dim couleur As Variant
couleur = Feuil1.Range("e4").Interior.ColorIndex
MsgBox couleur
End Sub
Bon week-end.
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
113

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO