Bonjour,

je souhaite extraire les dernières lignes de commentaire de cellule si la cellule comporte un commentaires, je boucle trois fois
lors du premier passage cela se passe bien par contre au deuxième j'ai une erreur : celle notée dans l'intitulé.

je vous joins copie d’écran du code

voila partir de mon code

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
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:
la ligne 9 marque l erreur

merci d'avance

slts