Ajouter un commentaire dynamique via VBA

Bonjour,

C'est la 1er fois que je post ici, même si cet espace m'a déjà bien dépanné.

Voici mon problème du jour :

Je souhaite renvoyer dans un tableau, un commentaire dynamique via VBA, à partir d'une plage de donnée.

J'ai réussi, grâce à un précédent post du forum, à renvoyer les commentaires sous un même format (en colonne).

Mais je bloque lorsqu'il s'agit de les renvoyer dans un tableau ; sous une autre disposition.

Merci d'avance pour vos idées !

Bonjour,

Attention les codes de la colonne V ne devraient -ils pas être "OA, OB, OC .... " plutôt que "PA, PB, PC...."

Le code:

Sub Recup_Commentaires()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim i As Long, j As Long
    Dim Ref As String, Lot As String
    Dim Stock As Long, Reserv As Long, Stock_mini As Long, En_Cde As Long
    Dim x As Range
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    f2.Range("D15:V15,D25:V25,D35:V35,D45:V35").ClearComments

    For i = 15 To 45 Step 10
        For j = 4 To 22
            code = f2.Cells(i, j)
            With f1.Columns(1)
                Set x = .Find(code)
                If Not x Is Nothing Then
                    Ref = f1.Cells(x.Row, "B")
                    Lot = f1.Cells(x.Row, "C")
                    Stock = f1.Cells(x.Row, "D")
                    Reserv = f1.Cells(x.Row, "E")
                    Stock_mini = f1.Cells(x.Row, "F")
                    En_Cde = f1.Cells(x.Row, "F")
                End If
            End With
            With f2.Cells(i, j)
                .AddComment
                With .Comment
                    .Visible = False
                    .Text Text:="Référence: " & Ref & Chr(10) & "N° Lot:" & Lot & Chr(10) _
                    & "Stock: " & Stock & Chr(10) & "Réservé: " & Reserv & Chr(10) & _
                    "Stock mini: " & Stock_mini & Chr(10) & "En Cde: " & En_Cde
                End With
            End With
        Next j
    Next i
    Set f1 = Nothing
    Set f2 = Nothing
    Set x = Nothing
End Sub

Cdlt

Bonjour Arturo83,

Super c'est tout bon

Plusieurs enseignements pour moi ce matin:

1- je dois réviser mon alphabet

2- être autodidacte c'est bien jusqu'à une certaine limite

3- ce forum est super pratique

En tout cas merci beaucoup