Discussion :

[wouairness]

Bonjour Mesdames et Monsieur;

Depuis que j'ai découvert ce site je m'en lasse pas, les possibilités de excel sont infinie et impossible pour moi de tous les connaitres donc encore aujourd'hui je m'en remets a vous.

Ma problématique aujourd'hui est plutôt simple mais je ne possède pas les connaissances pour cela.

Explication:
Je possède Excel 2016, comprenant 7 feuilles (plus a l'avenir) certain lien existe entre elle. Sur la première de ces feuilles, la "TGRI" comprend environ 1200 lignes chacune destinée a un objet pour chaque, identifier par un code spéciale ex:12345-ABCDEF.

Dans la seconde feuille "FD" (Fiche départ) reprenant les tournées a effectuer pour c'est objets avec leur code spéciale (en gros c'est la carte grise de l'objets )

Problématique:
Je souhaiterais, que avec un bouton macro (si possible) le code imprime 1 page de la ligne complété (ou si possible sélectionner les colonnes) des code ce trouvant dans la feuille "fd" et "tgri".
Je simplifie : le code doit détecter les code identique entre les deux feuilles et imprimer seul concerné dans la feuille "tgri" avec les colonnes "en-tète" (et oui je complique les choses sinon c'est pas drôle )

Merci pour déjà avoir lu mon texte et je l’espéré votre aide prochaine, bien évidement je peux répondre a toute vos questions sur l'utilisation du document ou la description de ma demande afin de vous aiguiller au mieux.

[jerome.vaussenat]

Salut,

Franchement, même en relisant à plusieurs reprise, c'est pas claire ton histoire ...

peux tu nous mettre un bout de fichier. Comme çà on verra les colonnes concernées (avec des données bidon).
Là, je suis incapable de savoir quelle est la feuille contenant les lignes à conservées, celle qui donne les colonnes correcte.

Aide nous à t'aider.

GG

[wouairness]

Bonjour jerome.vaussenat.

Pour simplifier la chose je souhaite imprimer des lignes d'un tableau en fonction d'un autre tableau, c'est ligne ayant un code unique (code textuelle), le code serais détecter par la macro et enregistrera les lignes a imprimer. Si possible avec les lignes comprenant les en-tète (3 lignes).

Sortie.xlsx

[BENNASR]

bonjour ,
pourquoi ne pas filtrer ton tableau selon les ID qui se trouve sur la deuxième feuille , imprimer les cellules visible puis défiltrer
si ça t'arrange vous pouvez tester ça :

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
Sub filtreetimprimer()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Sheet1")
Set F2 = Sheets("Feuil1")
Dim I As Long
 Application.ScreenUpdating = False
 With F1
I = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("B5:E" & I).AutoFilter field:=1, Criteria1:=Array(F2.Cells(5, 2), F2.Cells(6, 2), F2.Cells(7, 2)), Operator:=xlFilterValues
Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
With ActiveSheet.PageSetup
    .PrintArea = ("B5:E" & I)
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With
ActiveSheet.PrintOut copies:=1
If Not .AutoFilter Is Nothing Then
      If .FilterMode Then .ShowAllData
      .AutoFilter.Range.AutoFilter
    End If
End With
 Application.ScreenUpdating = True
End Sub

à tester avec prudence , c'est un code bricolé par un autodidacte
Bonne continuation

[wouairness]

Bonjour BENNASR;

Merci beaucoup pour ton code il est très intéressant seulement j'ai du mal a l'adapter a mon véritable classeur, pourrais tu m'expliquer les modif a faire? je l'es déjà testé mais il m'affiche mal ce que je souhaite (ex: seulement l’entête et pas le résultat). De plus après environ 10 test le code me fait un retour d'erreur au niveaux de "ActiveSheet.PrintOut". serait tu pourquoi?

Merci beaucoup pour t'on aide tout de même.

[BENNASR]

Bonjour
Il se peux que tu appelle la procédure à partir d'un autre onglet, donc j'ai porter quelques modifications
- Bien vérifiez le noms des onglets
- si ton tableau commence à partir de B5 de l'onglet Sheet1
- Que les critère de ton filtre se trouvent en B5, B6 et B7
- Vous pouvez supprimer momentanément la parite de code qui imprime le tableau après filtre aisni que la partie de code qui annule les filtre et voir si le code fait bien le filtre selon les codes figurant en onglet "feuil1"
Faites ces vérification et dire ce que ça donne

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
Sub filtreetimprimer()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Sheet1") 'Nom onglet ou se trouve le tableau à filtrer
Set F2 = Sheets("Feuil1") 'Nom onglet ou se trouve le tableau les ID à utiliser  critères de filtre
Dim I As Long
 Application.ScreenUpdating = False
 With F1
 .Activate
I = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("B5:E" & I).AutoFilter field:=1, Criteria1:=Array(F2.Cells(5, 2), F2.Cells(6, 2), F2.Cells(7, 2)), Operator:=xlFilterValues
Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
With .PageSetup
    .PrintArea = ("B5:E" & I)
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With
F1.PrintOut copies:=1
' ********************** enlever filtre
If Not .AutoFilter Is Nothing Then
      If .FilterMode Then .ShowAllData
      .AutoFilter.Range.AutoFilter
    End If
 
End With
 Application.ScreenUpdating = True
End Sub