variable objet ou variable bloc with non définie 91
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:
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