Selection de zone par liste déroulante

P

paul87

XLDnaute Impliqué

• 11 Mars 2011

• #2

Re : Selection de zone par liste déroulante

re..bonsoir..
j'ai bien réussi à rajouter une zone de liste avec les mois
mais comment fait-on la selection..des mois pour sélectionner la zone correspondante au mois..
svp.
je joins mon exemple de brouillon
Merci par avance

 

Pièces jointes

• test_plan.xls

  40.5 KB · Affichages: 85

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mars 2011

• #3

Re : Selection de zone par liste déroulante

Bonjour à tous,

Si j'ai compris : en B3

=DATE(2011;MOIS(1&$J$2);1)

Cliquez pour agrandir...

A+ à tous

Édition : Non, je suis hors sujet...

 

Dernière édition: 11 Mars 2011

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 11 Mars 2011

• #4

Re : Selection de zone par liste déroulante

bonsoir et merci...
mais à vrai dire, je ne comprends pas bien..
en fait je veux que lorsqu'on sélectionne un mois dans la liste déroulante,
l'affichage de la feuille se positionne sur le mois concerné dans la feuille..

 

Dernière édition: 11 Mars 2011

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mars 2011

• #5

Re : Selection de zone par liste déroulante

Bonjour à tous,

Utilisation de :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$2" Then Cells(Application.Match(Range("J2"), [B3:B400], 1) + 2, 2).Select
    End Sub

Pourquoi deux lignes entre chaque mois... Tu dois avoir tes raisons...

A+ à tous

 

Pièces jointes

• JC Selection Date.xls

  44 KB · Affichages: 84
• JC Selection Date.xls

  44 KB · Affichages: 85
• JC Selection Date.xls

  44 KB · Affichages: 85

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 12 Mars 2011

• #6

Re : Selection de zone par liste déroulante

Bonjour à tous, Bonjour le Forum.
et Merci à toi JCGL.
ça fonctionne..!!
Pour répondre à ta question:
A vrai dire, 2 lignes...
je ne sais pas trop pourquoi...juste pour séparer les mois entre eux..et laisser la possibilité de renter des notes..!!!
Est-il possible de changer cette liste déroulante (incluse dans la feuille) par une liste déroulante de type ComboBox..? vois dans le fichier joint
uniquement sur le critére esthétique...
merci pour vos conseils

 

Pièces jointes

• JC Selection Date.xls

  46 KB · Affichages: 63
• JC Selection Date.xls

  46 KB · Affichages: 63
• JC Selection Date.xls

  46 KB · Affichages: 57

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 12 Mars 2011

• #7

Re : Selection de zone par liste déroulante

re.
j'ai bien réussi à "alimenter" ma combobox1 avec ListFillRange.
mais cela ne récupère pas les mois, mais une valeur numérique..!!!
pourquoi..? que faire..?
et après...quel code appliquer pour avoir le meme résultat que JCGL...
svp...
merci pou le coup de pouce !!!

 

Pièces jointes

• JC Selection Date.xls

  48 KB · Affichages: 56
• JC Selection Date.xls

  48 KB · Affichages: 60
• JC Selection Date.xls

  48 KB · Affichages: 58

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Mars 2011

• #8

Re : Selection de zone par liste déroulante

Bonjour Paul,
JC🙂

arf...SAV de la journée🙂(private joke)

Voilà, regarde la formule pour la liste mois. Les dates pour excel sont des valeurs numériques il faut donc les traduire en text.

Regarde également le code le la combo.
J'ai changé le +14 en +2 pour avoir le premier du mois.

A+

A+++ l'ami

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mars 2011

• #9

Re : Selection de zone par liste déroulante

Bonjour à tous,
Salut Ges 🙂🙂,

Merci pour le SAV...
Pour le citron vert, on prend sur le stock de la Dream Team ?

A+ à tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Mars 2011

• #10

Re : Selection de zone par liste déroulante

Re Bonsoir,

Excuses Paul87, je passe juste pour dire à JC, que s'ils tardent à revenir il en restera plus🙂🙂🙂

A++

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 12 Mars 2011

• #11

Re : Selection de zone par liste déroulante

Bonsoir à tous..!!! 🙂 ..pas de soucis !!
Juste un petit complément à ce post.......
pour remercier JCGL ....
mais ....je n'ai pas trouvé...la.. formule pour la liste mois...😕
sinon....
c'est moi qui avait changé la valeur +2 en +14 afin d'avoir le 1er jour du mois en haut de tableau...juste sous la ligne des heures..
Est-ce que c'est correct...?
Merci+++

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 12 Mars 2011

• #12

Re : Selection de zone par liste déroulante

en fait, je me rends compte qu'avec +14 ça ne marche pas terrible !!!!
que faire pour que cela tombe pile..le 1er jour du mois en haut de feuille..
ça ne me gène pas de supprimer les 2 lignes entre chaque mois si besoin..!! ce serait meme surement mieux finalement !!

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mars 2011

• #13

Re : Selection de zone par liste déroulante

Bonjour à tous,

Sur la Combo, c'est l"ami Ges qu'il faut remercier...
Pour le + 14, tu as tout bon.

La formule pour passer du numérique en texte se trouve en K3 et suivantes (tu peux masquer la colonne)
Si tu souhaites que la cellule active soit dans une autre colonne, modifie la partie colonne du Cells(Ligne, Colonne)

Me.Cells(Application.Match(CLng(DateSerial(Year([B3]), ComboBox1.ListIndex + 1, 1)), [B3:B400], 1) + 14, 2).Select

Cliquez pour agrandir...

Ici la deuxième colonne sera sélectionnée donc la B

A+ à tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Mars 2011

• #14

Re : Selection de zone par liste déroulante

Re, Paul
JC🙂

La formule pour les mois est dans les cellules de la liste k3:k14:
=TEXTE(DATE(2011;LIGNE(A1);1);"mmmm")
Pour que ta cellule se déplace en haut de ta fenêtre sous ta ligne d'heure:

VB:

Private Sub ComboBox1_Click()
 If ComboBox1.ListIndex > -1 Then
   Application.Goto Me.Cells(Application.Match(CLng(DateSerial(Year([B3]), ComboBox1.ListIndex + 1, 1)), [B3:B400], 1) + 2, 2), True
 End If
End Sub

A+Paul
A+++JC
A+ tous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mars 2011

• #15

Re : Selection de zone par liste déroulante

Bonjour à tous,

Mise en application du Scroll
Ajout d'une MeFC sur les jours Sam et Dim
Ajout d'un formule pour rendre le calendrier perpétuel : change l'année en B2


Tu as la chance d'avoir un fichier estampillé de la Dream Team...

A++ Ges
A+ à tous

 

Pièces jointes

• JC_Hasco Selection Date.xls

  54 KB · Affichages: 67

Vote positif 0 Vote négatif