Bonjour,

Je n'arrive pas à effectuer un copier/coller d'une cellule vers une autre, après avoir effectué un test.
Si la condition est faux, je copie cette cellule vers une autre cellule.
Ci-dessous le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
Dim i As Integer, t As Integer, s As Integer
 
i = 2
t = 2
s = 14
 
For i = 1 To 13
 
    If Range("c" & i + 1).Font.Color = RGB(255, 0, 0) Then
        Range("N" & i + 1).Interior.ColorIndex = 24
    Else
        Range("c" & i + 1).Copy Destination:= Range("n" & s + 1)
    End If
 
Next
End Sub
Merci d'avance de votre aide.

Cordialement

Christian