XL 2013 Export cellule avec couleur

[dplise563]

Bonjour,

Je travaille actuellement sur un fichier excel, je cherche à l'aide d'une macro d'exporter les cellules qui ont une couleur de fond vers un fichier texte (txt).
Pour être plus précis ma feuille excel comporte des cellules avec plusieurs couleurs de fond (rouge,vert,orange,..). Les valeurs que je dois exporter sont sur un fond Orange.

J'ai essayé de m'orienter vers une commande "If cell.Interior.ColorIndex=" mais je bloque.

Voila si vous avez des idées pour m'aider je suis preneur.

Merci !

 

[Staple1600]

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.

 

[dplise563]

Re : Export cellule avec couleur

Bonjour Staple1600,

Voila c'est fait

 

[Staple1600]

Re : Export cellule avec couleur

Re

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

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

 

[dplise563]

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 ?

 

[Staple1600]

Re : Export cellule avec couleur

Re

Oui c'est possible

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

 

[dplise563]

Re : Export cellule avec couleur

Au Top ! Merci pour la rapidité

 

[dplise563]

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 ?

 

[Staple1600]

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.

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

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

 

[dplise563]

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

 

[dplise563]

Re : Export cellule avec couleur

A parfait ! je te remercie Staple1600