Discussion :

[bosk1000]

voici mon probleme
j'ai un tableau donc certaine ligne doivent se coloré de la meme couleur que
celle sur la cellule A1

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub couleurbleu()
Range("A1:A1000").Select
Dim couleur As Variant
couleur = Range("A1").Interior.ColorIndex
If ActiveCell.Interior.ColorIndex = couleur Then
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
Selection.Interior.ColorIndex = couleur
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
End If
End Sub

le souci c'est que seul la première ligne se traite, après rien il ne traite pas toute les autres lignes

[marsupilami34]

Bonjour,

A priori, c'est normal que tu n'ais que la première ligne qui marche puisque dans le code qui est présent, il n'y a pas de boucle.
Il faut faire un truc du genre

Code :

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

1
2
3
4
5
6
7
 
While ta_condition
 
ton code
changer de ligne
 
Wend

[J.Michel]

Tu n'en dis pas beaucoup sur les conditions de fonctionnement de ta boucle
Mais essayes ceci et dis nous ci ca te conviens:

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
 
Sub couleurbleu()
    Dim couleur As Variant
    Dim MyCel As Range
    couleur = Range("A1").Interior.ColorIndex
 
    For Each MyCel In Range("A1:A10")
        If MyCel.Interior.ColorIndex = couleur Then
            With MyCel.Offset(0, 2)
                .ClearContents
                .Interior.ColorIndex = couleur
            End With
        End If
    Next
End Sub

[bosk1000]

Tu n'en dis pas beaucoup sur les conditions de fonctionnement de ta boucle
Mais essayes ceci et dis nous ci ca te conviens:

SUPER
ton code fonctionne pour la première colone,
je vais essayé de le perfectionné pour qu'il fasse l'autre colone en plus
je posterais le code final
ça peux interréssé

[casefayere]

Si je peux me permettre

Code :

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

  With MyCel.Offset(0, 2)

2 represente un décalage de 2 colonnes

[bosk1000]

c'est bon ça fonctionn
voici le code

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
26
Sub couleurbleuu()
    Dim couleur As Variant
    Dim MyCel As Range
    couleur = Range("A1").Interior.ColorIndex
 
 
    For Each MyCel In Range("A1:a1000")
        If MyCel.Interior.ColorIndex = couleur Then
            With MyCel.Offset(0, 2)
                .ClearContents
                .Interior.ColorIndex = couleur
    End With
    End If
    Next
    couleur = Range("A1").Interior.ColorIndex
    For Each MyCel In Range("A1:a1000")
        If MyCel.Interior.ColorIndex = couleur Then
            With MyCel.Offset(0, 4)
                .ClearContents
                .Interior.ColorIndex = couleur
 
    End With
    End If
    Next
 
End Sub

bon c'est hélas redondant pour la deuxième colonne, mais j'ai pas réussi à lui faire enchainné sur la meme fonction "if", donc j'ai doublé
et l'autre défaut c'est que j'ai pas réussi avec un systeme du type
numdl = Range("a65536").End(xlUp).Row
a cadrer exactement dans le cas hypotetiquer qui depasserais 1000 ligne (ok j'ai cas mettre a65536, mais bon c'est pas "pro"

si quelqu'un veux ameliorer ce code j'attend demain avant de cliquer sur résolu

[casefayere]

et si tu faisais ça (j'vais encore me faire reprendre

Code :

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

1
2
3
4
5
6
7
8
For Each MyCel In Range("a1", Range("a" & Rows.Count).End(xlUp))
If MyCel.Interior.ColorIndex = couleur Then
MyCel.Offset(0, 2).ClearContents
MyCel.Offset(0, 2).Interior.ColorIndex = couleur
MyCel.Offset(0, 4).ClearContents
MyCel.Offset(0, 4).Interior.ColorIndex = couleur
End If
Next

[fring]

Bonjour,

Un peu de lecture ci-dessous
La gestion des boucles dans Excel
.