Hello everybody,
 
je vous explique le casse tête chinois que je fais:
j'ai créé un userform qui me permet d'alimenter une base de donnée avec la possibilité d'insérer un commentaire dans les cellules saisies.
 
J'ai créé un 2°userform pour visionner les cellules que j'ai rentré au-paravant avec zone d'impression et tout le tralala...  
Cependant, je n'arrive pas à faire apparaître dans l'un des textbox le commentaire des cellules concernées.
 
D'où ma question,   , est-ce que qlq'1 sait faire apparaître un commentaire d'une cellule dans un textbox d'un userform?
 
Merci d'avance,
 
Ps: je joins le prgm pour les interressés (insertion de commentaire dans une cellule à partir d'un userform d'enregistrement)
 
Private Sub CommandButton5_Click()
Dim strresponse As String, strprompt As String, strtitle As String
strresponse = ""
strprompt = "Veuillez taper votre commentaire"
strtitle = "Commentaire"
strresponse = InputBox(strprompt, strtitle, strresponse)
 
   Sheets("BD_Compteur" ).Select
   Range("E4" ).Select
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   Range("E4" ).AddComment
   Range("E4" ).Comment.Visible = False
   Range("E4" ).Comment.Text Text:=strresponse & Chr(10) & "" & Chr(10) & ""
   Range("E5" ).Select
 
End Sub

Ben, je m'attendais à un piège mais pas du tout.
 
UserForm.TextBox = [E4].Comment.Text
 
A toi de changer les noms de UserForm et TextBox