S
sev
Guest
Bonjour à tous ,
j'ai un problème d'affichage dans un textbox.
Je dois afficher le résultat d'une recherche d'une feuille dans un textbox. Or ce résultat est souvent concaténé (à la ligne) dans un cellule.
Voici le code pour le format des textbox :
Private Sub RunFormat_TextBox12(ByRef MyCell As Range)
With MyCell
With .Font
MyCellFont = .Name
MyCellFontSize = .Size
MyCellFontColor = .Color
MyCellBold = .Bold
MyCellItalic = .Italic
MyCellUnderLine = .Underline
MyCellValue = MyCell.Value
End With
With Me.TextBox12
With .Font
.Name = MyCellFont
.Bold = MyCellBold
.Italic = MyCellItalic
.Size = MyCellFontSize
.Underline = UnderLigneConvertor(MyCellUnderLine)
End With
.ForeColor = MyCellFontColor
.Value = Format(MyCellValue, "0# ##")
End With
Me.CommandButton2.Visible = True
End With
End Sub
Private Sub RunFormat_TextBox13(ByRef MyCell As Range)
With MyCell
With .Font
MyCellFont = .Name
MyCellFontSize = .Size
MyCellFontColor = .Color
MyCellBold = .Bold
MyCellItalic = .Italic
MyCellUnderLine = .Underline
MyCellValue = MyCell.Value
End With
With Me.TextBox13
With .Font
.Name = MyCellFont
.Bold = MyCellBold
.Italic = MyCellItalic
.Size = MyCellFontSize
.Underline = UnderLigneConvertor(MyCellUnderLine)
End With
.ForeColor = MyCellFontColor
.Value = Format(MyCellValue, "0# ##")
End With
Me.CommandButton2.Visible = True
End With
End Sub
Et en fichier joint la capture de l'userform ; mon problème est sur l'affichage des heures d'entrée et de sortie
j'ai un problème d'affichage dans un textbox.
Je dois afficher le résultat d'une recherche d'une feuille dans un textbox. Or ce résultat est souvent concaténé (à la ligne) dans un cellule.
Voici le code pour le format des textbox :
Private Sub RunFormat_TextBox12(ByRef MyCell As Range)
With MyCell
With .Font
MyCellFont = .Name
MyCellFontSize = .Size
MyCellFontColor = .Color
MyCellBold = .Bold
MyCellItalic = .Italic
MyCellUnderLine = .Underline
MyCellValue = MyCell.Value
End With
With Me.TextBox12
With .Font
.Name = MyCellFont
.Bold = MyCellBold
.Italic = MyCellItalic
.Size = MyCellFontSize
.Underline = UnderLigneConvertor(MyCellUnderLine)
End With
.ForeColor = MyCellFontColor
.Value = Format(MyCellValue, "0# ##")
End With
Me.CommandButton2.Visible = True
End With
End Sub
Private Sub RunFormat_TextBox13(ByRef MyCell As Range)
With MyCell
With .Font
MyCellFont = .Name
MyCellFontSize = .Size
MyCellFontColor = .Color
MyCellBold = .Bold
MyCellItalic = .Italic
MyCellUnderLine = .Underline
MyCellValue = MyCell.Value
End With
With Me.TextBox13
With .Font
.Name = MyCellFont
.Bold = MyCellBold
.Italic = MyCellItalic
.Size = MyCellFontSize
.Underline = UnderLigneConvertor(MyCellUnderLine)
End With
.ForeColor = MyCellFontColor
.Value = Format(MyCellValue, "0# ##")
End With
Me.CommandButton2.Visible = True
End With
End Sub
Et en fichier joint la capture de l'userform ; mon problème est sur l'affichage des heures d'entrée et de sortie