Selection de zone par liste déroulante

[paul87]

Bonjour à tous, bonjour le Forum.

Dans une feuille .xls je souhaite mettre une zone de liste déroulante avec les mois de l'année.
et selon la sélection, je souhaite que cela se positionne sur une certaine cellule..
exemple Janvier = A1 Février = A50 Mars = A100...etc....
et ce afin d'avoir une selection de zone dans ma feuille en fonction du mois....
svp..
je n'y arrive pas !

 

[paul87]

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

 

[JCGL]

Re : Selection de zone par liste déroulante

Bonjour à tous,

Si j'ai compris : en B3

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

A+ à tous

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

 

[paul87]

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..

 

[JCGL]

Re : Selection de zone par liste déroulante

Bonjour à tous,

Utilisation de :

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

 

[paul87]

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

 

[paul87]

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 !!!

 

[Guest]

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

 

[JCGL]

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

 

[Guest]

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++

 

[paul87]

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+++

 

[paul87]

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 !!

 

[JCGL]

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

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

A+ à tous

 

[Guest]

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:

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

 

[JCGL]

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