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