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

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

[ouskel'n'or]

Oui, et si tu mets

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

à la place de Selection.copy, mets

Code :

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

Range("A" & i).Copy

[SfJ5Rpw8]

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 :

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

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

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

Code :

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

Range("A" & i).Copy

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

Code :

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

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

[ouskel'n'or]

Ça ne fonctionnerait pas si on mettait

Code :

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

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

.........................

[clarkk]

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

[clarkk]

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

Code :

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

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

ca marche bien


merci encore