Bonjour,

J'ai réalisé un code sous VBa avec un Userform.... et tout fonctionne chez moi (windows XP service 3). En revanche quand je suis au bureau (windows 7 entreprise) le programme bloque à

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim PenteFruit As Double

 If ComboBox1.Text = "H/L (ex: 1/2)" Then
   PenteFruit = UserForm1.TextBoxHpente.Value / UserForm .TextBoxLpente.Value

   Sheets("FOSSE_Aval").Range("I5").Value = UserForm1.TextBoxH.Value / PenteFruit    'calcul longueur L1 et renvoi dans feuille

   UserForm1.LabelL1.Caption = Round(Sheets("FOSSE_Aval").Range("I5").Value, 2)
et j'ai le message
erreur d'exécution 13 - incompatibilité de type
Je ne comprends pas vraiment le problème. Je précise tout de même que la cellule "I5" est renommée "Largeur" quand je clique sur la cellule dans excel. Mais je ne pense pas que ce soit le problème étant donné que dans la première partie de mon programme le même cas se présente.

Est-ce un problème de compatibilité windows ?

Merci de votre aide