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 : Sélectionner tout - Visualiser dans une fenêtre à part
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