Discussion :

[CIBOOX]

bonsoir
j'ai une base de données excel composé de 52 colonnes et de 46 lignes ( le nombre de colonnes et de lignes va surement augmenter ...°°...)
je souhaiterai mettre en place une macro pour l'impressions de donnees et ceux-ci en fonctions des colonnes
exemple je veux imprimer sur une feuille la colonne A suivi des colonnes( I,J,K,L ) avec une option sur le format de la page soit portrait ou paysage.

[Pierre Fauconnier]

Bonsoir

Pour moi, le plus simple serait de créer une macro qui masque les colonnes non désirées, grâce au code suivant:

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
 
Sub AfficherColonnes(Feuille As Worksheet, Colonnes As String)
    Dim Tableau
    Dim i As Integer
    Dim Lettre As String
 
    Tableau = Split(Colonnes, ";")
 
    ' On masque toutes les colonnes
    Feuille.Columns.Hidden = True
 
    ' On affiche les colonnes pour les lettres passées en paramètre
    For i = 0 To UBound(Tableau)
        Lettre = Tableau(i)
        Feuille.Columns(Lettre & ":" & Lettre).Hidden = False
    Next i
End Sub

On utilisera cette procédure comme suit:

Code :

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

1
2
3
4
5
6
 
Sub Test()
    AfficherColonnes Feuil1, "A;C;E;G;K"
    Feuil1.Select
    Range("a1").Select
End Sub

[CIBOOX]

merci Pierre Fauconnier

je pensai a une macro qui me demande les colonnes à editer ainsi que le format portrait ou paysage

[Pierre Fauconnier]

Bonsoir

En adaptant un peu ma macro, tu trouveras ton bonheur...
Une petite boite de dialogue avec un contrôle pour saisir les colonnes voulues et un contrôle pour demander l'orientation de la page, puis tu te sers de la macro de masquage/affichage des colonnes que je t'ai transmise, et le tour est joué...

Cela ira pour créer la boite de dialogue, ou tu souhaites un coup de main?

Bon travail