Pb de compilation du code

[perenthian]

Bonjour,

ce bout de code ne veut pas compiler, et je ne vois pas de raison a cela...

Sub HdbCutter()

Dim xHDB(10000)
Dim x_repdeb_HDB(20, 2)

Open "older\file.hdb" For Input As 1

Nbline = 0
NSTR = 0
r = 1
Do While Not EOF(1)
    Line Input #1, xHDB(r)
    If InStr(xHDB(r), "STRUCTURES_NUMBER") <> 0 Then
        R_part_com = r
    End If
    If InStr(xHDB(r), "STRUCTURE_") <> 0 Then
        NSTR = NSTR + 1
        x_repdeb_(NSTR, 1) = r
    End If
    r = r + 1
Loop
RMAX = r
NSTR_max = NSTR

Close #1

For ISTR = 1 To NSTR_max
Open "older\file" & ISTR & ".hdb " For Output As 1

For i = 1 To R_part_com
    Print #1, xHDB(i)
    
Next

If ISTR <> NSTR_max Then
    Rend1 = x_repdeb_(ISTR + 1, 1) - 1
Else
    Rend1 = RMAX
End If
For i = x_repdeb_(ISTR, 1) To Rend1
    Print #1, xHDB(i)
Next

Close #1
Next

End Sub

Merci d'avance pour votre aide

 

[Dranreb]

Re : Pb de compilation du code

Bonjour.
x_repdeb_ n'est pas défini.
Mettez Option Explicit en tête du module, vous aurez moins de difficultés à trouver ce genre d'erreurs.
Et mettez une majuscule au début des noms de variables mais tapez les quand même en minuscule dans le code. Comme ça vous verrez que ce n'est pas déclaré avant même de tenter de le compiler, du fait qu'il ne corrigera pas la casse.
Cordialement.

 

[perenthian]

Re : Pb de compilation du code

Merci.
Mais je ne m'en sors toujours pas...

J'ai un fichier excel écrit comme ceci :

Partie commune

Partie 1

Partie 2

Partie 3

et je dois découper de fichier afin d'obtenir

Partie commune

Partie 1

Partie commune

Partie 2

Partie commune

Partie 3

On m'a aiguille sur ce code mais je galere, il n'y a pas plus simple ? Ou est ce une bonne idée ?

 

[Dranreb]

Re : Pb de compilation du code

Je ne comprend pas ce que voulez dire par votre découpage.
joignez votre classeur.

 

[perenthian]

Re : Pb de compilation du code

Je me suis un mal exprimé, en fait j'ai une feuille que je dois "découper", pour en créer des nouvelle. La feuille initiale comprend une partie qui sera commune aux feuilles nouvellement créées, et des parties qui seront splitter et répartie sur chacune des nouvelles feuilles.

C'est plus clair ? En fait, par rapport à mon post précédent, je veux partir de la première citation, et arriver aux 3 suivantes.

 

[Dranreb]

Re : Pb de compilation du code

Ça n'a pas de rapport avec votre problème initial, donc.
Mais comme je ne vois pas dans votre classeur non joint ce qui permet de distinguer ou commencent et finissent les différentes parties, je ne peut rien vous dire de plus que de faire les Copier/coller de lignes appropriés dans des boucles utilisant des variables déclarées As Long comme compteurs de lignes courantes en entrée et en sortie.

 

[perenthian]

Re : Pb de compilation du code

J'ai essayé d'utiliser le code initial qui ne compilait pas en fait.

Je n'ai pas joint le code car il est au boulot. Mais il est dégueulasse... 😱 Je le posterai demain 😉