Copier la couleur d'une cellule dans une autre (du Style VlookUp)

[Ssang]

Bonjour le forum,

Je possède le code suivant qui copie la valeur d'une cellule dans une autre (et qui marche très bien):

 .Range("B" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False)

J'aimerai maintenant avoir une formule du même type qui copie la couleur de fond de la cellule, du genre:

 .Range("B" & j).Interior.ColorIndex = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False).Interior.ColorIndex

Evidemment ce code ne marche pas, pouvez vous m'aider ?

Merci beaucoup !

 

[Pierrot93]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Bonjour,

regarde peut être du coté de la méthode "find", tout dépend de se que tu recherches... sans plus de détails difficile pour moi d'aller plus loin...

bon après midi
@+

 

[Ssang]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Salut pierrot,

Voici le code complet:

Sub CopierComsDansMasque()
Dim j As Integer
Dim k As Integer


With Sheets("Masque_Commentaires")
.Range("B3:Z10000") = Clean
For j = 3 To .Range("A65536").End(xlUp).Row
    .Range("B" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 11, False)
    .Range("C" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 12, False)
    .Range("D" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 13, False)
    .Range("E" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 14, False)
    .Range("F" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 15, False)
    .Range("G" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 16, False)
    .Range("H" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 17, False)
    .Range("I" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 18, False)
    .Range("J" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 19, False)
    .Range("K" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 20, False)
    .Range("L" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 21, False)
    .Range("M" & j).Value = WorksheetFunction.VLookup(.Range("A" & j).Value, Sheets("Etat_4").Range("$B$11:$Z$1000"), 22, False)
  Next j
End With

End Sub

Il recherche un ID_Projet dans la feuille Etat 4, et copie les valeurs associées à ce code ID_Projet dans la feuille "Masque_Commentaires".

J'aimerai qu'en plus de copier les valeurs associées, il copie aussi la mise en frome de ces mêmes cellules (couleur de fond, police, bordures si possible)

Cdtl,

 

[Pierrot93]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Re,

regarde peut être ceci en espérant que cela puisse t'aider à avancer :

Option Explicit
Sub test()
Dim x As Range, j As Long
With Sheets("Masque_Commentaires")
    For j = 3 To .Range("A65536").End(xlUp).Row
        Set x = Sheets("Etat_4").Range("$B$11:$Z$1000").Find(.Range("A" & j).Value, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then
            .Range("B" & j).Value = x.Offset(0, 10).Value
            .Range("B" & j).Interior.ColorIndex = x.Offset(0, 10).Interior.ColorIndex
        Next x
    Next j
End With
End Sub

 

[Ssang]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Merci pierrot, c'est dans le style de la formule que je cherche.

Malheureusement il y a une erreur sur le Next x (Pas de Next sans for)

 

[Pierrot93]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Bonjour,

Aarf, désolé, modifie comme suit :

Option Explicit
Sub test()
Dim x As Range, j As Long
With Sheets("Masque_Commentaires")
    For j = 3 To .Range("A65536").End(xlUp).Row
        Set x = Sheets("Etat_4").Range("$B$11:$Z$1000").Find(.Range("A" & j).Value, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then
            .Range("B" & j).Value = x.Offset(0, 10).Value
            .Range("B" & j).Interior.ColorIndex = x.Offset(0, 10).Interior.ColorIndex
        End If
    Next j
End With
End Sub

bonne journée
@+

 

[Ssang]

Re : Copier la couleur d'une cellule dans une autre (du Style VlookUp)

Super, ca marche très bien.

Merci beaucoup Pierrot