'Private Sub UserForm_initialize()
'Dim iCata As String, i As Long
'Dim iTexte As String
'Dim NomTG_Texte As String
'Dim iT() As String
'TextBox3 = Application.Caller
'iCata = "CATA_" & Mid(Application.Caller, 4)
'iT() = Split(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text, "[")
'If InStr(1, ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text, "[") > 0 Then
' TextBox1 = Replace(Trim(iT(0)), Chr(10), "")
' TextBox4 = Replace(Trim(iT(1)), Chr(10), "")
' TextBox4 = Replace(Trim(iT(1)), "]", "")
'Else
' TextBox1 = Replace(Trim(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text), Chr(10), "")
'
'End If
'If ActiveSheet.Shapes(iCata).Visible = True Then
' CheckBox1 = True
'Else
' CheckBox1 = False
'End If
'If ActiveSheet.Shapes(Application.Caller).DrawingObject.Interior.ColorIndex = 15 Then
' CheckBox2 = True
'Else
' CheckBox2 = False
'End If
'End Sub
Private Sub UserForm_initialize()
Dim iCata As String, i As Long
Dim iTexte As String
Dim NomTG_Texte As String
Dim iT() As String
Dim SH As Shape
'---
Set SH = ActiveSheet.Shapes(Application.Caller)
TextBox3 = SH.Name
iCata = "CATA_" & Mid(SH.Name, 4)
iT() = Split(SH.TextFrame.Characters.Text, "[")
If InStr(1, SH.TextFrame.Characters.Text, "[") > 0 Then
TextBox1 = Replace(Trim(iT(0)), Chr(10), "")
TextBox4 = Replace(Trim(iT(1)), Chr(10), "")
TextBox4 = Replace(Trim(iT(1)), "]", "")
Else
TextBox1 = Replace(Trim(SH.TextFrame.Characters.Text), Chr(10), "")
End If
If ActiveSheet.Shapes(iCata).Visible = True Then
CheckBox1 = True
Else
CheckBox1 = False
End If
If SH.DrawingObject.Interior.ColorIndex = 15 Then
CheckBox2 = True
Else
CheckBox2 = False
End If
End Sub