Selection dans une liste.

Question

Bonjour à tous!

Je suis actuellement en stage et je dois réaliser un planning bien défini sous Excel.
Je suis en train d'apprendre en même temps des notions de Vba mais le temps m'est compté et j'aurai voulu avoir quelques indications concernant l'utilisation de liste dans une macro. Je n'ai malheureusement pas trouvé de sujet similaire dans le forum.

J'ai donc crée ma liste directement dans une macro:

/quote

Range("F2:I3").Select
Dim Mois()
Mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")

[quote]

J'aurai pu créer la liste dans une feuille mais par soucis de propreté,
j'ai trouvé plus judicieux de la mettre ici, facilitant ainsi les
opérations.

J'aimerai si possible, en utilisant une "barre de défilement",  faire défiler les mois suivants ou  précedents correspondant à celui préalablement rentré dans la cellule.

Je répète que je suis débutant, donc n'hésitez pas à me dire ce qu'il ne va pas ou ce que je n'aurai pas compris :o

Merci à vous.

Polack77 · Answer

C'est à dire que tu à dans une cellule un mois ("Janvier" par exemple) et lorsque tu clique sur une barre de défilement modifier cette donée en "Février" par exemple?

Si c'est ca :
il faut tout d'abord configurer ta barre de défilement (valeur maxi mini et le nombre de "pas" en cas de "grande" modif soit quand tu click sur la barre et non les bouton quelle contien)

    ScrollBar1.Max = 12
    ScrollBar1.Min = 1
    ScrollBar1.LargeChange = 0 'donc ici il ne se passe rien

pour affecter la valeur voulu dans la cellule selectioner 
Private Sub ScrollBar1_Change()
    Selection = Mois(ScrollBar1.Value)
End Sub

D'oh! Nuts!
Mmmmm...
 DONUTS

cs_Tols · Answer

Tout d'abord merci Polack77, le r&#233;sultat est d&#233;j&#224; beaucoup plus probant :)
Je me permet simplement de demander une petite pr&#233;cision.

La cellule est toujours modifiable &#224; la main, ce que je souhaite &#233;videment, mais le probl&#232;me c'est que la macro garde en m&#233;moire le dernier mois issu de la macro, c'est &#224; dire qu'apr&#232;s Juin, il m'affiche naturellement Juillet, mais si je tape &#224; la main un autre mois, Mars par exemple, et bien l'action du bouton me renvoie le mois de Ao&#251;t, logique puisque venant apr&#232;s Juillet, Or, il devrait apr&#232;s lecture de la cellule me retourner Avril. =]

En tout cas merci encore, tu as bien saisis mon dilemne! :p

Polack77 · Answer

Dans ce cas tu dois tester ce qui est dans ta cellule au d&#233;but de ta fonction pour savoir quel mois y mettre
Private Sub ScrollBar1_Change()
dim Cpt as integer
dim FlagValeurTrouver as boolean
    do while cpt < ubound(mois) and not FlagValeurTrouver 'ubound renvoi le num&#233;ro de la dernierre "case" de ton tableau et tu test ton flag car si le r&#233;sultat est rouver &#231;a ne sert &#224; rien de continuer tes test
        if mois(cpt) = selection.text then
            scrollbar1.value = cpt
        end if
        cpt = cpt + 1
    loop
    Selection = Mois(ScrollBar1.Value)
End Sub

bon je n'ai pas tester cette fopnction mais ca dois le faire.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Heeeeeeeee non ca vas pas le faire.
car la tu demande quel est le mois dans la cellule et tu met le m&#234;me mois
Ta fonction de test dois donc &#234;tre ailleur sur la modif de ta cellule (je ne crois pas que se soit possible mais verifi)
Heeeeeeeeeee si non je ne vois pas commant c possible.
Si non tu met un combobox "sur ta cellule" (au dessus quois tu trouve les combo box dans la boite &#224; outils) et lanse la modif de ta barre de d&#233;filement sur modif de cette cellule 
Attention &#224; informer tes fonction que le modif est faite par la barre de d&#233;filement et non pas dans le texte si non tu aura une boucle infini, pour cela le plus simple &#224; mon avi est de d&#233;clarer une variable global (d&#233;clarer &#224; l'exterieur de toute fonction et je te conseille de la d&#233;clarer en private (private FlagModif as boolean) tu met cette variable &#224; vrais au d&#233;but de tes fonction "if FlagModif = vrais then exit sub" et juste appr&#233; tu met cette variable &#224; vrais (n'oubli pas de la passer &#224; faux &#224; la fin de tes fonction)

j'espaire &#234;tre claire

 D'oh! Nuts!
 Mmmmm...
 DONUTS

cs_Tols · Answer

Bonjour,

hum en ce qui concerne le probleme lors de la saisie manuelle du mois je me d&#233;brouillerai autrement quite &#224; verrouiller la cellule pour ne pas inciter les utilisateur &#224; tester, merci quand m&#234;me ^^.
par contre, j'aimerai dans cette cellule integrer &#233;galement l'ann&#233;e et en gros, l'incr&#233;menter de 1 d&#232;s qu'on demande le mois suivant apr&#232;s d&#233;cembre.. Apres quelques tentatives peu fructueuses, le prog ne reconnait plus la chaine "mois ann&#233;e" comme une date et ca fausse ducoup tout mon calendrier dynamique :/
Quelqu'un (je te sens chaud Polack77 :p) pourrait-il m'&#233;claircir un peu sur le sujet?

D'avance Merci.

Polack77 · Answer

Tu pourais peut &#234;tre d&#233;finir en code non pas "mois ann&#233;e" mais "jours mois ann&#233;e" (quite &#224; m&#234;tre le 01 de chaque mois") et pour afficher ta date tu fais "format(cdate("01 d&#233;cembre 1981"),"mmmm yyyy")" ("01 d&#233;cembre 1981" est bien sur &#224; remplacer par ta variable) tu peut ester si ta conversion en date (cdate(...)) vas fonctionner avec "isdate("01 d&#233;cembre 1981")" qui te renvoie un boolean je crois.
Bon ba voila j'etais chaud.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

cs_Tols · Answer

lol, merci encore pour ces pr&#233;cisions.    

Le Hic, c'est que justement, en rentrant un mois et une ann&#233;e, ca fait &#233;voluer mon tableau comprenant tout les jours du mois/ann&#233;e correspondant.
Donc faire apparaitre les jours n'aurait mise a part de faire marcher la fonction aucune utilit&#233; et au niveau ergonomie, le but &#233;tant ld'&#234;tre e plus clait possible sans ajouter du superflux =)

D'autres moyens existent mais j'aimerai vraiment rester dans l'optique de modifier seulement le mois et que ca agissent sur l'ann&#233;e de la meme cellule et sur les jours du tableau cr&#233;e.

Merci en tout cas Polack77de te donner tant de mal pour m'aider :o

Polack77 · Answer

Dans ce cas tu test quand ton utilistaeur fais "suivant" si tu &#224; d&#233;cembre dans la cellule  et tu concat&#233;ne la chaine. Pour n'avoir que le mois qui est dans la cellule le plus simple est je pense d'enlever de ta chaine les 5 d&#233;rnier caract&#233;rer pour cela :"left("d&#233;cemebre 2005",len("d&#233;cemebre 2005") - 5)"
len renvoi la longeur de la chaine
Attention : si la chaine fait moin de 5 carac tu aura une erreur. Test le "if len("d&#233;cemebre 2005") > 5 then"

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

et tu concat&#233;ne la chaine :
Ta fonction qui te renvoi le mois + tu d&#233;clar une variable ann&#233;e (dans la quelle tu stoque l'ann&#233;e bien sur)
text = mois & " " & ann&#233;e

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Selection dans une liste.

9 réponses

Discussions similaires