Masquer certaines lignes sur Excel

Résolu

José0802 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
José0802 Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 18 nov. 2013 à 15:32

Bonjour,

A partir d'une trame de management de projet que j'ai crée sur Excel, je souhaite masquer certaines lignes en fonction du suivi qui va être utilisé.

Je m'explique:

Pour un suivi léger pour des projets conception, seule la rédaction des plans détaillés est intéressantes à suivre, donc on cache les autres lignes (ie consultation prestataires, retour offre, etc.)

Pour un raisonnement détaillé, je souhaite que l'ensemble des étapes apparaissent.

J'ai enregistré une macro qui cache les lignes souhaitées, et une autre qui réinitialise le tout.

Cependant, quand j'active la macro qui est censée cacher certaines lignes seulement, c'est l'ensemble des lignes sélectionnées qui disparaissent MAIS AUSSI celles qui sont entre.

J'espère avoir été assez clair, si non, n'hésitez à me poser des questions, si la problématique vous intéresse.

Sub SuiviLeger()
'
'

'
Rows("36:36").Select
Selection.EntireRow.Hidden = True
Rows("37:37").Select
Selection.EntireRow.Hidden = True
Rows("40:40").Select
Selection.EntireRow.Hidden = True
Rows("41:41").Select
Selection.EntireRow.Hidden = True
Rows("44:44").Select
Selection.EntireRow.Hidden = True
Rows("45:45").Select
Selection.EntireRow.Hidden = True
Rows("48:48").Select
Selection.EntireRow.Hidden = True
Rows("49:49").Select
Selection.EntireRow.Hidden = True
Rows("52:52").Select
Selection.EntireRow.Hidden = True
Rows("53:53").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=39
Rows("56:56").Select
Selection.EntireRow.Hidden = True
Rows("57:57").Select
Selection.EntireRow.Hidden = True
Rows("60:60").Select
Selection.EntireRow.Hidden = True
Rows("61:61").Select
Selection.EntireRow.Hidden = True
Rows("64:64").Select
Selection.EntireRow.Hidden = True
Rows("65:65").Select
Selection.EntireRow.Hidden = True
Rows("68:68").Select
Selection.EntireRow.Hidden = True
Rows("69:69").Select
Selection.EntireRow.Hidden = True
Rows("72:72").Select
Selection.EntireRow.Hidden = True
Rows("73:73").Select
Selection.EntireRow.Hidden = True
Rows("76:76").Select
Selection.EntireRow.Hidden = True
Rows("77:77").Select
Selection.EntireRow.Hidden = True
Rows("80:80").Select
Selection.EntireRow.Hidden = True
Rows("81:81").Select
Selection.EntireRow.Hidden = True
Rows("84:84").Select
Selection.EntireRow.Hidden = True
Rows("85:85").Select
Selection.EntireRow.Hidden = True
Rows("88:88").Select
Selection.EntireRow.Hidden = True
Rows("89:89").Select
Selection.EntireRow.Hidden = True
Rows("92:92").Select
Selection.EntireRow.Hidden = True
Rows("93:93").Select
Selection.EntireRow.Hidden = True
Rows("96:96").Select
Selection.EntireRow.Hidden = True
Rows("97:97").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.SmallScroll Down:=-24
Range("V38").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V42").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V46").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V50").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V54").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V58").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V62").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V66").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V70").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V74").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V78").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V82").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V86").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V90").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V94").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V98").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V99").Select
End Sub

Sub ResetSuiviLeger()
'
' ResetSuiviLeger Macro
' Macro enregistrée le 18/11/2013 par jmendoza
'

'
Rows("35:35").Select
ActiveWindow.SmallScroll Down:=36
Rows("35:98").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
Range("V36:V38,V40:V42,V44:V46,V48:V50").Select
Range("V48").Activate
ActiveWindow.SmallScroll Down:=15
Range("V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62").Select
Range("V60").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62,V64:V66,V68:V70,V72:V74,V76:V78" _
).Select
Range("V76").Activate
ActiveWindow.SmallScroll Down:=15
Range( _
"V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62,V64:V66,V68:V70,V72:V74,V76:V78,V80:V82,V84:V86,V88:V90,V92:V94,V96:V98" _
).Select
Range("V96").Activate
Selection.ClearContents
End Sub

Cordialement.

José00802

Afficher la suite

A voir également:

Masquer certaines lignes sur Excel
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Word et excel gratuit - Guide
Comment trier par ordre alphabétique sur excel - Guide
Comment calculer la moyenne sur excel - Guide

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

Bonjour José M*****a,

Le problème avec ta macro, c'est que si un jour tu veux ajouter une ligne pour une tâche supplémentaire ou juste pour améliorer la mise en forme, ça va coincer.

Que penses-tu de te passer de macro et de grouper les lignes correspondant aux détails ? Tu basculerais donc entre vue globale et vue détaillée en cliquant sur un simple chiffre.

A+

José0802 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Bonjour Zoul67,

La trame est finis, donc je n'ajouterai ni tâche supplémentaire, ni aucune mise en forme.

Si j'ai bien compris ta proposition, je ne suis pas sûr que cela marche.

Voici un exemple pour être plus clair :

Réunion d'enclenchement réalisé et CR diffusé
Programme de développement diffusé (interne)
Revue d'évaluation technique réalisée

TACHE N°1
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

TACHE N°2
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

TACHE N°3
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

Etc.

Ce que je souhaite faire, par exemple:

- Suivi léger:

Réunion d'enclenchement réalisé et CR diffusé

TACHE N°1
Rédaction STC et plans de détails terminés

TACHE N°2
Rédaction STC et plans de détails terminés

TACHE N°3
Rédaction STC et plans de détails terminés

- Suivi moyen:

Réunion d'enclenchement réalisé et CR diffusé
Revue d'évaluation technique réalisée

TACHE N°1
Conception 3D terminé
Rédaction STC et plans de détails terminés

TACHE N°2
Conception 3D terminé
Rédaction STC et plans de détails terminés

TACHE N°3
Conception 3D terminé
Rédaction STC et plans de détails terminés

- Suivi Précis:

Réunion d'enclenchement réalisé et CR diffusé
Programme de développement diffusé (interne)
Revue d'évaluation technique réalisée

TACHE N°1
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

TACHE N°2
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

TACHE N°3
Conception 3D terminé
Actions suite à la RET terminées
Rédaction STC et plans de détails terminés

Donc je pense que regouper les tâches c'est compliqué...

Mais faisable avec macros?

José

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

Vois si ceci (sans macro) convient : https://www.cjoint.com/c/CKsprM1P0U9

José0802 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Oui c'est bien ça. Merci.

Cependant j'ai quand même trouvé qui n'allait pas dans mes macros.

C'était un problème de cases fusionnées.

Merci de ton aide.

Bonne journée.

José

Discussions similaires

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Votre réponse

Discussions similaires