VBA - copy offset - couleur cellule

bonjour a tous

voila j'ai ce petit code , qui fonctionne tres bien

il copie des donnees de la feuil 6 vers la feuil 8 ( il ne copie que les valeurs ) et il copie cela a partir de la derniere ligne non remplie de la feuil 8

pas de souci

je voudrais savoir si il est possible a chaque fois que j'utiliserai cette macro de changer la couleur de fond pour ne pas avoir la meme couleur de fond pour les nouvelles cellules importes

je sais pas si c'est clair ?

genre

importation 1 >>> aaaaa couleur fond gris

bbbbb couleur fond gris

ccccccc couleur fond gris

importation 2 >>> nnnnn couleurd fond bleu

aaaaa couleur fond bleu

cccccc couleur fond bleu

iportation 3 >>> bbbbb couleur fond gris

ccccccc couleur fond gris

ect ....

je souhaite utliser que 2 couleurs ( gris et blanc )

par contre je sais pas trop comment faire ?

avant mon copy >>>

en testant si la dernière ligne rempli est de couleur ?

si oui alors blanc sinon alors gris ?

Sub b()
Dim fin

F06.Rows("2:30").Copy

F08.Select

Range("A65000").End(xlUp).Offset(1).Select  
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 

End Sub

Bonjour,

Si tu souhaites simplement obtenir une couleur alternée gris/blanc sur les lignes renseignées de ta feuille F08, tu peux utiliser une mise en forme conditionnelle avec la formule

=ET($A1<>"";MOD(LIGNE();2)=0)

A+

oui je souhaite obtenir une couleur alternée gris/blanc

mais pas par ligne mais a chaque execution du code vba copy

Est-ce que cela veut dire que ta feuille F08 est renseignée par ailleurs (saisie manuelle par exemple) et que tu veux pouvoir distinguer les copies par macro ?

Si tel est le cas, tu n'auras pas une couleur alternée gris/blanc.

Si tu as testé ma proposition, dis-moi ce qui ne convient pas.

A+

Est-ce que cela veut dire que ta feuille F08 est renseignée par ailleurs (saisie manuelle par exemple) et que tu veux pouvoir distinguer les copies par macro ?

Si tel est le cas, tu n'auras pas une couleur alternée gris/blanc.

oui c'est cela que je souhaite faire

apres quelques recherche sur le web j'ai trouve ca

cellule.Offset(0, 1).Interior.ColorIndex =

et je pense que je vais pouvoir bricoler un truc avec

en mettant une condition if en vérifiant que la dernière ligne est ou pas colorie

si elle est colorie alors je en colorise pas lors de la copie sinon je colorise en plus de la copie

je laisse un peu ca de cote pour le moment mais je vais revenir je susi en bonne voie

ps bravo pour ta formule frangy mais ce n'es pas ce que je souhaite faire

Bonjour,

Une proposition

Sub Test()
Dim DerLig As Long, Ligne As Long
    DerLig = F08.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    F06.Rows("2:30").Copy
    F08.Range("A" & DerLig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    For Ligne = DerLig To F08.Range("A" & Rows.Count).End(xlUp).Row
        If F08.Range("A" & Ligne).Offset(-1).Interior.ColorIndex = -4142 Then
            F08.Range("A" & Ligne).EntireRow.Interior.ColorIndex = 15
        Else
            F08.Range("A" & Ligne).EntireRow.Interior.ColorIndex = -4142
        End If
    Next Ligne
End Sub

A+