Re : Macro pr extraire commentaires en ligne et les placer en colonne...
Re,
Dans la mesure où tu n'as pas de commentaires dans toutes les cellules, il faut tester la présence :
Sub ExtraitCommentaire1()
i = 10
Application.Calculation = xlManual 'pour accélerer la, ou les macros
Application.ScreenUpdating = False
Range("DN11
N42").ClearContents
For Each c In Range("C12:AH12") ' ligne Agent1
i = i + 1
If Not (c.Comment Is Nothing) Then
Range("DN" & i) = c.Comment.Text 'colonne où placer les résultats de l'extraction
End If
Next c
Stop
Range("DO43
v43").Select 'ligne totaux, à copier
Selection.Copy
Range("Am12").Select 'première cellule du tableau,à renseigner
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("c11").Select
Application.Calculation = xlAutomatic ' remis à chaque fois pour activer les calculs
Application.ScreenUpdating = True
End Sub
a+