Discussion :

[Shadam]

Bonjour tout le monde,

Vu que je ne capte pas grand chose avec VB et Interop (Il faut dire que la doc xml est très clair ) je me tourne une nouvelle fois vers vous.

Donc comme l'indique le titre je souhaite copier puis insérer des lignes sur un fichier Excel. En fait j'ai un modèle de fichier, que j'utilise mais certaine catégorie pouvant évoluer avec le temps il faudra éventuellement que mon appli soit capable de modifier un peu ce modèle.

Donc j'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim nbActiviteSupplementaire = 2
        Dim i = 0
        Dim index As String() = {"27", "28", "29", "30"}
        Dim numLigne As Integer = 31
        Do Until i = nbActiviteSupplementaire
            For Each s As String In index
                maFeuille.Rows(s).copy(Destination:=maFeuille.Rows(numLigne))
                numLigne += 1
            Next
            i += 1
        Loop

Qui fonctionnait, mais il n'insère pas les lignes, il copie celle indiqué puis écrase celle à la ligne indiquée pour se mettre "par dessus".

J'ai donc tenté ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim nbActiviteSupplementaire = 2
        Dim i = 0
        Dim index As String() = {"27", "28", "29", "30"}
        Dim numLigne As Integer = 31
        Do Until i = nbActiviteSupplementaire
            For Each s As String In index
                maFeuille.Rows(numLigne).Insert(Excel.XlDirection.xlDown, maFeuille.Range(s).EntireRow)
                numLigne += 1
            Next
            i += 1
        Loop

Mais là j'ai une exception HResult

Donc un p'tit coup de main ne serait pas de refus.

[Shadam]

Bon après beaucoup d'essais infructueux et de cheveux en moins voici la solution (Sûrement perfectible...) :

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
 
       If dicoResultats.Keys.Count > 5 Then
            Dim nbActiviteSupplementaire = dicoResultats.Keys.Count - 5
            Dim i = 0
            Dim index As String() = {"27", "28", "29", "30"}
            Dim indexLigne As Integer = 31
            Do Until i = nbActiviteSupplementaire
                For Each s As String In index
                    Dim maSelec = maFeuille.Rows(s).Copy
                    maFeuille.Rows(indexLigne).Insert(maSelec)
                    indexLigne += 1
                Next
                i += 1
            Loop
        End If