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

[airsage]

Bonjour à tous,

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.

 

[pierrejean]

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

Bonjour airsage

Pour t'aider à comprendre je te suggère de tester d'abord ceci :

For Each c In f.Range("G5:G" & f.[G65000].End(xlUp).Row)
    c.Offset(, -3).Interior.Color =c.Interior.Color
Next c

 

[airsage]

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

Bonjour pierrejean,

J'ai fait la modification que tu m'as préconisée, mais rien ne se passe.
Je viens d'ajouter un fichier pour exemple si tu peux m'aider.

Merci par avance.

 

[pierrejean]

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

Re

Désolé ton fichier exemple est trop minimaliste : (Rien en colonne A de UNIX SERVER ,rien en colonne G de Server Application !!!!!)

 

[airsage]

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

Re,

Je viens d'envoyer le fichier d'origine avec toutes les lignes. ;-)

Merci par avance.

 

[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).

 

[pierrejean]

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

Re

Tester:

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

 

[airsage]

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

Bonjour Pierrejean,

Ça fonctionne à merveille.

Merci bien.