ecrire une plage de cellule en bleu si..

[PHILIP]

Bonjour à tous

J'ai écris un code qui dit si la valeur de L est superieure à 3 alors la plage de cellules A:K se met en bleu Malheureusement une erreur me dit que
Proprieté ou methode non gérée par cette objet je pense qu'il y a une erreur d'écriture non ? merci pour votre aide

Sheets("Bartolini").Activate
         For i = 1 To [O60000].End(xlUp).Row
        If Cells(i, 15) > 3 Then Range([A1], [l65635].[i]).Font.Color = vbBlue
         Next

 

[Benjy]

Re : ecrire une plage de cellule en bleu si..

EDIT :J'ai encore dit une bêtise.. Sorry

Par contre tu parles de la colonne L et tu marques 15 dans Cells. Ce n'est pas plutôt 12 ?

 

[Dull]

Re : ecrire une plage de cellule en bleu si..

Salut Philip, Benjy, le Forum

peut-être comme ça mais pas sur

Sub EssAi()
Dim i As Integer
Sheets("Bartolini").Activate
    For i = 1 To Range("O60000").End(xlUp).Row
       If Range("L" & i) > 3 Then Range("A" & i & ":K" & i).Font.Color = vbBlue
    Next i
End Sub

Attention si ta colonne de référence est bien la colonne O la macro s'arrêtera a la dernière ligne non vide


Bonne Journée

 

[Efgé]

Re : ecrire une plage de cellule en bleu si..

Bonjour PHILIP, Benjy Bonjour Dull 🙂,
Surtout pour saluer mon ami Dull, et parcequ"il s'agit d'une MFC, je propose la version à mettre dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
    For i = 1 To Range("L" & Application.Rows.Count).End(xlUp).Row
        If Cells(i, 12) > 3 Then
            Range("A" & i & ":K" & i).Font.Color = vbBlue
        Else
            Range("A" & i & ":K" & i).Font.Color = vbBlack
        End If
    Next
End Sub

Je préfère i As Long (on ne sait jamais...)
Cordialement

 

[6bouba3]

Re : ecrire une plage de cellule en bleu si..

Cells(15, i).FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
            Formula1:="3"
With shEXP.Cells(15, i).FormatConditions(1).Font
            .Bold = True
            .Italic = False
            .ColorIndex = 37

 

[PHILIP]

Re : ecrire une plage de cellule en bleu si..

j'ai trouvé mon bonheur , vous m'aidez beaucoup dans ma phase 'apprentissage

Merci à tous pour votre aide,

 

[Ubot303]

Re : ecrire une plage de cellule en bleu si..

Bonjour,

Rien que pour embêter un peu...
Une mise en forme conditionnelle n'aurait pas suffit? 😀