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

VBA récuperer couleur sur boucle

Attila451

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

bbb38

XLDnaute Accro

Pièces jointes

cp4

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency