Discussion :

[OBADJ]

Bonjour,

La condition que je veux faire sous VBA est la suivante : Si en cellule 13 c'est vide et que en colonne 14 correspondant à une date "jjmmaaaa" alors je copie la colonne 14 en colonne 13. (Donc en gros, il copie la date en colonne 14 et la colle en colonne 13).

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
Sub test()
 
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
 
    For j = 2 To Derligne
 
    If .Cells(j, 13).Value = "" And .Cells(j, 14).NumberFormat = "dd/mm/yyyy" Then
 
.Cells(j, 14).Copy
.Cells(j, 13).Paste
 
 End If
        Next j
 
    End With
End Sub

Merci !

[Thautheme]

Bonjour Abadj, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To Derligne
        If .Cells(j, 13).Value = "" And IsDate(.Cells(j, 14)) = True Then .Cells(j, 14).Copy .Cells(j, 13)
    Next j
End With
End Sub

[OBADJ]

Bonjour,

Merci de ton aide mais j'avais déjà réussi il fallait juste que je dise à la fin que la colonne 13 soit égale a la colonne 14