incompatibilé de type

Code:

---

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

peux tu nous disigner la ligne où ça bloque

Bonjour,


Le type Single n'accepte pas les valeurs nulles.

Essaie en déclarant tes variables en Variant au lieu de Single ou en faisant le test Is Null sur la cellule plutot que la variable.


Edit: je viens de faire Tilt: Is Null n'est pas valide....

Essaie plutot

Code:

---

1 2 3

If Not IsNull(pouce) then   end if

---

Je comprend qu'il prennent pas les valeur null mais je ne comprend pas la suite??

Voila:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click()   Dim pouce As Single Dim mm As Single   pouce = Cells(2, 3).Value mm = Cells(6, 3).Value   If pouce <> 0 Then mm = pouce * 25.4 Cells(6, 3).Value = mm End End If   If mm <> 0 Then pouce = mm / 25.4 Cells(2, 3).Value = pouce End If     End Sub

---

Bonne journée !

null et zéro se n'est pas la même chose

Salut,

Citation:

---

Envoyé par mout1234

Edit: je viens de faire Tilt: Is Null n'est pas valide....

Essaie plutot

Code:

---

1 2 3

If Not IsNull(pouce) then   end if

---

---

Citation:

---

Envoyé par guismoman33

null et zéro se n'est pas la même chose

---

Hé! Non! Si c'est un test pour savoir si la cellule est laissée vide, alors la fonction à utiliser est IsEmpty. Je viens de faire ce test avec A1 vide

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toto() If IsNull(Range("A1").Value) Then Debug.Print "valeur nulle" ElseIf IsNull(Range("A1")) Then Debug.Print "cellule nulle" ElseIf IsEmpty(Range("A1")) Then Debug.Print "cellule vide" ElseIf Range("A1").Value = 0 Then Debug.Print "égal à zéro" End If End Sub

---

et la fenêtre d'exécution affiche "cellule vide".

iif me parait etre une instruction interressante pour vérifier l'affectation d'une variable

Code:

---

1 2	pouce = IIf(IsEmpty(Cells(2, 3).Value), 0, Cells(2, 3).Value)

---