Bonjour à tous,
J'ai un problème dans mon code ci-dessous, en effet j'essaye de créer un userform afin de pouvoir convertir des monnaies (Francs/Euros) à l'aide de textbox dans lesquels je renseigne le montant à convertir. Alors en fait la 1ère partie du code fonctionne cependant la seconde partie ne fait rien (celle avec division). Il n'y a pas d'anomalie cependant rien n'apparaît dans la cellule souhaitée. Je vous joins également le fichier, avec l'onglet "Convertion" qui vous intéresse.
Private Sub CommandButton1_Click()
Dim Derlig As Integer
Derlig = Sheets("Converstion").Cells(65536, 1).End(xlUp).Row
Dim i As Integer
i = Derlig + 1
If TextBox2 <> "" Then
Cells(i, 1) = "= " & TextBox2 & " * F1"
End If
Dim Derlig2 As Integer
Derlig2 = Sheets("Converstion").Cells(65536, 2).End(xlUp).Row
Dim o As Integer
o = Derlig2 + 1
If TextBox1 <> "" Then
Cells(o, 2) = "= " & TextBox1 & "/F1"
End If
Unload Me
End Sub
J'ai un problème dans mon code ci-dessous, en effet j'essaye de créer un userform afin de pouvoir convertir des monnaies (Francs/Euros) à l'aide de textbox dans lesquels je renseigne le montant à convertir. Alors en fait la 1ère partie du code fonctionne cependant la seconde partie ne fait rien (celle avec division). Il n'y a pas d'anomalie cependant rien n'apparaît dans la cellule souhaitée. Je vous joins également le fichier, avec l'onglet "Convertion" qui vous intéresse.
Private Sub CommandButton1_Click()
Dim Derlig As Integer
Derlig = Sheets("Converstion").Cells(65536, 1).End(xlUp).Row
Dim i As Integer
i = Derlig + 1
If TextBox2 <> "" Then
Cells(i, 1) = "= " & TextBox2 & " * F1"
End If
Dim Derlig2 As Integer
Derlig2 = Sheets("Converstion").Cells(65536, 2).End(xlUp).Row
Dim o As Integer
o = Derlig2 + 1
If TextBox1 <> "" Then
Cells(o, 2) = "= " & TextBox1 & "/F1"
End If
Unload Me
End Sub