[VBA-E] probleme de couleur sous visual basic

Bonjour a tous, je cherche à creer une macro sous vb qui va me liste une colone d'excel et qui va me recopier certaines cellules dans une colone à coté, le truc c'est quele seul élément permettant de selectionner la cellule choisie et la couleur du texte (bleu), et je n'arrive pas a trouver la fonction correspondante....... je vous met mon code au cas ou....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub MacroTitre() Dim i As Integer Dim k As Integer   For i = 1 To 400 For k = 1 To 400 If Range("A" & i).(ici je voudrai que la condition verifie que la couleur du texte est bleu) Then Range("A" & i).Select Selection.Copy   Range("D" & k).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False   Next k   Next i End Sub

---

merci d'avance a tous;)

Code:

---

1 2	....Font.Color = vbBlue

---

Il te manque un Endif avant " Next k" ;)

NB - Pour le code ce n'est pas Pièce jointe 3333 c'est Pièce jointe 3334 :lol:

ok merci pour la syntaxe et les reponses, malheureusement je ne pourrai que tester demain au boulot:(

Bon ba voila j'ai essayé ms malheureusement ca ne marche pas:(
la condition du if n'est pas satisfaite et il passe au endif.....8O

je vous remet mon code que j'ai légèrement modifié....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub MacroTitre()   Dim i As Integer Dim k As Integer   For i = 1 To 400     Range("A" & i).Select   If Selection.Font.Color = vbBlue Then   Selection.Copy       Range("D" & i).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False     End If   Next i

---

ecrit plutôt

Code:

---

1 2 3 4

.. If Range("A" & i).Font.Color = vbBlue Then ...

---

ensuite il n'est pas sur que tu est le "bon bleu" ... pour vérifier dans ta feuille excel place le curseur sur une cellule ou les caractéres sont du bleu souhaité..puis bascule (alt F11) dans l'éditeur de macro et dans la fenêtre exécution (Ctrl G) saisi le code suivant

Code:

---

1 2	? activeCell.Font.Color

---

voilà ce que cela donne chez moi :

Citation:

---

Envoyé par Ma fenêtre exécution

? activeCell.Font.Color
16711680
?vbBlue
16711680

---

En effet vous avez raison il s'agit du bleu ocean parcequ'en fait je fais des mise a jour de données (provenant d'internet).......
il faut que j'essai de recuperer le code de cette couleur et je met le code a la place de vbBlue??

Oui, et si tu mets

Citation:

---

If Range("A" & i).Font.Color = vbBlue Then 'indiqué par bbil

---

à la place de Selection.copy, mets

Code:

---

Range("A" & i).Copy

---

Citation:

---

Envoyé par clarkk

En effet vous avez raison il s'agit du bleu ocean parcequ'en fait je fais des mise a jour de données (provenant d'internet).......
il faut que j'essai de recuperer le code de cette couleur et je met le code a la place de vbBlue??

---

as tu essayé de récupér le numéro de couleur dans fenêtre exécution voir : #6

sinon dans le cas ou tu n'est pas bleu..les autres cellules ont la fonte noire..? tu peu faire faire le test inverse

Code:

---

1 2	If Range("A" & i).Font.Color <> vbBlack

---

Citation:

---

Envoyé par ouskel'n'or

Oui, et si tu mets
à la place de Selection.copy, mets

Code:

---

Range("A" & i).Copy

---

---

Ousk'.. à raison j'avais pas vu :oops: .. mais on peu faire mieux :

Code:

---

Range("A" & i).Copy Range("D" & i)

---

Ça ne fonctionnerait pas si on mettait

Code:

---

If not Range("A" & i).Font.Color = vbBlack

---

......................... :lol:

Tres tres bien vu j'y avais pas du tout penser et ca marche parfaitement......;) merci

vu qu il y avait d'autre texte en couleur j'ai prefereé prendre le code couleur

Code:

---

If Range("A" & i).Font.Color = (13395456) Then

---

ca marche bien:lol:


merci encore