''' <summary> ''' Affiche dans une RichTextBox un certain nombre de caractères à partir d'une position dans une certaine couleur ''' </summary> ''' <param name="AffRichTextBox"></param> ''' <param name="SelectionStart"></param> ''' <param name="SelectionLength"></param> ''' <param name="SelectionBackColor"></param> ''' <param name="SelectionForeColor"></param> Public Shared Sub AffichageSelectionText(AffRichTextBox As RichTextBox, SelectionStart As Integer, SelectionLength As Integer, SelectionBackColor As Color, SelectionForeColor As Color) With AffRichTextBox .SelectionStart = SelectionStart .SelectionLength = SelectionLength .SelectionBackColor = SelectionBackColor .SelectionColor = SelectionForeColor End With End Sub