Mise en page fichier excel

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #2

Re : Mise en page fichier excel

Bonjour sectiontiteuf,

Il te suffit d'utiliser les filtre automatique
1) tu sélectionnes tes cellules B4:I4
2) Onglet -> Données -> bouton "Filtrer"
3) tu cliques sur le petite triangle inversé, dans la zone recherche, tu saisi "pelle"
cela va te filtrer les lignes avec le mot pelle
4) tu n'as plus qu'à imprimer

A+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Mars 2012

• #3

Re : Mise en page fichier excel

Bonsour® sectiontiteuf

sourire...
il faut utiliser un filtre.

sélectionner la cellule A4
dans le menu Données choisir filtre

il suffit ensuite de cocher/decocher les codes souhaités(colonne A)
eventuellement filtrer selon d'autres colonnes

ne pas oublier également de définir la zone d'impression
- limiter à 1 page en largeur
- definir la ligne à répéter en haut de page (cas de pages multiple)

 

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #4

Re : Mise en page fichier excel

Merci des vos réponses.

C'est ce que je fais par défaut pour le moment....
En fait je n'ai pas du m'exprimer correctement.
Il n'existe pas une méthode autre que le filtre...qui me permet de lancer une impression...Ou j'aurais feuille 1 les pelles feuilles 2 les tombereaux et etc....

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #5

Re : Mise en page fichier excel

Re,

C'est plus qu'une mise ne page que tu veux alors !?
Tu veux carrément créer une feuille pour chaque type de produit ?

A+

 

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #6

Re : Mise en page fichier excel

Re,

Oui c'est ça je rentre toutes mes infos sur la feuilles A et après je veux une impréssion par type de produit...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #7

Re : Mise en page fichier excel

Re,

Voilà ce qu'il fallait dire tout de suite 🙄

j

e veux une impression par type de produit...​

Cliquez pour agrandir...

Une feuile avec une fonction SOUS.TOTAL() + un peu de code et c'est parti 😉

A+

 

Pièces jointes

• SectionTiteuf_Exemple.xlsm

  20.9 KB · Affichages: 49
• SectionTiteuf_Exemple.xlsm

  20.9 KB · Affichages: 50
• SectionTiteuf_Exemple.xlsm

  20.9 KB · Affichages: 50

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #8

Re : Mise en page fichier excel

Merci de ton aide... si je rajoute des pelles ça va me les prendre en compte dans l'impression?
De plus, si je duplique la feuille le bouton imprimé fonctionnera toujour?

 

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #9

Re : Mise en page fichier excel

Si je modifie le nom de la feuille données par janvier...cela ne fonctionne plus?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #10

Re : Mise en page fichier excel

Re,

Remplace juste l'instruction

Code:

With Sheets("Données")

Par

Code:

With ActiveSheet

A+

 

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #11

Re : Mise en page fichier excel

A la suite de Tombereau, si je rajoute Niveleuse....Ca bloque également....

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #12

Re : Mise en page fichier excel

Re,

Chez moi ça fonctionne !?

Voir fichier joint

A+

 

Pièces jointes

• SectionTiteuf_Exemple.xlsm

  21.7 KB · Affichages: 61
• SectionTiteuf_Exemple.xlsm

  21.7 KB · Affichages: 50
• SectionTiteuf_Exemple.xlsm

  21.7 KB · Affichages: 47

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #13

Re : Mise en page fichier excel

Effectivement ça fonctionne.
Je pense que c'est parce que j'avais mis niveleuse...sans lettre apres.

 

Vote positif 0 Vote négatif

S

sectiontiteuf

XLDnaute Nouveau

• 15 Mars 2012

• #14

Re : Mise en page fichier excel

J'ai inserer des copier / coller des données d'un tabaleau.... à l'impression le sous total pour les bouteur ne colle pas....

 

Pièces jointes

• SectionTiteuf_Exemple2.xlsm

  31.5 KB · Affichages: 46
• SectionTiteuf_Exemple2.xlsm

  31.5 KB · Affichages: 53
• SectionTiteuf_Exemple2.xlsm

  31.5 KB · Affichages: 51

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Mars 2012

• #15

Re : Mise en page fichier excel

Re,

Au fait dans mon code je ne prends que la première partie d'un type d'engin, à savoir
Dumper Volvo A25D
Dumper Bell B50D
Pour mon code c'est la même chose c'est un Dumper

Vu le BUG, vive Office 2007
Il faut ajouter

Code:

Application.Calculate

Après le filtrage, sinon les sous-totaux ne sont effectivement pas calculés automatiquement

Code en entier

Code:

Option Explicit

Sub Impression()
  Dim DLig As Long, Lig As Long
  Dim sType As String, TabType As New Collection


  With ActiveSheet
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    For Lig = 5 To DLig
      ' Récupérer le type de la machine
      sType = .Range("B" & Lig)
      ' Ne garder que la partie prinsipale
      sType = Left(sType, InStr(1, sType, " ") - 1)
      ' Ajouter le type à la collection
      ' Une collection ne peut pas contenir de doublon
      On Error Resume Next
      TabType.Add sType, sType
      On Error GoTo 0
    Next Lig
    ' Pour chaque ligne de la collection
    For Lig = 1 To TabType.Count
      ' Filtrer les lignes
      .Range("B4:I4").AutoFilter Field:=1, Criteria1:="=" & TabType(Lig) & "*"
      Application.Calculate
      ' Lancer l'impression
      .PrintOut
    Next Lig
    .Range("B4:I4").AutoFilter
  End With
End Sub

A+

 

Vote positif 0 Vote négatif