G
gibtoul
Guest
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+
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+
Code:
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