Discussion :

[clarkk]

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

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
....Font.Color = vbBlue

[ouskel'n'or]

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

[clarkk]

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

[clarkk]

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

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

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

[SfJ5Rpw8]

ecrit plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
? activeCell.Font.Color

voilà ce que cela donne chez moi :

? activeCell.Font.Color
16711680
?vbBlue
16711680