Discussion :

[scons]

Bonjour,
J'ai crée une macro excel qui me permet de creer des codes barres.
J'ai cependant un petit probleme.
voici le code concerné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 Worksheets(1).Cells(i, y) = "20" & codesite & année & compteur  'stockage code barre sans la cle et cellule en format texte
        cle = (Worksheets(1).Mid(Cells(i, y), 1, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 2, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 3, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 4, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 5, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 6, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 7, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 8, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 9, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 10, 1) * 3 + Mid(Cells(i, y), 11, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 12, 1) * 3) Mod 10
        If cle = 0 Then 'calcul de la cle
            cle = (Worksheets(1).Mid(Cells(i, y), 1, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 2, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 3, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 4, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 5, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 6, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 7, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 8, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 9, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 10, 1) * 3 + Mid(Cells(i, y), 11, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 12, 1) * 3) / 10
        End If

Bon ca fait peut etre u peu brouillon mais ma question est simple.
Quand je rajoute "worksheets(1)" devant "mid(cells(i,y)....)" j'ai le message d'erreur "propriete ou methode non gérée"
Si quelqu'un a une idée du probleme je lui en serai reconnaissant.
Je signale que sans worksheets(1) le programme fonctionne mais semble se morde la queue de temps en temps.

[Fvandermeulen]

Salut,
C'est normal 'Mid' ne peut pas être dépendant de l'objet Worksheet, par contre cells oui, et c'est logique, tu veux être certain de bien utiliser les cellules de la feuille 1 donc la syntaxe serait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cle = Mid(Worksheets(1).Cells(i, y), 1, 1) ...

A+

[scons]

Je te remercie en effet je voulais etre bien sur d'utiliser les cellules de la bonne feuille.
Maintenant que je vois la bonne syntaxe je me dis que je suis vraiment bete car je la connaissais.
En tout cas je te remercie.

Bonne journée