Addition dans textbox
Bonjour le forum
Bonjour le forum
Voici une formule que j'ai dans un fichier
With Feuil15.Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 5)
.value = CDbl(Me.TextBox1.value) + .value
End With
Elle marchait bien. Depuis un certain temps
elle fait du yoyo. Tantôt c'est , tantôt elle plante
avec indication: Erreur d'exécution 13
incompatibilité de type
J'ai essayé de déclarer value en d'autres variables sans réussite.
Je ne comprends pas
Merci de votre aide
A+
Bonsoir,
Le "type" n'apparaît pas dans ma boule de cristal !
Bonsoir MFerrand
Merci de te pencher sur mon bout de code
Est il nécessaire de préciser "Dim value as double" ?
Le résultat est le même chez moi. Le yoyo
Je ne vois pas ça dans le bout de code que tu cites !
Mais si tu as déclaré une variable nommée "value", ce n'est pas vraiment conseillé (quel que soit son type), car il s'agit d'un mot-clé du langage, de plus fréquemment employé...
Je disais tout à l'heure (implicitement) que détecter où peut se situer une incompatibilité de type sans le fichier, hormis quelques cas (qui ne sont pas les plus nombreux) où la source se trouve juste dans la ligne qui se surligne lors de l'erreur d'exécution, est un exercice qui relève de la divination.
Ceci dit, en dirigeant mon attention sur "value", je me rends compte, que si tu as copié et collé le bout de code à partir du module où il se trouve, il est anormal de trouver value et non Value (VBA remet des initiales majuscules à (presque) tous les mots-clés (ce qui est d'ailleurs un indice qu'il n'y a pas d'erreur grossière de syntaxe quand on tape).
Ferrand
Re Mferrand
Je n'avais pas compris
.value = CDbl(Me.TextBox1.value) + .value
voilà la ligne qui se surligne avec l'erreur que j'ai indiquée plus haut.
Au besoin j'envoie un petit fichier tout à l'heure
Merci
Il vaudrait mieux si tu veux qu'on puisse chercher.
Re MFerrand
J'ai fait un petit fichier sur lequel je fais des tests
J'avoue que depuis lors rien ne s'y passe d'anormal.
Du coup je me dis que c'est un autre bout de code
qui est à l'origine de cette incompatibilité.
S'il survient quelque chose je t'aviserai
En tout cas je te remercie.