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
merci de votre aide
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
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