Bonjour à tous,

J'ai un petit soucis avec ma macro. Je voudrais lui faire dire,
Commence sur la cellule non vide et tu remontes jusque F2 et pour toute les cellules non vide tu appliques la conversion.

Comme elle est écrite, elle s'arrête à la première cellule vide et je ne vois pas comment faire

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
Sub Compilation()
 
Dim i As Variant
Dim j As Variant
 
' boucle pour transformer en format date
j = 2
Do While j <> fin And j < 13
  Sheets("A").Cells(j, 6) = CDate(Sheets("A").Cells(j, 6))
    i = i + 1
    With Sheets("A").Cells(j, 6)
   .Value = CDate(.Value)
   .NumberFormat = "dd/mm/yyyy"
End With
     j = j + 1
Loop
 
End Sub