Formule Si EN VBA

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:

---

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 !

Bonjour Abadj, bonjour le forum,

Peut-être comme ça :

Code:

---

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

---

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