problème dans mon code

J

jp14

XLDnaute Barbatruc

• 24 Novembre 2009

• #2

Re : problème dans mon code

Bonjour

L'indice d'un tableau commence à 0
Il faudrait corriger la déclaration
Dim liste_derniere_ligne(1 to 6) As Long

Ou modifier "option Base" : Option Base {0 | 1}


A tester

JP

 

Vote positif 0 Vote négatif

A

aperobass

Guest

• 24 Novembre 2009

• #3

Re : problème dans mon code

salut jp 14,merci de m'aider.
J'ai fais ta première solution ça change rien."Dim liste_derniere_ligne(1 to 6) As Long"
Pour la deuxième je comprend pas "option de base".Il faut faire comment pour le modifier?

A+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 24 Novembre 2009

• #4

Re : problème dans mon code

Bonsoir

aperobass à dit:

salut jp 14,merci de m'aider.
Pour la deuxième je comprend pas "option de base".Il faut faire comment pour le modifier?

A+

Cliquez pour agrandir...

La première est suffisante le tableau comporte 6 valeurs, valeur que l'on retrouve dans la boucle
for i = 1 to 6
liste_derniere_ligne(i)

Option base 1 se met après Option Explicit, cela indique que les tableaux commence à la valeur 1, dans ce cas la déclaration Dim liste_derniere_ligne( 6) As Long donnera un tableau qui commence à l'indice 0.

Ne connaissant pas les données et le rôle des contrôles de l'userform je n'ai pas obtenu d'erreur.

JP

 

Vote positif 0 Vote négatif

A

aperobass

Guest

• 24 Novembre 2009

• #5

Re : problème dans mon code

bonsoir jp, vu mon niveau en vb je cale.😱

Il faut que je crée "option Explicit" aprés "option base" et les mettre dans un module,c'est ca jp.

Dans mon fichier j'ai pas option Explicit.
Bon je suis perdu... je vais dormir.


A+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 28 Novembre 2009

• #6

Re : problème dans mon code

Bonsoir

Ci joint le fichier avec une modification de l'algorithme de recherche de doublons.
Vérification si le numéro de série ne fait pas partie d'une plage de numéros déjà utilisé.

A tester
Bon week end

JP

 

Pièces jointes

• essai2.zip

  44.1 KB · Affichages: 25
• essai2.zip

  44.1 KB · Affichages: 20
• essai2.zip

  44.1 KB · Affichages: 25

Vote positif 0 Vote négatif