Discussion :

[beranger.six]

Bonjour dans un programme que j'ai crée , je cherche a lire les commentaires d'une colonne cellule ce qui me prend enormement de temps auriez vous des idées pour optimiser ce code?

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
       For i = 3 To DerniereLigne
 
            On Error Resume Next
            comment_text = osheet.Cells(i, col_sourc).Comment.text
            osheet.Cells(i, col_dest).Value = comment_text
            comment_text = vbNullString
            osheet.Cells(i, col_sourc).ClearComments() 'suppression commentaire
            On Error GoTo 0
 
        Next

[geegee13]

Bonjour,

Cela va afficher osheet.Cells(i, col_sourc).Comment.text ici osheet.Cells(i, col_dest) puis enlever les commentaires osheet.Cells(i, col_sourc)

[Skalp]

Au lieu de parcourir les cellules, tu dois pouvoir parcourir directement les commentaires : osheet.Comments.