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:
Merci d'avance de votre aide.
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
Cordialement
Christian
Partager