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
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