Problème de code VBA

[SPEA]

Bonjour à tous,

j'ai un problème avec un code VBA dont l'utilité est de récuperer certaines plages de données sur differents classeurs et de les copier dans un classeur récap.

La macro ouvre les classeurs successivement puis copie les plages vers le tableau recap et referme les classeurs.

Tout fonctionnait bien mais j'ai modifié le classeur Chloration, les données à récuperer ont été décalées car j'ai inséré une colonne. J'ai mis à jour les nouvelles coordonnées mais la macro plante à la ligne:

For Each Cel In .Range(Plg)

Pouvez vous m'aider à me dépatouiller SVP ?

 

[SPEA]

Re : Problème de code VBA

Avec le fichier ca va mieux...

 

[wilfried_42]

Re : Problème de code VBA

Bonjour Spea

Question, quelles est la valeur de it, tu as 2 macros, une si it = 0 l'autre si it>0

 

[Bebere]

Re : Problème de code VBA

bonjour Spea,Wilfried
avec ReDim Tab_WkB(4, 4),index de 0 à 4 cela fait 5 index
essaye
Plg = IIf(Tab_WkB(F, 3)="", Tab_Plage(Ite, 0), Tab_WkB(F, 3))
à bientôt

 

[SPEA]

Re : Problème de code VBA

Bonsoir,

j'ai essayé la ligne de code Plg = IIf(Tab_WkB(F, 3)="", Tab_Plage(Ite, 0), Tab_WkB(F, 3)) mais le probleme persiste.

La 2° macro avait été rajouté pour ajouter de nouvelles plages de données sur un fichier supplémentaire.

Le problème est apparu depuis que j'ai fait des modifs dans le fichier chloration, J'ai inséré une colonne donc les données à recopier qui se trouvaient en:
Tab_Plage(0, 0) = "P3😛14"
Tab_Plage(1, 0) = "N3:N14"
Tab_Plage(2, 0) = "N3:N14"
Tab_Plage(3, 0) = "P3😛14"
Tab_Plage(4, 0) = "Q3:Q14"
Tab_Plage(5, 0) = "I3:I14"

se sont retrouvées en:

Tab_Plage(0, 0) = "Q3:Q14"
Tab_Plage(1, 0) = "O3:O14"
Tab_Plage(2, 0) = "O3:O14"
Tab_Plage(3, 0) = "Q3:Q14"
Tab_Plage(4, 0) = "R3:R14"
Tab_Plage(5, 0) = "I3:I14"