masquage de lignes automatisé

youky(BJ)

XLDnaute Barbatruc

• 25 Août 2012

• #2

Re : masquage de lignes automatisé

Bonjour Crystal,
Ce bout de code doit répondre à ta demande.
Bruno

Code:

Private Sub CommandButton1_Click()
lig = 2
With Sheets("Acquisitions")
'Selectionne toutes les cellules de la feuille
.Range("A1:U802").Clear
    For i = 11 To Sheets("Compétences").Range("G65536").End(xlUp).Row
       If Cells(i, 1).Interior.ColorIndex = 42 Then deb = i: x = ""
       '(version 2007)
       If Cells(i, 7) <> "" And x = "" Then _
          Rows(deb & ":" & deb + 2).Copy .Cells(lig, 1): lig = lig + 3: x = 1
        If Cells(i, 7) <> "" Then Sheets("Compétences").Rows(i).Copy .Cells(lig, 1): lig = lig + 1
    Next
.Select
End With
End Sub

 

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 25 Août 2012

• #3

Re : masquage de lignes automatisé

Merci mille fois Bruno ça fait des jours que je tourne autours mais que j'arrivais pas à concrétiser.

Seulement voilà on m'annonce maintenant qu'il faut ajouter des grand titre de compétence comme "Français", "Mathématqiue"... qui devront eux même ne s'afficher que si au moins une des compétence de détails est cochée.

Bref même principe pour un niveau au dessus. (on peut identifier avec une autre couleur si besoin.

En plus il va sans doute me falloir gérer un saut de page intelligent afin de ne pas couper un groupe de compétence en plein millieu lors des impressions.

Je suis preneuse pour toutes proposition de solution qui me serait d'un grand secours.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Août 2012

• #4

Re : masquage de lignes automatisé

Re;
Cela doit être possible si tu nous dit ou trouver ce type de compétence.
Refait un fichier exemple avec ce que tu attends.
Pour les sauts de pages c'est galère mais gèrable.
Bruno

 

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 26 Août 2012

• #5

Re : masquage de lignes automatisé

Ah mais oui bien sure je suis bête j'ai oublier. Voilà le fichier après les modifs que j'ai du apporter.

Je te remercie d'avance de regarder mon "problème".

Pour l'impression je pense qu'il me faudrait sans doute utiliser un compteur de ligne et utiliser ta boucle qui check les ligne de titre et sous titre. Mais je vois pas trop comment 🙂

si tu as des pistes je suis preneuse.

 

Pièces jointes

• Evaluation pour forum.xlsm

  319.4 KB · Affichages: 63

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 26 Août 2012

• #6

Re : masquage de lignes automatisé

Ah tiens au fait Bruno c'est rigolo car ton pseudo "Youki" c'est le nom que mes filles ont donné à leur lapin nain 🙂

 

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 26 Août 2012

• #7

Re : masquage de lignes automatisé

j'espère que tu l'as pas mal pris, c'est juste vrai elles sont fan toutes les deux du JApon et yuki signifie Neige en japonais, et le tout petit lapin est tout blanc. Voili Voila ...

Ca n'empêche pas que se fichu fichier Excel me fait galérer un max ! 🙂

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Août 2012

• #8

Re : masquage de lignes automatisé

Bonjour crystal,
Me voilà donc un petit lapin, on me l'avait encore jamais faites celle-là.!
Bon, j'ai jeté un oeil sur le fichier, pas facile, je mis attellerais que lundi après midi.
Entre temps si tu pouvais faire un exemple de l'onglet Acquisitions comme tu le souhaiterais.
(en mettant le grand titre de compétence).

Ton petit lapin .............hum!! (je rigole)
Bruno

 

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 26 Août 2012

• #9

Re : masquage de lignes automatisé

Ah me voilà rassurée. Et sorry pour le lapin 🙂 Merci de ta réponse, je suis touchée que tu prennes le temps de réfléchir à mon fichier.

Je te joins le document Word qui m'a été envoyé comme base de travail. Il convient de ne garder que les lignes pour lesquelles la case BF sera cochées au final. Il faut également que l'impression ne soit pas coupé au milieu d'un "groupe" de compétence.

Je sais pas si c'est suffisamment clair pour toi. Ma rentrée "scolaire" s'approche à grand pas et je suis chargé d'apporter une solution à ce sujet.

Je ne sais comment te remercier de me filer ce coup de main.

à Lundi alors bonne nuit

 

Pièces jointes

• Bilan parcours de formation à finaliser.doc

  375.5 KB · Affichages: 39

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 27 Août 2012

• #10

Re : masquage de lignes automatisé

Bonjour Crystal,
Verifie sur ce fichier si cela est bon.(Titre de compétences inclus)

Par contre je n'ai pas encore fait pour gèrer les sauts de pages en onglet "Acquisitions"
C'est loin d'être facile car les lignes n'ont pas la même hauteur.
Si les amis du forum connaissent une solution...... (toute aide sera appréciée)
Bruno-Youky

 

Pièces jointes

• EvaluationYouky.xlsm

  361.9 KB · Affichages: 42
• EvaluationYouky.xlsm

  361.9 KB · Affichages: 34
• EvaluationYouky.xlsm

  361.9 KB · Affichages: 41

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Août 2012

• #11

Re : masquage de lignes automatisé

Bonjour Crystal,
Avec un peu de retard je t'envoie le fichier TIP-TOP comme tu veux.
Donc fait des essais avant la rentrée prochaine.
Les sauts de page sont correct d'aprés mes essais.
En principe tout baigne.......
Tiens moi au courant.
Bruno
2ème modif de fichier
Fichier modifié le 30/08 à 17h en principe c'est bon

 

Pièces jointes

• EvaluationYouky.xlsm

  367.8 KB · Affichages: 35
• EvaluationYouky.xlsm

  367.8 KB · Affichages: 42
• EvaluationYouky.xlsm

  367.8 KB · Affichages: 43

Dernière édition: 30 Août 2012

Vote positif 0 Vote négatif

C

crystal_38

Guest

• 31 Août 2012

• #12

Re : masquage de lignes automatisé

Voilà comme promis le fichier avec la feuille Attestation modifiée. Le but c'est d'imprimer (preview au pire) cette feuille en premier numérotée Page 1 / n puis à la suite et en automatique la feuille Acquisitions numérotées à la suite.

Suis je assez claire ?

Je joins le fichier.

amicalement,

Véro

 

Pièces jointes

• Evaluation vero_youki.xlsm

  371.1 KB · Affichages: 34

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 31 Août 2012

• #13

Re : masquage de lignes automatisé

Salut Crytal,
Cela fait l'affaire
Youky Bruno

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Sheets(Array("Attestation", "Acquisitions")).Select
End Sub

 

Vote positif 0 Vote négatif