1 2 3 4 5 6 7 8 9 10 11 12 13
| For j = 9 To NbLigne
If Workbooks(1).Sheets(13).Cells(j, 3).Value = ActiveSheet.Name And numero = Workbooks(1).Sheets(13).Cells(j, 4).Value Then
Workbooks(1).Sheets(13).Cells(j, 2).Value = total
Workbooks(1).Sheets(13).Cells(1, 1).Value = "oui"
Else
Workbooks(1).Sheets(13).Cells(p, 1).Value = Phase & d
Workbooks(1).Sheets(13).Cells(p, 2).Value = total
Workbooks(1).Sheets(13).Cells(p, 3).Value = ActiveSheet.Name
Workbooks(1).Sheets(13).Cells(p, 4).Value = numero
Workbooks(1).Sheets(13).Cells(1, 1).Value = "non"
End If
Next j |