XL 2010 Automatiser une formule VBA

[girolle74]

Bonjour,


Comment faire pour automatiser cette formule?

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

 

[sylvanu]

Bonjour Girolle,
Un essai en PJ avec :

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

 

[Phil69970]

Bonjour @girolle74

Edit Bonjour Sylvain

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[Jacky67]

Bonjour,


Comment faire pour automatiser cette formule?

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

Bonjour à tous
Et par la Mise en forme conditionnelle ??

 

[girolle74]

Bonjour Girolle,
Un essai en PJ avec :

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

Bonjour
et un GRAND MERCI pour ta macro
excellent travail
c'est exactement ça
bravo!

 

[girolle74]

Bonjour @girolle74

Edit Bonjour Sylvain

Je te propose ce fichier

*Merci de ton retour

@Phil69970

Bonjour
et un GRAND MERCI pour ta macro
excellent travail
c'est exactement ça
bravo!

 

[girolle74]

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

Bonjour à tous
Et par la Mise en forme conditionnelle ?

Bonjour,

merci pour ton travail mais je n'arrive pas à appliquer les nombres RVB (colonne A,B,C) dans la mise en forme conditionnelle?
de façon automatique
cordialement

 

[Dranreb]

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

 

[Dranreb]

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.

 

[girolle74]

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.

OK MERCI

 

[girolle74]

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

Bonsoir et un GRAND MERCI a vous tous

Je ne connaissais pas cette façon de faire.
Merci
C'est très sympa
A+