Microsoft 365 Code VBA police de couleur

sylvanu à dit:

Bonjour DR,
Un essai en PJ avec une fonction perso en colonne V :

VB:

Function Prod(C As Range)
    If C.Font.Color <> 0 Then Prod = "Prod" Else Prod = ""
End Function

Cliquez pour agrandir...

sylvanu à dit:

Mais lorsque la colonne G "s'agrandit" il faut penser à copier les formules de la colonne V.
Sinon le faire par macro avec un bouton de mise à jour, ou copier la formule en V sur plusieurs milliers de lignes pour que cela soit automatique.

Cliquez pour agrandir...

patricktoulon à dit:

bonjour

voilà le genre de choses a quoi on a à faire quand on travaille pas avec des tableaux structurés
😉

Cliquez pour agrandir...

patricktoulon à dit:

re
2 ligne ou 5000 c'est pareil dans un T S tu met la formule dans la première ligne c'est tout

Cliquez pour agrandir...

mapomme à dit:

Bonjour,

Attention! Quand vous changez la couleur de police, les résultats des fonctions (ou procédures) ne sont pas recalculés. Le changement de couleur (police et/ou fond de la cellule) ne déclenche pas d'évènement au niveau d'Excel. Il faut actualiser manuellement. UUtiliser le forçage du recalcul par la combinaison des trois touches Ctrl+Alt+F9 (touche de fonction F9).

Cliquez pour agrandir...

DR85 à dit:

Merci,
Je regarde ça dans la journée. Je vous tiens au courant.
Bon après-midi

Cliquez pour agrandir...

RyuAutodidacte à dit:

Autre proposition avec une Sub :

VB:

Sub CheckTxtColor()
Dim DerL As Long, Rg As Range, R, L As Long

    With Feuil1
        DerL = .Cells(.Rows.Count, 7).End(xlUp).Row
        Set Rg = .Range("G1:G" & DerL)
        For Each R In Rg
            L = R.Row
            If R.Font.ColorIndex <> 1 Then
                .Range("V" & L).Value = "Prod"
            Else
                .Range("V" & L).Value = ""
            End If
        Next
    End With
   
    Set Rg = Nothing
   
End Sub

Cliquez pour agrandir...

DR85 à dit:

Bonjour,
Effectivement il n’y a pas d’actualisation automatique. Dommage c’était mon objectif. 😩
Je vais essayer le forçage…
Ou peut être un bouton actualiser, ça peut fonctionner?

Cliquez pour agrandir...