Liste déroulante et atteinte de tableaux

[apt]

Bonsoir à tous,

J'aimerais atteindre des tableaux à l'aide de valeurs choisies dans une liste déroulante.

Les tableaux seront sélectionnés pour impression.

Exemple en PJ.

 

[DoubleZero]

Re : Liste déroulante et attainte de tableaux

Bonjour, apt, le Forum,

Et... qu'en est-il de cette discussion 🙄 ?

 

[apt]

Re : Liste déroulante et atteinte de tableaux

Bonjour DoubleZero,

J'ai trouvé evec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        x = Target
        y = Application.Match(x, [E1:E100], 0)
        If IsError(y) Then
            MsgBox x & " non trouvé"
        Else
            'MsgBox x & " trouvé à la ligne E" & y
            Range("D" & y).CurrentRegion.Select

        End If
    End If
End Sub

Et... qu'en est-il de cette discussion 🙄 ?

Oui, DoubleZero, je n'ai pas oublié ce fil 😀

 

[apt]

Re : Liste déroulante et attainte de tableaux

Bonsoir à tous,

En ajoutant des données aux tableaux à imprimer, je n'arrive pas à trouver le tableau choisi pour impression.

Voir PJ.

 

[apt]

Re : Liste déroulante et atteinte de tableaux

Bonsoir,Une piste ?Merci.

 

[DoubleZero]

Re : Liste déroulante et atteinte de tableaux

Bonjour, apt, le Forum,

Un essai dans le fichier joint.

A bientôt 🙂

 

[apt]

Re : Liste déroulante et atteinte de tableaux

Bonsoir DoubleZero,

Ca marche bien.

Mais en voulant l'adapter à mon application, j'ai eu une erreur d'Incompatibiité de type pour la variable x et y.

J'ai corrigé le problème du x en ajoutant la fonction Val :

x = Val(Target.Value)

mais ça n'a pas marché pour le y :

y = Val(Application.Match(x, [H3:H100], 0))

Questions :

- Comment définir dynamiquement la plage nommée "Zone_d_impression" (parce qu'elle est fixe dans le ficher en PJ) ?

- Peux-tu vérifier le code d'impression s'il est juste ?

Merci.

 

[DoubleZero]

Re : Liste déroulante et atteinte de tableaux

Bonjour, apt, le Forum,

Voici un nouveau fichier dans lequel chaque zone d'impression est nommée de façon dynamique par macro.

A bientôt 🙂

 

[apt]

Re : Liste déroulante et atteinte de tableaux

Bonjour DoubleZero,

Ca marche très bien maintenant.

Mais comme je n’ai pas d’imprimante pour essayer, j’aimerais savoir si cette ligne, suffit-elle pour imprimer la zone sélectionnée :

Range("Zone_d_impression").PrintPreview   'PrintOut

EDIT :

J'ai trouvé ce code pour impression (mais je ne sais pas s'il est nécessaire d'écrire toutes ces lignes ?) :

Sub Print_Report()
Dim lastcol as Integer
Worksheets("Rates").PageSetup.PrintArea = Worksheets("Rates").Range("A9").CurrentRegion.Address
lastcol = Worksheets("Rates").Cells(9, Worksheets("Rates").Columns.Count).End(xlToLeft).Column
On Error Resume Next  'continue if there are no PageBreaks
    With Worksheets("Rates").PageSetup
        .DisplayPageBreaks = False
        .PrintTitleRows = "$9:$9"  'TitleRow should only be one row, not a range of rows and columns
        .LeftMargin = Application.InchesToPoints(0.3)
        .RightMargin = Application.InchesToPoints(0.3)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .CenterHorizontally = True
        .Orientation = xlPortrait
        .FirstPageNumber = xlAutomatic
        .FitToPagesWide = 1
    End With
    Worksheets("Rates").Columns("A:" & lastcol).EntireColumn.AutoFit
Worksheets("Rates").PrintOut Copies:=1, Collate:=True
End Sub

 

[DoubleZero]

Re : Liste déroulante et atteinte de tableaux

Re-bonjour,

... comme je n’ai pas d’imprimante pour essayer, j’aimerais savoir si cette ligne, suffit-elle pour imprimer la zone sélectionnée :

Range("Zone_d_impression").PrintPreview   'PrintOut

EDIT :...J'ai trouvé ce code pour impression...

En sollicitant ce bouton,

on obtient l'impression du choix effectué en B1.

L'ajout d'un nouveau code est, par conséquent, superflu.

A bientôt 🙂

 

[apt]

Re : Liste déroulante et atteinte de tableaux

Salut,

Je m'excuse si je m'abuse, mais j'ai un petit souci.

Comment fait-on pour que la liste ne se déroule pas en cas d'absence de valeur dans la plage nommée "Liste" comme ton exemple ?

Comment résoudre le problème de Application.EnableEvents = True que je devrais lancer de temps à autre pour que le VBA fonctionne ?