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

airsage · 15 Juillet 2013

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 · 15 Juillet 2013

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 :

Code:

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

airsage · 15 Juillet 2013

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 · 15 Juillet 2013

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 · 15 Juillet 2013

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 · 16 Juillet 2013

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 · 16 Juillet 2013

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

Re

Tester:

Code:

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 · 16 Juillet 2013

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

Bonjour Pierrejean,

Ça fonctionne à merveille.

Merci bien.

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

airsage

XLDnaute Junior

Pièces jointes

pierrejean

XLDnaute Barbatruc

airsage

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

airsage

XLDnaute Junior

airsage

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

airsage

XLDnaute Junior

Discussions similaires