Erreur d'éxecution 6 - Dépassement de capacité

Bonjour,

J'ai pour projet de réaliser des cartes de contrôles.

J'ai crée une fonction principale qui me permet de générer un tableau en sélectionnant plusieurs échantillons sur un jeu de données.

Quand je lance ma boucle, on m'indique erreur d'éxecution 6. Je ne comprends pas pourquoi, j'ai fais exprès de mettre toutes mes valeurs numériques en type Currency pour ne pas avoir ce problème.

Si quelqu'un pourrait m'aider.

Je joins mon fichier. La fonction se trouve dans le module 2

Cordialement

Hello,

Tu fais 0 divisé par 0 dans ta fonction "selection". D'ailleurs pourquoi c'est déclaré en fonction et pas en procédure??

Avant que je modifie mon code pour régler un problème ma boucle tournait bien et j'arrivai à une division qui n'était pas égale à zéro vu que dans une la boucle nbr_ech est incrémenté.

Mais comme j'ai cette erreur de dépassement de capacité, je n'arrive plus à rentrer dans ma boucle.

Je remarque aussi que si j'initialise nbr_ech à 1, je n'arrive pas à rentrer dans la première boucle while.

Pour la procédure c'est une erreur de ma part. Je ne suis pas très douée en VBA.

Je modifierai cela plus tard. Merci pour cette remarque

While Cells(i, 1).Select <> Cells(fin, 1).Select

à remplacer A PREMIERE VUE par

While Cells(i, 1)<> Cells(fin, 1)

Bonjour,

Merci pour ta réponse,

Mais si je ne me trompe pas, ce code va s'arrêter la première valeur qui va être égale à 13.8 car cells(fin,1) = 13.8