Problème VBA

[dar0609]

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

 

[Pierrot93]

Re : Problème VBA

Bonjour,

pas top ton titre... 1 question sur 3 parle de vba.... ceci n'aidera pas ceux qui auront le même problème que toi....

bonne journée
@+

 

[dar0609]

Re : Problème VBA

J'ai trouvé en fait merci à ceux qui comptaient me répondre

 

[dar0609]

Re : Problème VBA

Oui tu as raison Pierrot je changerai mes titres

 

[Pierrot93]

Re : Problème VBA

Oui tu as raison Pierrot je changerai mes titres

Merci bien