extraction de donnéesRésolu

Question

Bonjour, je veux copier des données dans un gros fichier excel et les coller dans des feuilles différentes. Chaque bloc de données commence par Data et comprend une trentaine de lignes suivi des chiffres disposés sur 8 colonnes et 1000 lignes environ.Le fichier comprend une quinzaine de blocs. J'ai commencé par faire 2 macros: une pour créer les feuilles et une autre pour copier les données dedans. Les 2 macros fonctionnant séparément j'ai voulu les regrouper.La première partie fonctionne et les feuilles sont créées et renommées.La copie des données ne fonctionne plus. La macro s'arrête à la ligne 29 avec le message: 'erreur d'execution '1004': erreur définie par l'application ou par l'objet'.Si quelqu'un a une idée de ce qui provoque le bug je suis preneur.

Sub CopyData()
' Déclaration des variables
Dim nbfeuille As Integer
Dim cpt As Integer
Dim bVerif As Boolean
Dim MyStart As Long
Dim compteur As Long
compteur 1
' Initialisation du n° de feuille
cpt 1
nbfeuille = 20
'Créer les nbfeuille et les renommer
For ind = 1 To nbfeuille
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "range" & Format(cpt, "00")
cpt = cpt + 1
Next ind
'copie des données
For i = 1 To 20000
boucle:
If Cells(i, 2).Value = "(Data" Then
If bVerif = False Then
MyStart = i
bVerif = True
Else
Exit For
End If
End If
Next
Range(Cells(MyStart, 1), Cells(i - 1, 12)).Copy
Worksheets(compteur + 1).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
compteur = compteur + 1
If Cells(i, 2).Value = "(Data" Then
MyStart = i
bVerif = False
GoTo boucle
End If
End Sub

mortalino · Accepted Answer

Salut,

concernant le i-1 dans Range(Cells(MyStart, 1), Cells(i - 1, 12)).Copy, il sera toujours = à 19999 car la boucle va de 1 à 20000, cette ligne d'instruction n'est lu qu'après la boucle (et pas dedans).
Donc i - 1 = 0  --> faux !

Ligne 13 à 16, tu crées des feuilles, ok, mais pense à resélectionner celle qui contient le données, sinon, tu vas lire des feuilles blanches 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

chapaleufu · Answer

en 19 tu commences ta boucle a 1
en 29 tu definis un range avec un cells(i-1,12), donc un cells(0,12) : mauvais plan

2 remarques:
1- il est prferable de recourrir aux collections, ainsi pour pour boucler sur les feuilles du wb: "for each feuille in wb"
2- mis a part le gestionnaire d'erreur (on error goto), je ne suis pas fanatique des "goto label", ca rend le code plutot confus et plus difficile a debugge, mais c'est un avis personnel (je prefere les boucles, les appels a des UDF et/ou des procedures.

cs_niemans · Answer

Merci pour la réponse.
J'ai essayé de modifier le programme en commençant la boucle à 10 mais j'obtient la même erreur.
Ce qui est étonnant c'est que les deux parties du programme fonctionne séparément.
Je suis debutant en programmation alors j'utilise ce que connait mais je vais me pencher sérieusement sur l'utilisation des collections.
Que signifie "appel à des UDF", ce sont des fonctions?

chapaleufu · Answer

UDF=User Define Function, ce sont les fonctions qu tu as construites.

verifie la valeur de la variable "MyStart", elle ne s'incremente que si bVerif = False sinon elle est a 0 aussi

cs_niemans · Answer

Ah OK ce sont des fonction perso, c'est sûr que le code est plus lisible.
J'ai regardé dans la fenêtre de debogage de VBA, effectivement "MyStart" est à 0.
C'est bizard, normalement, comme la cellule B26 contient la valeur "(Data", "MyStart aurait due s'incrémenter"?

Extraction de données

5 réponses

Votre réponse

Discussions similaires