validation userform si textbox vide

[pat17]

Bonjour le forum,

J'ai un message d'erreur lors de la validation de mon userform qui comporte une textbox si cette textbox est vide.
le débogage se bloque sur la ligne rouge concernant ajout de commentaires dans une feuille

je joins le code

Private Function MiseEnFormeReservation(NomFeuille As String) As Boolean
  Dim resultat As Boolean, FirstCel As String
  'On Error GoTo fin
 ' Déprotéger la feuille
 Call Protection(NomFeuille, False)
  ' Faire la mise en forme
 With Sheets(NomFeuille)
    ' Inscrire le nom dans la première cellule
   FirstCel = Left(MaPlage.Address, InStr(1, MaPlage.Address, ":") - 1)
    .Range(FirstCel).Value = Me.ComboNomUtilisateur
    With .Range(MaPlage.Address)
    .Merge
    .Interior.ColorIndex = CouleurUser
    '.HorizontalAlignment = xlCenter
   .HorizontalAlignment = xlCenterAcrossSelection
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    'Ajout des commentaires
   [COLOR="Red"]Sheets(NomFeuille).Range(FirstCel).AddComment Text:=Commentaire.Text[/COLOR]
   End With
  End With
  resultat = True
fin:
  MiseEnFormeReservation = resultat
  ' Protéger la feuille
 Call Protection(NomFeuille, True)
End Function

merci de votre aide

 

[Ridame]

Re : validation userform si textbox vide

Ajoute des "" dans la redirection

Sheets("NomFeuille").Range(FirstCel).AddComment Text:=Commentaire.Text

Edite: j'ai mal lu, la fonction, je vois pas dsl

 

[pat17]

Re : validation userform si textbox vide

Bonjour ridame,

j'ai essayé mais j'ai un message d'erreur (l'indice n'appartient pas à la sélection)

cordialement