[VBA - Excel] Incompatibilité de type Excel

Signaler
Messages postés
5
Date d'inscription
lundi 12 janvier 2004
Statut
Membre
Dernière intervention
5 février 2013
-
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
-
Bonjour à tous,


Voici mon problème, lorsque j'exécute sous excel le code suivant j'ai une incompatibilité de type pour txtTexteCaché sachant que txtTexteCaché est un TextBox et CommandButton1 le bouton permettant de lancer la procedure le tout dans une feuille Excel .


Le code en VB fonctionne très bien, par contre en VBA sous Excel pb d'incompatibilité.


Voici le code :



Private Sub CommandButton1_Click()
Dim retour As Integer
retour = MD_Barcode39(txtTexteCaché
End Sub


Public Function MD_Barcode39(ctrl As Control) As String

On Error GoTo ErrorTrap_BarCode39

Dim Nbar As Single, Wbar As Single, Qbar As Single, NextBar As Single
Dim CountX As Single, CountY As Single, CountR As Single
Dim Parts As Single, Pix As Single, Color As Long, BarStamp As Variant
Dim Stripes As String, OneStripe As String, BarCode As String
Dim Mx As Single, my As Single, Sx As Single, Sy As Single

'Quelques Lignes de code

Exit_BarCode39:
Exit Function


ErrorTrap_BarCode39:
Resume Exit_BarCode39


End Function


Merci d'avance !

2 réponses

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
Il est la le pb : Une fonction qui renvoie un type String et dont tu récupères la valeur dans un integer.

C'est pas joli, joli tout ça
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Claire, et de plus :

Private Sub CommandButton1_Click()

Dim retour As Integer

retour = MD_Barcode39(txtTexteCaché
)

End Sub



Et de plus, ON NE NOMME RIEN AVEC DES ACCENTS !!! Combien de fois faudra vous le dire a tous ??? Ni avec des accents, ni avec des caractères spéciaux ("ç" par exemple!)...



Mais bon, vous faites ce que vous voulez après tout!!!



Enjoy