Voila mon code il me dit que j'ai une incompatibilité de type...Je ne comprend pas du tout...Si vous comprenez vient c'est un convertisseur pouce, mm...Si vous avez une source en delphi ou autre, envoyer sinon essayer de trouver cette fichue erreur svp merci beaucoup
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub CommandButton1_Click() Dim pouce As Single Dim mm As Single pouce = Cells(2, 3).Value mm = Cells(6, 3).Value If pouce Is Not Null Then mm = pouce * 25.4 Cells(6, 3).Value = mm End If If mm Is Not Null Then pouce = mm / 25.4 Cells(6, 3).Value = pouce End If End Sub
Partager