bonjour a tous,
je viens vers vous afin de demander un peu d'aide!
voila je dois monter plusieurs code couleur en fonction de certaines condition et enfin récupérer les lignes concerné afin de les insérer dans une nouvelle feuille.
je vous montre mon code mais il ne coloris qu'une cellule et non la ligne complète.
" response est le nom de la feuille c'est une variable explicite
je vous explique j'aimerai avoir ces conditions: ( priorité 1 a 6 -> priorité 1 la plus élevé )
-si une valeur est différente de 0 dans la colonne X la ligne est surligné en Jaune et le texte est en rouge
-si une valeur est différente de 0 dans la colonne P la ligne est surligné en rouge et le texte est en blanc
-si une valeur est différente de 0 dans la colonne O la ligne est surligné en violet et le texte est en rouge
-si une valeur est différente de 0 dans la colonne N la ligne est surligné en orange et le texte est en bleu
-si une valeur est différente de 0 dans la colonne M la ligne est surligné en bleu foncé et le texte est en blanc
-si une valeur est différente de 0 dans la colonne L la ligne est surligné en bleu clair et le texte est en noir
chaque condition permet la mise en forme de la ligne concerné.
petit soucis parfois sur la même ligne plusieurs conditions sont remplis. dans ce cas il faudrait que le code couleur
qui sera mis sur la ligne soit celui de la propriété la plus élevé.
ensuite le soucis est d'extraire chacune des lignes ayant une ou plusieurs conditions est les mettre dans une nouvelles feuilles !!!
voila en espérant que vous pourrez m'aider, si besoin demandez moi de plus amples informations.
Cordialement
Pex
je viens vers vous afin de demander un peu d'aide!
voila je dois monter plusieurs code couleur en fonction de certaines condition et enfin récupérer les lignes concerné afin de les insérer dans une nouvelle feuille.
je vous montre mon code mais il ne coloris qu'une cellule et non la ligne complète.
Code:
Sub CodeCouleurClient()
On Error Resume Next
Sheets(Response).Activate
Dim lignette, nombre As Integer
Dim Cell As Range
With Sheets(Response)
For Each Cell In .Range("X2:X" & .Range("X65536").End(xlUp).Row)
If Cell < 0 Then
Cell.Font.Color = RGB(255, 0, 0)
Elsef: Cell.Font.Bold = True
Cell.Interior.ColorIndex = 6
If Cell = "" Or Cell > 10 Then
Cell.Interior.ColorIndex = xlNone
End If
End If
Next
End With
On Error GoTo 0
end sub
" response est le nom de la feuille c'est une variable explicite
je vous explique j'aimerai avoir ces conditions: ( priorité 1 a 6 -> priorité 1 la plus élevé )
-si une valeur est différente de 0 dans la colonne X la ligne est surligné en Jaune et le texte est en rouge
-si une valeur est différente de 0 dans la colonne P la ligne est surligné en rouge et le texte est en blanc
-si une valeur est différente de 0 dans la colonne O la ligne est surligné en violet et le texte est en rouge
-si une valeur est différente de 0 dans la colonne N la ligne est surligné en orange et le texte est en bleu
-si une valeur est différente de 0 dans la colonne M la ligne est surligné en bleu foncé et le texte est en blanc
-si une valeur est différente de 0 dans la colonne L la ligne est surligné en bleu clair et le texte est en noir
chaque condition permet la mise en forme de la ligne concerné.
petit soucis parfois sur la même ligne plusieurs conditions sont remplis. dans ce cas il faudrait que le code couleur
qui sera mis sur la ligne soit celui de la propriété la plus élevé.
ensuite le soucis est d'extraire chacune des lignes ayant une ou plusieurs conditions est les mettre dans une nouvelles feuilles !!!
voila en espérant que vous pourrez m'aider, si besoin demandez moi de plus amples informations.
Cordialement
Pex