XL 2016 Conseil mise en forme d'un tableau

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #16

Merci pour votre retour,

Serait-il possible de transmettre un fichier exemple

Merci d'avance

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2016

• #17

Re

Non, je ne fournis plus de fichier exemple depuis belle lurette.
Cela dans le but d'inciter le demandeur à mettre les mains dans le cambouis et à mouiller la chemise
Tu as tout les éléments pour déjà créer un menu déroulant

A toi de jouer, camarade

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #18

Le problème n'est pas de créer un menu déroulant, le problème est d'ajuster le tableau en fonction de la sélection, j'ai créer le menu déroulant mais le tableau ne s'ajuste pas.

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2016

• #19

Re

Je ne vois comment ton tableau pourrait s'ajuster puisque il est vide.
Il ne contient aucune formule
(je parle du fichier exemple que tu as joins ici)
Une suggestion de solution possible serait de créer trois tableaux identiques l'un en dessous de l'autre, dont les lignes se masqueraient par macro selon le choix fait dans le menu déroulant

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #20

Re

Merci pour la précision, je vais créer les trois tableaux identique et voir si je trouve une macro.

Merci pour votre aide

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2016

• #21

Re

Pour la macro, tu la trouveras ici
(à mettre dans le code de la feuille)

VB:

Private Sub Worksheet_Change(ByVal T As Range)
Application.ScreenUpdating = False
If T.Address = "$E$1" Then
Select Case T.Value
Case Is = "Ligne 1"
Rows("2:14").Hidden = False
Rows("15:40").Hidden = True
Case Is = "Ligne 2"
Rows("2:14").Hidden = True
Rows("15:27").Hidden = False
Rows("28:40").Hidden = True
Case Is = "Ligne 3"
'je te laisse continuer sur la même logique et faire les tests
Case Is = "AUTRE"
'idem à toi de jouer
End Select
End If
End Sub

NB: La liste déroulante est en E1
donc j'ai défusionné les cellules de la ligne 1

 

Dernière édition: 14 Août 2016

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #22

Re

Un grand merci pour la macro je vais tester des que j'ai terminé les trois tableaux et je reviens vers vous.

1000 merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2016

• #23

Re

Ne pas oublier de lire les commentaires en vert dans le code
Il ne faut pas juste tester le code il faut aussi que tu le complètes (et même le corrige cf "AUTRE")

Histoire que je ne sois pas le seul à avoir les mains dans le cambouis

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #24

Ok sa marche merci

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #25

Re bonjour,

Votre macro fonctionne à 100% sans aucune galère, mille merci pour votre temps et pour votre rapidité.

C'est vraiment cool de votre part merci encore

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2016

• #26

Re

Tu as bien ajouté les lignes de code nécessaires pour ?
Case Is = "Ligne 3"

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 14 Août 2016

• #27

re

oui j'ai rajouter pour le 3eme tableau sa fonctionne à la perfection.

 

Vote positif 0 Vote négatif