Discussion :

[amange]

Bonjour à tous, je suis nouveau et je viens de débuter VBA Excel, mais j’ai un problème qui est le suivant :
J’ai importé un fichier XML sur Excel avec 2895 lignes
<stdyDscr>
<citation>
<titlStmt>
<titl>
….
</catStat>
</catgry>
<varFormat type="numeric" schema="other"/>
</var>
</dataDscr>
</codeBook>
Je veux écrire un programme qui permet une insertion automatique de 6 lignes de données :
<respunit>enquété<respunit>
<Qstn>
<preQTxt>Votre/vos telephone(s) mobile(s) est/sont-il(s) habituellement allume(s) ?</preQTxt>
<qstnLit>Votre telephone mobile a-t-il ete decharge au cours des 7 derniers jours ?</qstnLit>
<postQTxt>Avec quelle frequence rechargez-vous votre telephone mobile ?</postQTxt>
</Qstn>
En des endroits différents sur les 2895 lignes précédentes.
Comment procédez ?

[Pierre Fauconnier]

Salut.

A défaut d'explications sur où insérer ce code, sur base de quel décalage, etc, il est malaisé de te donner un code qui va fonctionner chez toi...

Il serait déjà intéressant de connaître la finalité de ton traitement. Si tu cherches à insérer un bloc xml au sein d'une série de noeuds d'un fichier XML, il est préférable de travailler avec la librairie Microsoft XML V6.0 (par exemple). elle t'offre des outils de manipulation d'un XML qui facilitent le traitement.

Néanmoins, on peut imaginer la chose suivante:

• définir le bloc de lignes à insérer;
• définir le nombre de lignes des blocs XML dans lesquels insérer les nouvelles lignes;
• Définir à partir de quelle ligne de chaque bloc il faut insérer les lignes;
• Déterminer la colonne d'arrivée;

Il faut évidemment dans ce cas que le nombre de lignes par bloc xml au sein de tes lignes soit constant et que l'insertion doive toujours se faire au même endroit de chaque bloc.

A partir de là, et en commençant par la fin, on peut remonter les blocs et insérer les lignes grâce à une boucle.

Dans l'exemple suivant, on a plusieurs fois la suite de lettres A => J, avec D, E, F manquants. On a donc x blocs de 7 lignes, et il faut insérer le nouveau bloc à la quatrième ligne de chaque bloc de la colonne du résultat.

• Le bloc à insérer est donc F1:F3;
• Le nombre de lignes d'un bloc est 7;
• Il faut insérer les nouvelles lignes à partir de la ligne 4;
• La colonne d'arrivée est A.

Voilà un code qui pourrait convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub InsertLines()
  Dim Source As Range
  Dim RowForInsert As Long
  Dim BlocRows As Long
  Dim OffsetValue As Long
  Dim LastInsertrow As Long
 
  BlocRows = 7
  OffsetValue = 4
 
  Set Source = Range("F1:F3")
  LastInsertrow = Range("a1048576").End(xlUp).Row - BlocRows + OffsetValue
 
  For RowForInsert = LastInsertrow To 0 Step -BlocRows
    Source.Copy
    Range("a" & RowForInsert).Insert xlDown
  Next
End Sub

Faute d'infos de ta part, difficile de t'aider au plus près de ton besoin.

[amange]

Merci Pierre Fauconnier, pour mon exemple, c'est des variable avec des blocs qui varis de 10 à 26. Et les lignes à insérer constituent la partie de la documentation, bien que toutes les variables ne sont pas documentées. Encore une fois de plus merci, vous étes d'un grand secours.