Rectifier une erreur d'execution 9

salut

je vous demande s'il serait possible de corriger l'erreur dans le fechier ci-joint.

cordialement

Bonjour,

Pourriez-vous nous dire quand cela se produit ?

Salut

lorsque j'ouvre le fichier puis je passe à la feuille base de donné puis je passe à une autre feuille l'erreur se produit.

Re,

Dans le fichier que nous avons, quasiment toutes les données sont effacées.

Dans VBA, vous définissez une variable dans la feuille Base de données

tabloB = Range("A1").CurrentRegion

Or, comme le tableau est vide, la sélection correspond à A1:C2.

Dans votre code VBA, vous avez celle ligne

f.Range("D" & i) = f.Range("D" & i) + tabloB(ln, 8)

Où vous cherchez a additionner la colonne 8, du tableau tabloB, or, il n'a que 3 colonnes.

Si vous avez un tableau de données qui est rempli, vous ne devriez plus avoir ce problème.

D'ailleurs, si vous mettez des valeurs dans la feuille Base de donné, sur la ligne contenant la référence du stylo, dans les cellules D2 à G2 (Moi, j'ai mis des 0), le problème disparait, parce que l'indice 8 existe à nouveau dans votre variable tabloB.

Cordialement.

merci c'est très gentil