problème dans mon code

[aperobass]

salut à tous .J'ai un problème dans ma recherche de mes doublons.
Dans ma feuille j'ai Y00001 à Y00006
Quand je veux remettre des S/N dans la feuille je passe par userform.
Dans mon userform j'écris Y00005 +1(nb de pieces) il me trouve un doublon.
Y00005 + 2 il me trouve un doublon.
Y00005 +3 il me trouve un doublon.
Et quand j'écris Y00005 + 6 il me trouve pas de doublon.😱

Pourquoi il me trouve pas de doublon à partir de 6 ?😡
Fichier joint

A+

 

[jp14]

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

 

[aperobass]

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+

 

[jp14]

Re : problème dans mon code

Bonsoir

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+

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

 

[aperobass]

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+

 

[jp14]

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