1 2 3 4 5 6 7 8 9 10
| For i = 1 To 3
Cells(DerniereLigne + 1, (3 * i) - 1).Value = Left(MenuGeneral.Texte & i & TCD.Value, _
DetecterNumero(MenuGeneral.Texte & i & TCD.Value, 4))
Cells(DerniereLigne + 1, (3 * i)).Value = Mid(MenuGeneral.Texte & i & TCD.Value, _
DetecterNumero(MenuGeneral.Texte & i & TCD.Value, 4) + 1, 4) - NumeroSemaineDerniere
Cells(DerniereLigne + 1, (3 * i) + 1).Value = Right(MenuGeneral.Texte & i & TCD.Value, _
Len(MenuGeneral.Texte & i & TCD.Value) - (DetecterNumero(MenuGeneral.Texte & i & TCD.Value, 4) + 4))
Next |
Partager