VBA Comment copier toute la cellule avec la couleur !

[Kouik Kouik jr]

Bonsoir les pros du forum !

J'essaie sans succès de copier toute la cellule (y compris avec la couleur) car la cellule est coloriée mais mon code ci dessous ne me copie que les données présente dans les cellules.

Je suis sur qu'il y'a un crac pour m'aider


Merci d'avance

Sub dffdsf()

Application.ScreenUpdating = False
    Application.DisplayAlerts = False

With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syz")
    i = 2
    Do While i < Fin
    For j = Déb To Fin
        If .Range("a" & i).Value = Sheets("Symbol").Range("a" & j).Value _
        Then .Range("f" & i).Value = Sheets("symbol").Range("f" & j).Value
    Next j
    i = i + 1
    Loop
    End With
    
    
    With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syz")
    i = 2
    Do While i < Fin
    For j = Déb To Fin
        If .Range("a" & i).Value = Sheets("Symbol").Range("a" & j).Value _
        Then .Range("g" & i).Value = Sheets("symbol").Range("g" & j).Value
    Next j
    i = i + 1
    Loop
    End With
    
    With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syz")
    i = 2
    Do While i < Fin
    For j = Déb To Fin
        If .Range("a" & i).Value = Sheets("Symbol").Range("a" & j).Value _
        Then .Range("h" & i).Value = Sheets("symbol").Range("h" & j).Value
    Next j
    i = i + 1
    Loop
    End With
     
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[Kouik Kouik jr]

Re : VBA Comment copier toute la cellule avec la couleur !

J'ai vu sur un forum qu'on pouvait faire:

Sub Macro1()
[B1] = [A1].Value
[B1].Interior.ColorIndex = [A1].Interior.ColorIndex
End Sub


mais je vois pas trop comment ca marche mais je vais essayer....

 

[Kouik Kouik jr]

Re : VBA Comment copier toute la cellule avec la couleur !

Merci de l'aide Jean Marcel

mais cela n'a pas l'aie de marcher....

cela bloque sur la ligne

then Sheets("symbol").Range("f" & j).copy destination:=.Range("f" & i).Value

même si je fais

Sub sfsfff()

With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syz")
    i = 2
    Do While i < Fin
    For j = Déb To Fin
        If .Range("a" & i).Value = Sheets("Symbol").Range("a" & j).Value Then Sheets("Symbol").Range("f" & j).Copy _
        Destination:=Sheets("Syz").Range("f" & i).Value
     
    Next j
    i = i + 1
    Loop
    End With

End Sub

 

[DOUBLE V 69]

Re : VBA Comment copier toute la cellule avec la couleur !

Voici une macro qui change la couleur des case en fonction d'une condition


Sub Couleur_des_cases()

Sheets("placer le nom de la feuille concernée").Activate

Range("H6").Select
If Range("H6").Value = "condition pour colorer " Then ' a utiliser en cas de plusieur couleurs
Range("A6:X6").Select
Selection.Interior.ColorIndex = 35 ' 35 = couleur a utiliser

End If
End Sub


@mitiés Double v

 

[skoobi]

Re : VBA Comment copier toute la cellule avec la couleur !

Bonjour Kouik_Kouik_jr,

enlève .Value:

Then Sheets("symbol").Range("f" & j).copy destination:=.Range("f" & i).Value

Tu m'en veux pas Jean-Marcel que je lui réponde .