Discussion :

[vba_lieb]

Bonjour,

Alors je rencontre une difficulté et malgré de nombreuses recherches je n'arrive pas à solutionner. Du coup je fais appel à vous

Ce fichier me sert à afficher une fiche d'une référence grace à un bouton (et sa macro)
Lorsque l'USRFORM est affiché, j'ai un bouton IMPRIMER, qui me permet d'alimenter mon template qui est la feuille TEMPLATE_IMPRESSION

Apporter des infos dessus me pose pas de probléme.

Par contre, pour chaque tache dans ListBox1 j'ai une ligne.
J'aimerai que chaque ligne de ma ListBox soit placé dans la feuille TEMPLATE_IMPRESSION mais en rajoutant automatiquement une ligne.
Dans la feuille TEMPLATE_IMPRESSION, c'est à partir de la ligne 7 qu'il faudrait que les lignes soient rajoutées.

ETAT ACTUEL :
J'ai trouvé déja une piste qui me permet de remonter l'ensemble des lignes de ma ListBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim R As Long, C As Long
 
For R = 0 To ListBox1.ListCount - 1
 
    For C = 0 To ListBox1.ColumnCount - 1
        'MsgBox ("Valeur R " & R)
        'MsgBox ("Valeur C " & C)
        Application.ThisWorkbook.Worksheets("Feuil1").Range("B2").Offset(R, C).Value = ListBox1.List(R, C)
    Next
'ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R, C).EntireRow.Insert
ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R).EntireRow.Insert
Next

Mais j'ai la ligne des Titres qui s'inscrit dans mon template_impression et n'arrive pas à trouver la solution pour que chacune ligne de ListBox garde la mise en page de la ligne 7

Je joins à ce message le fichier.

Pour info, j'ai la feuille "Feuil1" qui me sert de test.
Pensez à changer ThisWorkbook.Worksheets("Feuil1") en ThisWorkbook.Worksheets("TEMPLATE_IMPRESSION")

A oui, du coup, il y aura un impact sur ma zone d'impression qui change... Du coup là aussi, comment la rendre dynamique car elle est de base de A1:K12

Code :

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

1
2
'Définition zone_d_impression
ThisWorkbook.Worksheets("TEMPLATE_IMPRESSION").PageSetup.PrintArea = ("A1:K12")

Tableau_Userform_V2.1.xlsm

Un grand merci encore pour votre aide précieuse.

Lieb

[Nain porte koi]

Hello,

Pour la copie, ajoutez CopyOrigin:=xlFormatFromRightOrBelow à la ligne ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R).EntireRow.Insert

Pour la zone d'impression, si elle n'est pas définie Excel la choisi seul automatiquement

[vba_lieb]

Hello,

Pour la copie, ajoutez CopyOrigin:=xlFormatFromRightOrBelow à la ligne ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R).EntireRow.Insert

Pour la zone d'impression, si elle n'est pas définie Excel la choisi seul automatiquement

Bonjour,

Merci à toi,

Au final ça prend pas en compte la mise en forme.
J'ai fait des impressions d'écran pour présenter mon besoin que je cherche à solutionner :





J'ai mis à jour le code comme préconisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
For R = 0 To ListBox1.ListCount - 1
 
    For C = 0 To ListBox1.ColumnCount - 1
        Application.ThisWorkbook.Worksheets("Feuil1").Range("B2").Offset(R, C).Value = ListBox1.List(R, C)
    Next
 
'ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R).EntireRow.Insert
ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(R).EntireRow.Insert CopyOrigin:=xlFormatFromRightOrBelow
 
Next

Je continue à investiguer... Merci pour votre aide

Lieb

[Nain porte koi]

Alors essayez l'autre xlFormatFromLeftOrAbove

[Alex020181]

Bonjour,

Il y aurait pas mal de choses à améliorer dans ton code mais si j'ai bien compris ta demande et en reprenant volontairement ta façon de penser et de coder je pense que la PJ te fera le job.

Je t'ai commenté le code ajouté et modifié.

Teste et dis nous.



PS; pas compris pourquoi tu demandes la référence pour ouvrir le formulaire puisqu'ensuite toute les tâches de toutes les références existantes sont quand même listées...

[Alex020181]

De rien.

Content d'avoir aidé...

[vba_lieb]

De rien.

Content d'avoir aidé...

Merci avec plaisir, désolé pour le délai de réponse. Ca fonctionne parfait !