Discussion :

[guismoman33]

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

[Sceener]

peux tu nous disigner la ligne où ça bloque

[mout1234]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not IsNull(pouce) then
 
end if

[guismoman33]

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

[Lou Pitchoun]

Salut,

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

Essaie plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not IsNull(pouce) then
 
end if

[peaceandloveman01]

Voila:

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

[guismoman33]

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

[zazaraignée]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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