Infobulle

Bonjour, je souhaiterai que tout ce qui est inscrit dans le UserForm soit affiché dans l'infobulle quand je passe sur une cellule de laconne "E". j'ai remplit celui de la cellule "E10" mais ça ne va pas. Il manque la signification.

Bonjour toutes et tous,

@Ludeaux

j'ai un peu testé et j'ai foutu un désastre dans le code

je me suis aidé des contenu du texte des labels: label7 8 et 9 pour les 3 checkbox : checkbox1,2 et 3

Option explicit
Dim LigSel As Long

'Pour le bouton quitter
Private Sub CommandButton2_Click()
On Error Resume Next
  Dim Ind, Ind1 As Integer, sTxt, sTxt1 As String
  ' Préparer le texte à inscrire, on séparer chaque valeur par une *
  sTxt = ""
   sTxt1 = ""
  For Ind = 1 To 5 ' Textbox
    sTxt = sTxt & Me("Textbox" & Ind) & "*"
     ' Supprimer la dernière étoile qui ne sert à rien
  sTxt = Left(sTxt, Len(sTxt) - 1)
    Next Ind

  ' Inscrire les valeurs
  With Range("E" & LigSel)
    ' Eviter l'erreur si n'existe pas de commentaire

  ' Valeur Checkbox
  For Ind = 1 To 3 ' CheckBox
    sTxt = sTxt & Me("CheckBox" & Ind).Value & "*"

    For Ind1 = 7 To 9 ' label
     '   sTxt1 = sTxt1 & Me("Label" & Ind1).Value & "*"

    Next Ind1
     ' Supprimer la dernière étoile qui ne sert à rien
 ' sTxt1 = Left(sTxt1, Len(sTxt1) - 1)

    ' Ajouter un commentaire
  ' Valeur label

    '.AddComment
    '.Comment.Visible = True
    '.Comment.Text Text:=sTxt & sTxt1
 If CheckBox1.Value = True Then
 sTxt1 = Label7.Caption
 On Error Resume Next
     .AddComment
    .Comment.Visible = True
    .Comment.Text Text:=sTxt & sTxt1
    Else
    End If
   On Error Resume Next
    If CheckBox2.Value = True Then
 sTxt1 = Label8.Caption
     .AddComment
    .Comment.Visible = True
    .Comment.Text Text:=sTxt & sTxt1
    Else
    End If
  On Error Resume Next
   If CheckBox3.Value = True Then
 sTxt1 = Label9.Caption
     .AddComment
    .Comment.Visible = True
    .Comment.Text Text:=sTxt & sTxt1
   On Error Resume Next
    Else
    End If

    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:=sTxt & sTxt1

        On Error Resume Next
    '.Comment.Delete
    On Error GoTo 0

    'End With
  ' Quitter l'USF, les informations ne seront plus présentes à cahque ouverture
  '.AddComment
    .Comment.Visible = True
 '  .Comment.Visible = False
  Unload Me
  Next
  End With
End Sub

je pense qu'il manque une boucle pour coïncider si 2 voir 3 checkbox sont cochés simultanément par exemple

- le commentaire reste afficher

trop fou ce truc

merci pour l'aide et la patience. si ce n'est pas possible tant pi. on ne va pas y passer des heures. je vous ai déjà assez embêté .

Bonjour comme les commentaires ça s'avère impossible. Je souhaiterai que la cellule de la colonne E reste en rouge dès que l'on renseigne le userform en double cliquant dans la cellule et que dès que la date d'envoi de la décision est remplit ou exempté est coché, le rouge disparaît. Ça permettra d'avoir un suivi tout le long de la procédure. Merci pour l'aide.

Bonjour,

Il manque la signification.

Ce qui veut dire quoi ?

eric

Les messages d'avant suivi mail 67. Avec André nous sne sommes a pas arrives à faire ce que je souhaite. Donc quand on clique dans les cellules de k1 colonne E un formulaire apparaît. Je souhaiterai que des qu' on renseigne ce formulaire la cellule reste en rouge tant que la date d'envoi de la décision n'est pas renseigné. C'est des envois de courriers et ça peut durer entre 2 et 6mois.