VBA récuperer couleur sur boucle

Attila451 · 21 Décembre 2018

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 · 21 Décembre 2018

Bonsoir,

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

Bon week-end.

bbb38 · 22 Décembre 2018

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

cp4 · 22 Décembre 2018

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.

VBA récuperer couleur sur boucle

Attila451

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

bbb38

XLDnaute Accro

Pièces jointes

cp4

XLDnaute Barbatruc

Discussions similaires