extraire des cellule ecrites en bleues

[sonskriverez]

Bonjour,

J'ai une feuille de 3800 lignes dans la colonne D il y a soit des cellules écrites en bleues, soit en ecrites rouges, soit vides, soit écites en noires.

Je voudrais en VBA extraires toutes les lignes dont la cellule D est écrite en bleu et les copier dans une nouvelle feuille.

merci de votre aide

ci-joint un petit exemple [file name=essais_20051029100834.zip size=1723]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20051029100834.zip[/file]

 

[porcinet82]

Salut sonskriverez,

Regarde le fichier joint, il devrait faire ce que tu souhaites. Par contre j'en profite pour poser une petite question, donc si une âme charitable venait a la voire ce serait sympa d'y répondre.
Lorsque l'on veut selectionner une feuille, puis une cellule dans cette feuille, le code

Sheets('feuil1').Range('D1').Select

ne fonctionne que si la feuille selectionnée est la feuille (ici) 1. Si l'on est sur une autre feuille, il met une erreur. D'ou ma question, existe-t-il une commande (en une seule ligne) dont le code fait :

Sheets('feuil1').Select
Range('D1').Select

Voici le fichier: [file name=sonskriverez.zip size=7697]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sonskriverez.zip[/file]

@+

 

[andré]

Salut sonskriverez et porcinet82

Pour les amateurs de formules !

Â+

[file name=extraction_suivant_couleur_police.zip size=2533]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/extraction_suivant_couleur_police.zip[/file]

 

[Sonskriverez]

Porcinet e André,

Merci pour votre aide précieuse cela fonctionne, mais pas parfaitememnt.

Je voudrais:

1°) selectionner toutes les lignes dont la cellule D est bleue

2°° copier l'ensemble des lignes d'un seul coup dans une nouvelle feuille.

3°) supprimer de la feuille d'origne toute la selection

Car si je le fait dans une boucle au fur et à mesure sur 3800 lignes cela va prendre du temps

Porcinet pour ton bug de ligne j'ai le même pbl

 

[porcinet82]

re Sonskriverez, salut andré,

Et bien je ne vois pas trop comment sélectionner autant de ligne en meme temps, si tu en aviais quelques une ca irait mais la je ne vois pas, et je ne sois pas du tout sur que ca ferait gagner du temps.

Par contre en ce qui concernent le fait de supprimer les lignes, tu peux utiliser une seconde macro du genre :

Sub suppr()
Dim i As Byte
Sheets('feuil1').Range('D1').Select
For i = 1 To Range('D65536').End(xlUp).Row
    If Cells(i, 4).Font.ColorIndex = 5 Then
        Rows(i).Delete
        i = i - 1
    End If
Next i
End Sub

@+

 

[Charly2]

Bonsoir sonscriverez, porcinet82 et Ândré, bonsoir le forum,

En reprenant l'idée d'André d'ajouter une colonne (connais pas la fonction LIRE.CELLULE) avec une fonction personnalisée qui renvoie un 'X' quand la couleur est bleue, je t'ai concocté un petit quelquechose en VBA.

Pour qu'elle fonctionne correctement, il faut mettre l'option 'calcul sur ordre'. Puis elle trie les données en fonction de la nouvelle colonne, recherche la dernière cellule contenant un X (bleue, quoi !) puis sélectionnes d'un coup toutes les cellules bleues et effectue les opérations que tu demandais... à vérifier :ermm:

Tiens-nous au courant.

Amicalement
Charly [file name=SonskriverezV2.zip size=9902]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SonskriverezV2.zip[/file]

 

[andré]

Salut Charly2,

LIRE.CELLULE est une ancienne fonction d'XL4.

Lis ce post, tu y apprendras beaucoup !

Lien supprimé

Â+

 

[Charly2]

Re-salut Ândré,

C'est vrai, je me souviens ! Par contre, je ne savais pas qu'on pouvais encore les utiliser... J'ai beaucoup à apprendre et je vais de ce pas voir ton lien

Amitiés
Charly

 

[lE0nard]

Bonjour le forum,
Bonjour Sonskriverez, porcinet82, Charly2, andré,

Merci andré d'avoir ressucité ce merveilleux fil et cette 'fonction' lire.cellule que j'utilise souvent avec bonheur pour la sélection selon couleur de police ou de fond de cellule!!
Désolé Sonskriverez de m'imiscer ici mais la solution proposée par barbatrucandré m'a fait jubiler!!
a+

 

[sonskriverez]

Merci à tous pour votre aide, mais je ne m'en sort pas.

Je vous joint une partie de mon fichier.( le complet fait 3880 lignes et il est un peu gros pour le poster)

pour résumé :

1°) création d'une nouvelle feuille ( pour ça c'est tout good, la macro foctionne).

2°) copie des données en bleus dans la nouvelle feuille, c'est la que cela ne marche pas et je sais pas pourquoi ?

Peut-être est-ce de décalage horaire !!!

marci du coup de main [file name=essais_20051030132815.zip size=38585]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20051030132815.zip[/file]

 

[sonskriverez]

Merci à tous pour votre aide, mais je ne m'en sort pas.

Je vous joint une partie de mon fichier.( le complet fait 3880 lignes et il est un peu gros pour le poster)

pour résumé :

1°) création d'une nouvelle feuille ( pour ça c'est tout good, la macro foctionne).

2°) copie des données en bleus dans la nouvelle feuille, c'est la que cela ne marche pas et je sais pas pourquoi ?

Peut-être est-ce de décalage horaire !!!

marci du coup de main [file name=essais_20051030132914.zip size=38585]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20051030132914.zip[/file]

 

[Charly2]

Bonsoir Sonskriverez et le fil, bonsoir le forum,

Je te propose une solution alternative qui, je pense, fonctionnera un peu plus vite qu'en scannant les cellules les unes après les autres.

Tu trouveras le code dans la procédure TraiteCellulesBleues. Elle ne te crée pas de nouvelle feuille, mais dans module 1, tu indiques les noms des feuilles sources et destination (en constantes au début du module). Avec une colonne supplémentaire qui retourne un 'X' si la cellule citée est bleue et '' dans le cas contraire.

Elle effectue les opérations suivantes :

1. Tri des cellules par le 'X' de cette colonne supplémentaire (toutes les cellules bleues se retrouvent en haut sans modifier l'ordre des autres.

2. Repérage de la zone contenant les cellules bleues

3. Copier/coller de la feuille source à la feuille destination.

Je l'ai testée sur ton fichier, elle fonctionne bien et assez rapidement.

Amicalement
Charly

 

[Charly2]

Obligé de modifier le fichier : trop gros [file name=SonskriverezV3.zip size=51002]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SonskriverezV3.zip[/file]

 

[porcinet82]

Bonjour a tous,

Je vois que je reviens lorsque la bataille est terminé, cependant pas pour rien puisque ce fil est vraiment interressant au niveau de son contenu notamment concernant les formules. Moi qui est du mal a m'y mettre, je crois que je vais devoir commencer...

Merci pour cet afflu de connaissance qui vient enrichir mon maigre savoir.

Bonne journée a tous

@+