Discussion :

[yayasiano]

Bonjour à tous et tout d'abord merci d'avance pour vos réponses.

La colonne A possède des cellules colorées (Bleues).

Si la cellule A2 par exemple est colorée je met un "C" dans la cellule N2 et je colore tout les cellules de la ligne 2 en bleu.
Si la cellule A2 n'est pas colorée je met un "O" dans la cellule N2.

Je ferai donc une boucle pour effectuer cette opération sur toutes les lignes de mon tableau, sachant qu'il est variable mais pour résoudre cela je compte toutes les lignes présentes juste avant cette opération et affecte la valeur trouvée à la boucle
from i=1 to n par exemple.

Eske vous pourriez m'aider svp. j'ai cherché sur le forum et je ne trouve pas de sujet identique j'ai bien essayé de faire un code mais étant kelke peut débutant en vba je n'ai pas de grandes possibilités.

Merci d'avance

[Fvandermeulen]

Bonjour,
Je pense que le petit code ci-dessous doit répondre à ta question
J'y ai mis quelques annotation en espérant avoir été clair...
Bonne continuation,

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
Sub TestCoul()
 
 
NbLigne = Application.Subtotal(3, Range("a:a")) 'compte le nombre de ligne titre inclus
 
For i = 2 To NbLigne 'boucle de la ligne 2 au nombre de ligne
 
    If Cells(i, 1).Interior.ColorIndex = 5 Then 'colorindex 5 = Bleu
        Cells(i, 14) = "C" 'Indique C dans la col. N car fond bleu
        Range(i & ":" & i).Interior.ColorIndex = 5 'colorie l'ensemble de la ligne
    Else
        Cells(i, 14) = "O" 'Indique O dans la col N car fond <> bleu
    End If
 
Next i
 
End Sub

[yayasiano]

C'est exactement ce que je voulais merci en plus tu mépargne un tri.
Par contre à la place de colorier toute la ligne je souhaiterai seulement colorier la ligne mais de la colonne A à la colonne U
le code doit etre a peut près cela mais je n'y arrive pas lol dsl encore merci

Code :

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

1
2
 
Range("A" & i ":"" U" & i).Interior.ColorIndex = 8 'colorie l'ensemble de la ligne

[Fvandermeulen]

T'y es presque, c'est une question de & et d'espace, je me suis arraché les cheveux au début...Tu dois toujours avoir un espace avant et après un &
Donc:

Code :

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

Range("A" & i & ":" & "U" & i).Interior.ColorIndex = 8

[mercatog]

Code :

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

Range("A" &  i  &  ":"  &  "U"  &  i).Interior.ColorIndex = 8

attention aux espaces

je me mêle!j'ai pas vu la reponse

[yayasiano]

Exact c'était a se tirer les cheveux fallait vraiment faire gaffe aux espaces mais ca y est c bon tout fonctionne parfaitement je vous remercie vraiment pour votre aide super forum!
L'entraide c'est vraiment la force!!!
Encore un grand merci les gars.