Optimisation d'un code VBA

[gibtoul]

Bonjour à tous

j'ai le code suivant qui me permet lors de sa premiere activation de :
Copier les valeurs en VERT de X vers W
sauf les valeurs deja presente dans W qui passe en rouge

Mon problème est que si je l'active une deuxième fois , toute les cellule de W passe en rouge

Est-il possible d'empecher le fonctionnement du code lors d'une deuxieme activation par exemple en testant si des valeurs sont en vert dans la colonne W



Merci pour votre aide

A+

Sub PRICE()

    Dim Derlg As Integer, i As Integer
    
    With Sheets("feuil1")
        Derlg = .Range("X" & .Rows.Count).End(xlUp).Row
        For i = 80 To Derlg
            If Len(.Range("W" & i).Value) > 0 Then
                .Range("W" & i).Font.Color = vbRed
            Else
                .Range("W" & i).Value = .Range("X" & i).Value
                .Range("W" & i).Font.Color = vbGreen
            End If
        Next i
    End With

End Sub

 

[Robert]

Re : Optimisation d'un code VBA

Bonjour Gibtoul, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :

        If Len(.Range("W" & i).Value) > 0 Then
            .Range("W" & i).Font.Color = IIf(.Range("W" & i).Font.Color = vbGreen, vbGreen, vbRed)
        Else

 

[Compte Supprimé 979]

Re : Optimisation d'un code VBA

Bonjour Gibtoul

Simple, je pense, il suffit de mettre la date d'exécution du code dans une cellule
et si la date est celle du jour le code n'est pas exécuté

A+

 

[gibtoul]

Re : Optimisation d'un code VBA

Merci pour vos réponses Robert et BrunoM45

la solution de Robert me convient et fonctionne parfaitement

A tres bientot

gibtoul