cs_spectro2
Messages postés5Date d'inscriptionlundi 12 janvier 2004StatutMembreDernière intervention 5 février 2013
-
22 juin 2005 à 15:26
ScSami
Messages postés1488Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention 3 décembre 2007
-
22 juin 2005 à 17:06
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
ScSami
Messages postés1488Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention 3 décembre 200724 22 juin 2005 à 17:06
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!!!