Discussion :

[narutobaka]

Bonjour,

Je voulais savoir si il existait une méthode simple pour copier la structure et la présentation d'une ligne d'un fichier excel sans copier le contenu de cette ligne en vb.net.

Mon objectif étant de créer une zone de résultat ayant la même mise en forme que les lignes de données.

Sinon je suis preneur de tout conseil pour des méthodes de représentation graphiques pour les résultats dans un fichier excel depuis vb.net.

Actuellement j'utilise cette méthodes :

- Lecture d'une ligne qui à la même mise en forme que la ligne à représenté
- Copie de cette ligne sélectionner
- Colle de cette ligne
- ajustement de mise en forme (fusion de certaines ligne)

je continue mes recherches

[narutobaka]

bonjour,

ne trouvant rien j'ai utilisé ce code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'pour créer les zones de résultat de valeur à la journée
    'titreResult : chaine de caratère indiquant le non de la ligne de résultat
    'feuilleCourante : numéro de la feuilleCourante en cours de traitement
    Private Sub CreerZoneResJournee(ByVal titreResult As String, ByVal numFeuilleCourante As Integer)
 
        'on utilise deja le formatage d'une ligne par jour existente
        Dim feuilleModel As Excel.Worksheet = egWB.Worksheets("general")
        Dim ligneFeuilleModel As Integer
        Dim modelAffichResultJour As Excel.Range
 
        Dim feuilleCourante As Excel.Worksheet = egWB.Worksheets(numFeuilleCourante)
        Dim ligneFeuilleCourante As Integer
        Dim colFeuilleCourante As Integer
        Dim rangeFeuilleCourante As Excel.Range
 
        rangeFeuilleCourante = feuilleCourante.UsedRange
        ligneFeuilleCourante = rangeFeuilleCourante.Rows.Count
 
        'on prend la première ligne de la feuille générale
        ligneFeuilleModel = nbLigneEntete + 1
 
        modelAffichResultJour = feuilleModel.Rows(ligneFeuilleModel)
        modelAffichResultJour.Copy()
 
        feuilleCourante.Activate()
        feuilleCourante.Paste(feuilleCourante.Rows(ligneFeuilleCourante + 1))
 
        'je récupère la zone utile de la feuille courante après le collage du modele de la zone de résultat
        rangeFeuilleCourante = feuilleCourante.UsedRange
        ligneFeuilleCourante = rangeFeuilleCourante.Rows.Count
        colFeuilleCourante = rangeFeuilleCourante.Columns.Count
 
        'je parcours chaque case pour supprimer la valeur
        'je parcours chaque case pour supprimer les couleurs de fond
        For i = 1 To colFeuilleCourante
            feuilleCourante.Cells(ligneFeuilleCourante, i) = ""
            feuilleCourante.Cells(ligneFeuilleCourante, i).interior.ColorIndex = 2
        Next
 
        'je fusionne les 2 premières colonnes
        feuilleCourante.Range(feuilleCourante.Cells(ligneFeuilleCourante, 1), feuilleCourante.Cells(ligneFeuilleCourante, 2)).Merge()
        feuilleCourante.Cells(ligneFeuilleCourante, 1) = titreResult
    End Sub

Je ne sais pas si il existe une meilleur méthode.

Je laisse le post en non resolu au cas ou qqn aurait des remarque ou une meilleur solution.

cordialement