Bonjour
Je ne parviens pas à faire fonctionner et à comprendre pour quoi ça ne marche pas.
Je souhaite mettre une condition afin d'éviter les erreur de diviser par zéro ou vide, j'ai entré le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
If (Nomtextbox2) = 0 Or IsEmpty(Nomextbox2) Then
    .Cells(Ligne, 19) = 0
Else: .Cells(1, 19) = TrouveType(Nomtextbox1) / 365 / (Nomtextbox2)
End If
Qui dans mon esprit veut dire: si la toxbox2 est vide ou = zéro, écrire zéro dans la colonne 19, sinon faire l'opération testbox1/365/texbox2.

Si je met 0 dans le textbox (Nomtextbox2), le condition fonctionne, si je la laisse vive j'ai Erreur d’exécution '13' Incompatibilité de type

J’aimerai comprendre pourquoi ça bloque.

Merci
Joël