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
19
 
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