Discussion :

[bernard41]

bonjour,

dans mon tableau, sur la premiere colonne (ainsi que sur la derniere), je fusionne quelques lignes selon leur appartenance (voir fichier partiel joint)
comme il m'arrive d'inserer d'autres lignes, je souhaiterais que le colriage se fasse automatiquement (soit une mise en forme conditionnelle, soit une petite macro a lancer)

si vous aviez ne serait qu'une piste svp, parceque je ne voit pas comment m'y prendre.

merci


flute, je ne souhaitais pas mettre mon message dans cette section, mais comme je cherchais si quelqu'un avait déja posé ce genre de question, je me trouvais a cet endroit et betement j'ai validé mon message ici . . .

[Kimy_Ire]

Tu ne précises pas les conditions de ton coloriage. Je suppose donc que c'est une ligne sur deux. Peux-tu me confirmer cela ?

[bernard41]

c'est vrai que je manque de précision: pas vraiment une ligne sur 2, puisque sinon une simple mise en forme conditionnelle serait simple a mettre en place, mais dans mon cas, c'est 1 "pays" sur 2 que j'aurais besoin.

[gFZT82]

Bonjour,

Tu peux essayer comme cela

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim T As Boolean
    Range("A2").Select
    While Selection(1).Value <> ""
        Selection.Resize(, 4).Interior.ColorIndex = T * 4146 + 4
        T = Not (T)
        Selection.Offset(1, 0).Select
    Wend
End Sub

Cordialement.

[Kimy_Ire]

J'ai surrement fait trop compliqué, mais ça fonctionne :

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
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim max As Integer
Dim col As Integer
Dim chng As Range
Dim off As Integer
Dim flag As Boolean
 
    With Worksheets("Feuil1")
        col = .Rows(1).Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        For i = 1 To col
            If max < .Columns(i).Find("*", , , , xlByColumns, xlPrevious).Row Then
                max = .Columns(i).Find("*", , , , xlByColumns, xlPrevious).Row
            End If
        Next i
 
        Set chng = .Range("A1")
        flag = True
        For i = 1 To max
            If chng.Offset(i, 0).Value <> "" Then
                If flag Then
                    For j = 0 To col - 1
                        chng.Offset(i, j).Interior.Color = RGB(0, 255, 0)
                    Next j
                    off = 1
                    Do While chng.Offset(i + off, 0).Value = "" And i + off <> max
                        For j = 1 To col - 1
                            chng.Offset(i + off, j).Interior.Color = RGB(0, 255, 0)
                        Next j
                        off = off + 1
                    Loop
                    flag = False
                Else
                    flag = True
                End If
            End If
        Next i
    End With
End Sub

A mettre dans le worksheet_change de ta feuille ! =)

EDIT : si tu préfères les couleurs inverses, change simplement le flag de "True" à "False". De plus, j'ai fais en sorte que tu puisses mettre une couleur particulière pour tes titres de colonne, qui ne seront donc pas affectés.

[bernard41]

merci a vous deux,
la premiere solution est plus simple, et plus facile a comprendre pour un debutant comme moi.
en tout cas bravo, et encore merci.