Macro / Mettre en couleur les cellules sous certaines conditions Fermé

Question

Bonjour à tous et à toutes,

Il y a quelques temps Gyrus m'avait donné une  macro superbe. Pour mettre en évidence une série de chiffre si ils se suivaient. Par exemple 1, 2, 3, 5, 6 : le 1,2,3 doivent être mis en couleur. Le souci c'est que certaines cellules dans la colonne sont fusionnées et du coup ça fonctionne pas sur celles qui sont fusionnées.

Est-ce que qqn peut m'aider ? Pleaaaaaaaaaaaaaaaaaaaasssseeeee. 




Sub Colorer()
Dim K As Integer, i As Integer
    K = 1
    Range("T6:T55").Interior.ColorIndex = xlNone
    For i = 7 To 55
        If Range("T" & i).Value = Range("T" & i).Offset(-1, 0).Value + 1 Then
            K = Application.Min(4, K + 1)
            If K = 4 Then
                Range("T" & i).Offset(-3, 0).Resize(4, 1).Interior.ColorIndex = 3
            End If
        Else
            K = 1
        End If
    Next i
End Sub


A+
Configuration: Windows Vista / Firefox 10.0.2

BOUDA08 · Answer

Bonjour

Je ne m'y connais pas en macro, mais si tu centres tes chiffres entre x cellules au lieu de les fusionner peut être que cela fonctionnera encore.  J'ai déjà eu cela avec d'autres choses

Luna · Answer

Merci  pour ta réponse. Mais je suis obligée de les fusionner mais à cause d'un autre motif. Mon tableau est très grand :-) mais je pense que si je me mets à expliquer le pourquoi du comment, ça va vraiment devenir très compliqué.

Mais si c'est nécessaire je suis dispo à le faire... :-)

Macro / Mettre en couleur les cellules sous certaines conditions

2 réponses

Discussions similaires