XL 2010 Automatiser une formule VBA

girolle74 à dit:

Bonjour,


Comment faire pour automatiser cette formule?

VB:

Selection.Interior.Color = RGB (255, 227, 0)

En ayant les nombres RGB dans 3 colonnes A(R), B(G), et C(B)

Environ 500 lignes

De façon à obtenir la couleur de fond en cellule D

Exemple:

A2 =255 B2=227 , C2=0 ----- en D2 cellule fond JAUNE

etc



Merci beaucoup

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Girolle,
Un essai en PJ avec :

VB:

Sub Colore()
    Dim i%, tablo
    Application.ScreenUpdating = False
    Calculate                           ' Utile uniquement si nombres aléatoires en ABC
    tablo = [A1].CurrentRegion
    For i = 2 To UBound(tablo)
        Cells(i, "D").Interior.Color = RGB(tablo(i, 1), tablo(i, 2), tablo(i, 3))
    Next i
End Sub

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @girolle74

Edit Bonjour Sylvain

Je te propose ce fichier

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour à tous
Et par la Mise en forme conditionnelle ??
Regarde la pièce jointe 1116362

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour à tous
Et par la Mise en forme conditionnelle ?

Cliquez pour agrandir...

Dranreb à dit:

Je ne vois pas trop comment on pourrait faire avec une mise en forme conditionnelle. Je ne l'ai pas fait ainsi. C'est une fonction personnalisée qui enregistre dans une collection de l'objet Worksheet représentant la feuille une consigne de coloriage exécutée après les calculs effectués lors de son évaluation.

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Un essai avec une fonction qui exécute le coloriage en différé dans une Sub Worksheet_Calculate, après son évaluation.

Cliquez pour agrandir...