EXCEL - VBA - modifier le couelur du'une cellule avec condition

[airsage]

Bonjour,

Je cherche à faire la modification de la couleur d'une cellule à partir de cette formule :

Sheets("UNIX_SERVER").Select
Set f = Sheets("Server_Application")
Set mondico = CreateObject("Scripting.Dictionary")
a = f.Range("a2:i" & f.[a65000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
mondico(a(i, 9)) = a(i, 3)
Next i
Set f = Sheets("UNIX_SERVER")
For Each c In f.Range("G5:G" & f.[G65000].End(xlUp).Row)
If mondico.exists(c.Interior.Color) Then c.Offset(, -3).Value = mondico(c.Interior.Color)
Next c

Je ne veux pas copier le texte dans la cellule d'arrivée, mais uniquement la couleur de remplissage, tout en ne supprimant pas le texte de la cellule d'arrivée.

apparemment Interior.Color ne fonctionne pas.


merci par avance si quelqu'un peut m'aider.

 

[jpb388]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

bonjour le forum
essayes
If mondico.exists(c.Interior.Color) Then c.Offset(, -3).Interior.Color = mondico(c.Interior.Color)

 

[john]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,

Il faudrai peut-être donner un exemple de ce qui se trouve dans ton fichier, car je viens de tester ton code, et celui-ci ne passe même pas dans la condition "If mondico.exists(c.Interior.Color) Then" vu que le fichier que j'ai fais est vide...

BàT

John

 

[airsage]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,

Rien ne se passe avec "If mondico.exists(c.Interior.Color) Then c.Offset(, -3).Interior.Color = mondico(c.Interior.Color) "
Je n'ai pas de message d'erreur non plus. La macro s'execute mais je n'ai pas la couleur qui apparait..

Merci pour votre aide.

 

[jpb388]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

re
peux tu mettre ton fichier?

 

[airsage]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,

Je viens d'ajouter le fichier en piece jointe.

 

[jpb388]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour a tous
c'est le fichier avec la macro qui est intéressant donc un xlsm et pas un xlsx

 

[airsage]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,
Fichier xlsm envoyé avec la macro.

 

[john]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,

Peux-tu donner la condition (en français et pas en formule) et peut-être un exemple pour que la cellule change de couleur (et quelle couleur) ? je pense que ce sera plus facile pour tout le monde de trouver une solution à ton problème.

BàT.

John

 

[jpb388]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

re
au vu de ta macro
tu lui dit

If mondico.exists(c.Interior.Color)

n'existe pas
c'est

If mondico.exists(a(i,9))

qui existe

voila pourquoi cela ne fonctionne pas
je te laisse chercher la solution mais si tu n' y arrive pas n'hésite pas

 

[airsage]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour,

La condition est que si les "server" de la feuille "UNIX_SERVER" (colonne G) apparaissent dans la feuille "Server_Application" (colonne I), alors prendre uniquement la couleur de la feuille "Server_Application" colonne C, (sans le texte) et l'appliquer dans la feuille "UNIX_SERVER" colonne D sans modifier le texte).

 

[Dranreb]

Re : EXCEL - VBA - modifier le couelur du'une cellule avec condition

Bonjour.
Bon alors ce sont les couleurs qu'il faut noter dans le Dictionary pas les Values

Option Explicit

Sub Test()
Dim Plg As Range, Col9() As Variant, MonDico As Scripting.Dictionary, L As Long, C As Range
Set Plg = Feuil1.Range("A2:I" & Feuil1.[C65536].End(xlUp).Row)
Col9 = Plg.Columns(9).Value
Set MonDico = New Scripting.Dictionary
For L = 1 To Plg.Rows.Count
   MonDico(Col9(L, 1)) = Plg(L, 3).Interior.Color
   Next L
For Each C In Feuil2.Range("G5:G" & Feuil2.[G65000].End(xlUp).Row)
   If MonDico.Exists(C.Value) Then C.Offset(, -3).Interior.Color = MonDico(C.Value)
   Next C
End Sub

Attention: ajoutez la référence "Microsoft Scripting Runtime". Je déteste le CréateObject.