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

pierrejean

XLDnaute Barbatruc

• 15 Juillet 2013

• #2

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

 

Vote positif 0 Vote négatif

A

airsage

XLDnaute Junior

• 15 Juillet 2013

• #3

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Juillet 2013

• #4

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 !!!!!)

 

Vote positif 0 Vote négatif

A

airsage

XLDnaute Junior

• 15 Juillet 2013

• #5

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.

 

Vote positif 0 Vote négatif

A

airsage

XLDnaute Junior

• 16 Juillet 2013

• #6

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Juillet 2013

• #7

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

 

Vote positif 0 Vote négatif

A

airsage

XLDnaute Junior

• 16 Juillet 2013

• #8

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

Bonjour Pierrejean,

Ça fonctionne à merveille.

Merci bien.

 

Vote positif 0 Vote négatif