OVH Cloud OVH Cloud

inverser une mise en forme conditionnelle...

6 réponses
Avatar
SchyZo
Bonjour,
J'ai un immense tableau de donn=E9es contenant environ 17=20
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML g=E9n=E9r=E9e par une=20
requ=E8te en php...bref !
J'ai donc certaines lignes de ce tableau qui apparaissent=20
en rouge, d'autres en bleues, d'autres en vertes et tout=20
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec=20
uniquement les lignes vertes, un autre avec le rouge,=20
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une id=E9e....merci d'avance ! ;o)
SchyZo

6 réponses

Avatar
Ellimac
Bonjour,

Avec l'enregistreur de macros tu dois pouvoit bien
dégrossir.
- Faire un 1er filtre automatique pour extraire ce qui
correspond à la 1ère condition.
- Ctrl * pour sélectionner toute la zone
- Alt ; pour sélectionner les cellules visibles
- Copier
- Ajouter une nouvelle feuille et coller
- Revenir dans la 1ère feuille et passer à la 2ème
condition...

Camille

-----Message d'origine-----
Bonjour,
J'ai un immense tableau de données contenant environ 17
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML générée par une
requète en php...bref !
J'ai donc certaines lignes de ce tableau qui apparaissent
en rouge, d'autres en bleues, d'autres en vertes et tout
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec
uniquement les lignes vertes, un autre avec le rouge,
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une idée....merci d'avance ! ;o)
SchyZo
.



Avatar
AV
En supposant (à adapter) ta plage à examiner en A1:G1000 de "Feuil1" :
Pour extraire les rouges :

Sub zz_extract_Rouge()
Sheets.Add.Name = "Rouges"
For Each c In Sheets("Feuil1").[A1: A1000]
If c.Interior.ColorIndex = 3 Then
With Sheets("Rouges")
c.Range("A1:G1").Copy (.[A65536].End(3)(2))
End With
End If
Next
End Sub

PS : attention aux index de couleurs !
Pour savoir à quoi correspond les "rouge", sélectionner une cellule "rouge" et
exécuter cette macro :

Sub testCoul()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Modifier (éventuellement) le "ColorIndex" de la proc précédente pour extraction
des "rouges"
Pour les autres couleurs, faire x proc semblables, en modifiant le noms des
feuilles à ajouter et le "ColorIndex"

AV
Avatar
SchyZo
Merci de ta réponse si rapide...mais ça ne peut pas
marcher...
En réalité, la requète php du départ consistait à établir
les différences entre 2 listes de sociétés. La page
affichée en php était donc un gros tableau avec des
couleurs pour définir les différences et les
ressemblances. Donc je ne peux pas utiliser Excel pour
faire cette comparaison...tout ce que je peux faire, c'est
utiliser ce grand tableau HTML...
N'y a-t'il aucun moyen de sélectionner par exemple
uniquement les lignes écrites en rouge ?
Je ne sais pas comment faire !
Help :'(

SchyZo
-----Message d'origine-----
Bonjour,

Avec l'enregistreur de macros tu dois pouvoit bien
dégrossir.
- Faire un 1er filtre automatique pour extraire ce qui
correspond à la 1ère condition.
- Ctrl * pour sélectionner toute la zone
- Alt ; pour sélectionner les cellules visibles
- Copier
- Ajouter une nouvelle feuille et coller
- Revenir dans la 1ère feuille et passer à la 2ème
condition...

Camille

-----Message d'origine-----
Bonjour,
J'ai un immense tableau de données contenant environ 17
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML générée par une
requète en php...bref !
J'ai donc certaines lignes de ce tableau qui
apparaissent


en rouge, d'autres en bleues, d'autres en vertes et tout
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec
uniquement les lignes vertes, un autre avec le rouge,
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une idée....merci d'avance ! ;o)
SchyZo
.

.





Avatar
Pascal Engelmajer
Salut,
pour ce genre de truc j'utiliserai Word
D'abord convertir tableau en texte (sans tabulation)
avec Remplacer...
tous les espace par §
toutes les marques de fin de paragraphe par marque de paragraphe précédée de
&&&
tous les <(*)&&& bleu par bbb:1
puis les <(*)&&& rouge par rrr:1
etc.
ensuite trier
puis convertir texte en tableau (un bleu, un rouge, ...)
puis remplacer bbb: par rien ...
Bon courage
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"SchyZo" a écrit dans le message de
news: 077101c3d39c$94433fe0$
Bonjour,
J'ai un immense tableau de données contenant environ 17
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML générée par une
requète en php...bref !
J'ai donc certaines lignes de ce tableau qui apparaissent
en rouge, d'autres en bleues, d'autres en vertes et tout
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec
uniquement les lignes vertes, un autre avec le rouge,
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une idée....merci d'avance ! ;o)
SchyZo
Avatar
Pascal Engelmajer
Salut,
si le tableau est en html ...
il faut voir un bout du source faisant apparaitre des lignes de couleurs
différentes.
la conversion d'un tableau html par word ou excel chaleur !!!
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"SchyZo" a écrit dans le message de
news: 050c01c3d3a3$19ab42d0$
Merci de ta réponse si rapide...mais ça ne peut pas
marcher...
En réalité, la requète php du départ consistait à établir
les différences entre 2 listes de sociétés. La page
affichée en php était donc un gros tableau avec des
couleurs pour définir les différences et les
ressemblances. Donc je ne peux pas utiliser Excel pour
faire cette comparaison...tout ce que je peux faire, c'est
utiliser ce grand tableau HTML...
N'y a-t'il aucun moyen de sélectionner par exemple
uniquement les lignes écrites en rouge ?
Je ne sais pas comment faire !
Help :'(

SchyZo
-----Message d'origine-----
Bonjour,

Avec l'enregistreur de macros tu dois pouvoit bien
dégrossir.
- Faire un 1er filtre automatique pour extraire ce qui
correspond à la 1ère condition.
- Ctrl * pour sélectionner toute la zone
- Alt ; pour sélectionner les cellules visibles
- Copier
- Ajouter une nouvelle feuille et coller
- Revenir dans la 1ère feuille et passer à la 2ème
condition...

Camille

-----Message d'origine-----
Bonjour,
J'ai un immense tableau de données contenant environ 17
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML générée par une
requète en php...bref !
J'ai donc certaines lignes de ce tableau qui
apparaissent


en rouge, d'autres en bleues, d'autres en vertes et tout
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec
uniquement les lignes vertes, un autre avec le rouge,
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une idée....merci d'avance ! ;o)
SchyZo
.

.





Avatar
Pascal Engelmajer
Salut,
j'ai testé avec un source type <font color="red">ligne rouge </font>
un copié-collé du html dans Word
ça marche ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
pour ce genre de truc j'utiliserai Word
D'abord convertir tableau en texte (sans tabulation)
avec Remplacer...
tous les espace par §
toutes les marques de fin de paragraphe par marque de paragraphe précédée
de

&&&
tous les <(*)&&& bleu par bbb:1
puis les <(*)&&& rouge par rrr:1
etc.
ensuite trier
puis convertir texte en tableau (un bleu, un rouge, ...)
puis remplacer bbb: par rien ...
Bon courage
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"SchyZo" a écrit dans le message de
news: 077101c3d39c$94433fe0$
Bonjour,
J'ai un immense tableau de données contenant environ 17
000 lignes avec des noms, adresses, etc...
Ce fichier provient d'une page HTML générée par une
requète en php...bref !
J'ai donc certaines lignes de ce tableau qui apparaissent
en rouge, d'autres en bleues, d'autres en vertes et tout
le reste en noir.
Je voudrais extraire de ce tableau 3 tableaux : un avec
uniquement les lignes vertes, un autre avec le rouge,
etc...
Comment faire sachant que j'y connais rien en VB ?
Si quelqu'un a une idée....merci d'avance ! ;o)
SchyZo