Infobulle

Bonjour je souhaiterai que tout ce qui se trouve dans le formulaire en colonne "E" soit affiché dans l'infobulle quand je passe le curseur dans les celles. car pour le moment seul les dates et vrai ou Faux s'affichent.

https://www.cjoint.com/c/IHDhdSZxHCM

Bonjour,

Voici un code qui crée le commentaire avec toutes les valeurs de la ligne :

Sub AjouterCommentaire()

    Dim Com As Comment
    Dim I As Integer
    Dim Lig As Long
    Dim Texte As String

    Lig = ActiveCell.Row

    Set Com = Cells(Lig, 5).Comment

    If Not Com Is Nothing Then Com.Delete

    Set Com = Cells(Lig, 5).AddComment

    For I = 1 To 11

        Texte = Texte & Cells(Lig, I).Value & vbCrLf

    Next I

    With Com.Shape.TextFrame

        .Characters.Text = Texte
        .AutoSize = True

    End With

End Sub

que tu peux appeler à la fermeture de l'UserForm dont le code devient tout simplement :

Private Sub CommandButton2_Click()

    AjouterCommentaire
    Unload Me

End Sub

Par contre, il te faut modifier le code de la procédure "Initialize" pour récupérer seulement les valeurs voulues et si ce ne sont pas celles contenu dans le tableau, il te faudra probablement créer des colonnes à coté pour les stocker