1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Periode = Cells(LigneFeuille, CompteurCol - 1).Value
MsgBox Periode
Engin = Cells(LigneFeuille, CompteurCol - 3).Value
For N = 1 To 3
LigneFeuille = LigneFeuille + 2
Fonction = Cells(LigneFeuille - 2, CompteurCol - 2).Value
'*** extraction commentaire ***
If Cells(LigneFeuille - 2, CompteurCol).Comment.Text <> "" Then
x = Len(Cells(LigneFeuille - 2, CompteurCol).Comment.Text)
For i = x To 1 Step -1
If Mid(Cells(LigneFeuille - 2, CompteurCol).Comment.Text, i, 1) = ":" Then
Exit For
End If
Next i
Commentaires = Right(Cells(LigneFeuille - 2, CompteurCol).Comment.Text, x - i - 1)
Workbooks("test_saisie.xlsm").Activate
Sheets("test").Select
Cells(Lg, 1).Activate
ActiveCell.Offset(0, 4) = Commentaires
ActiveCell.Offset(0, 1) = Periode
ActiveCell.Offset(0, 3) = Fonction
ActiveCell.Offset(0, 2) = Engin
Else
Workbooks("stat.xlsx").Activate
Sheets("test").Select
End If
Next N
'*** fermeture fichier stats ***
Workbooks("stat.xlsx").Close SaveChanges:=False
Fin: |
Partager