A
arno
Guest
bonjour
mon code ci dessous ne marche pas.est ce qu une ame charitable pourrait venir a mon secour.
merci d avance
Private Sub userform_Initialize()
Dim nodes1 As Integer
Dim elem1 As Integer
nodes1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1
elem1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value)
'Label3.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'
'Label4.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'
Label3.Caption = nodes1
Label4.Caption = elem1
End Sub
mon code ci dessous ne marche pas.est ce qu une ame charitable pourrait venir a mon secour.
merci d avance
Private Sub userform_Initialize()
Dim nodes1 As Integer
Dim elem1 As Integer
nodes1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1
elem1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value)
'Label3.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'
'Label4.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'
Label3.Caption = nodes1
Label4.Caption = elem1
End Sub