Résoudre le probléme d'un beug

bonjour les amis

est ce que vous pouvez me dire svp pourquoi j'ai ce beug dans mon fichier

https://www.cjoint.com/c/FGBn3yn3WUh

normalement je veux qu'il me remplis les cellules et ensuite me supprime les lignes vides du tableau

le fichier est trop gros c'est pour cela j'ai mis un lien

aidez moi svp merci

Bonjour,

Je ne comprends pas bien les tableaux ... mais si tu ajoutes "on error resume next" devant "tablo = Range("Y6:AD" & derln" le code continue jusqu'à la fin. Je n'ai aucune idée si le traitement est correct ou pas.

Gelinotte

Bonjour,

L'erreur survient quand il y a comparaison sur la cellule AE8 ... quelle qu'en soit la valeur ... même vide

Gelinotte

Bonjour,

La feuille est sélectionnée si la valeur en colonnes E à J est VRAI.

On relève alors sa position (exemple : position 6 pour plat6).

Cette position permet d’effectuer le choix de feuille (f) avec l’instruction

f = Choose(i, "PP v1000", "PP", "GP", "Mixte", "PE", "Pliage main").

Exemple : "Pliage main" en position 6.

Le traitement qui suit est alors appliqué à la feuille avec l’instruction

Set cell = Sheets(f).Range("A:A").Find(Range("A" & ln), lookat:=xlWhole)

Pour que cela fonctionne, il faut que f corresponde à l'index, c’est-à-dire à la position de l'onglet dans le classeur.

Mais ce n’est pas le cas dans ton classeur :

Sheets(1) : Qtité Famille

Sheets(2) : Séchage

Sheets(3) : Lavage

Sheets(4) : PP v1000

Sheets(5) : PP

Sheets(6) : GP

A+

Bonjour,

Une observation en faisant du pas-à pas ...

En espérant ne pas être trop dans le champ...

tablo = Range("Y6:AD" & derln) ... ce qui représente 6 colonnes

et quelques lignes plus bas, on va jusqu'à 8 .... For j = 1 To 8 d'où l'erreur 1 to 6 passe à merveille.

Sans tenir compte de d'autres points, dont ceux relevés par Frangy

Gelinotte

Rechercher des sujets similaires à "resoudre probleme beug"