Faire des commentaires sur mesures avec VBA

[Jérémy]

Bonjour,
j'aimerais faire des commentaires automatiques qui lisent mon tableau qui diraient: "Le produit A côute 10 francs en octobre" par exemple ou la ligne est "produit A" 10 francs, "octobre" est la colonne "mois" et "10 francs" la valeur.

En fait, je souhaiterais l'équivalent en vba d'une formule avec concatener() pour gagner en lisibilité.

Est-ce possible? Qu'en pensez-vous?

Jérémy

 

[_Thierry]

Re : Faire des commentaires sur mesures avec VBA

Bonsoir Jérémy, le Forum

Si j'ai bien compris... 🙄

Imaginons un tableau
En Colonne "B" tes prix
En Colonne "C" tes mois

Cecode génèrera en colonne "A" les commentaires concaténés des deux colonnes...

Option Explicit
Sub Generate_Comments()
Dim i As Integer
    For i = 1 To Range("B65535").End(xlUp).Row
        If Range("B" & i).Value <> "" Then
                With Range("A" & i)
                    .ClearComments
                    .AddComment
                    .Comment.Visible = False
                    .Comment.Text Text:="Le produit A coute " & Range("B" & i).Value & " francs en " & Range("C" & i)
                        With Range("A" & i).Comment.Shape
                        .TextFrame.AutoSize = True
                        .Fill.ForeColor.RGB = RGB(255, 0, 0)
                        .Fill.Transparency = 0.5
                            With .OLEFormat.Object
                                With .Font
                                    .Name = "Arial"
                                    .Size = 40
                                    .ColorIndex = 6
                                    .Bold = True
                                End With
                            End With
                    End With
                End With
        Else
            Range("A" & i).ClearComments
        End If
    Next i
End Sub

Bonne soirée et bon week end à tous

@+Thierry

​

 

[Jérémy]

Re : Faire des commentaires sur mesures avec VBA

Re-Merci Thierry!!
Une petite question, comment faire pour avoir un genre d'autosize pour le texte mais sur 3 ou 4 lignes stp?