Bonjour,
Pour les couleurs c'est normal, sinon ce serait l'anarchie par la suite (des couleurs partout)
Pour le formulaire Obervation, voici le code modifié au cas ou on supprime le texte, c'est mieux effectivement de pouvoir le supprimer
Private Sub Cbn_EnrQuitter_Click()
Dim Ind As Integer, sTxt As String
Dim sTab() As String
' Définir le tableau des valeurs séparée par un espace
sTab = Split(Me.TextBox1, " ")
' Préparer le texte à inscrire, on séparer chaque valeur par une *
sTxt = ""
For Ind = 0 To UBound(sTab)
sTxt = sTxt & sTab(Ind) & "*"
Next Ind
' Supprimer la dernière étoile qui ne sert à rien
If sTxt <> "" Then sTxt = Left(sTxt, Len(sTxt) - 1)
' Inscrire les valeurs
With Range("D" & LigSel)
' Eviter l'erreur si n'existe pas de commentaire
On Error Resume Next
.Comment.Delete
On Error GoTo 0
' Si le textbox contient qq chose
If sTxt <> "" Then
' Ajouter un commentaire
.AddComment
.Comment.Visible = False
.Comment.Text Text:=sTxt
End If
End With
' Quitter l'USF, les informations ne seront plus présentes à cahque ouverture
Unload Me
End Sub
@+