Macro / Mettre en couleur les cellules sous certaines conditions
Luna
-
Luna -
Luna -
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+
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+
A voir également:
- Macro / Mettre en couleur les cellules sous certaines conditions
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Excel somme si couleur cellule - Guide
