XL 2013 Export cellule avec couleur

Staple1600

XLDnaute Barbatruc

• 6 Septembre 2015

• #2

Re : Export cellule avec couleur

Bonjour à tous

dplise563
Bienvenue sur le forum
Une idée ?
Oui, en voici une toute simple 😉
Lire la charte du forum et suivre le point 5) ci-dessous

5 – La possibilité de joindre des fichiers est donnée sur ce forum.
Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #3

Re : Export cellule avec couleur

Bonjour Staple1600,

Voila c'est fait 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Septembre 2015

• #4

Re : Export cellule avec couleur

Re

Est-ce que cette macro obtient bien le résultat escompté ?

VB:

Sub ExportTXT()
Dim FF&, rng As Range, c As Range
Set rng = Range("B3").CurrentRegion
FF = FreeFile()
Open ThisWorkbook.Path & "\" & "orange.txt" For Output As #FF
For Each c In rng
If c.Interior.ColorIndex = 44 Then
Print #FF, c.Text
End If
Next
Close #FF
End Sub

 

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #5

Re : Export cellule avec couleur

C'est parfait Staple1600,
Merci beaucoup !

Je peux me débrouiller sans, mais pense tu qu'il est possible en rajouter une condition dans la macro de garder seulement les valeurs commençant par la lettre a ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Septembre 2015

• #6

Re : Export cellule avec couleur

Re

Oui c'est possible

Code:

Sub ExportTXT_bis()
Dim FF&, rng As Range, c As Range
Set rng = Range("B3").CurrentRegion
FF = FreeFile()
Open ThisWorkbook.Path & "\" & "orange3.txt" For Output As #FF
For Each c In rng
If c.Interior.ColorIndex = 44 And Left(UCase(c), 1) = "A" Then
Print #FF, c.Text
End If
Next
Close #FF
End Sub

 

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #7

Re : Export cellule avec couleur

Au Top ! Merci pour la rapidité 😉

 

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #8

Re : Export cellule avec couleur

Re,

Dans mon fichier que j'ai up, j'ai oublié de mettre en place la mise en forme conditionnelle.
Les couleur sont attribué automatiquement grâce a cette mise en forme mais cela pose soucis avec la macro car il prends la couleur originale(donc aucune couleur) et non la couleur de la mise en forme.

Idem j'ai essayé de changer "c.Interior.ColorIndex" par "c.FormatConditions(1).Interior.ColorIndex" mais cela ne marche pas =/

Des idées ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Septembre 2015

• #9

Re : Export cellule avec couleur

Re

Dans mon fichier que j'ai up, j'ai oublié de mettre en place la mise en forme conditionnelle.

Cliquez pour agrandir...

C'est ballot, çà 😉
On peut voir quelle sont les règles de ta MFC ?
Cela devrait faire avancer le schmilblick 😉

EDITION: Comme tu utilises Excel 2013
Cette nouvelle version devrait faire le job 😉

Code:

Sub ExportTXT_ter()
Dim FF&, rng As Range, c As Range
Set rng = Range("B3").CurrentRegion
FF = FreeFile()
Open ThisWorkbook.Path & "\" & "orange4.txt" For Output As #FF
For Each c In rng
If c.DisplayFormat.Interior.ColorIndex = 44 And Left(UCase(c), 1) = "A" Then
Print #FF, c.Text
End If
Next
Close #FF
End Sub

 

Dernière édition: 6 Septembre 2015

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #10

Re : Export cellule avec couleur

Oui c'est ma faute je pensais pas que c’était important ^^
Du coup j'ai simplifié mon fichier a seulement deux couleurs.
Couleur verte a partir du 01/09
Couleur orange avant le 01/09

 

Pièces jointes

• Export couleur txt.xlsm

  19.1 KB · Affichages: 34

Vote positif 0 Vote négatif

D

dplise563

XLDnaute Nouveau

• 6 Septembre 2015

• #11

Re : Export cellule avec couleur

A parfait ! je te remercie Staple1600 😀

 

Vote positif 0 Vote négatif